@ISA = qw(URI::URL::_generic);
# RFC 1738 says:
#
# A prospero URLs takes the form:
#
#
# where <host> and <port> are as described in Section 3.1. If :<port>
# is omitted, the port defaults to 1525. No username or password is
# allowed.
#
# The <hsoname> is the host-specific object name in the Prospero
# protocol, suitably encoded. This name is opaque and interpreted by
# the Prospero server. The semicolon ";" is reserved and may not
# appear without quoting in the <hsoname>.
sub default_port { 1525 } # says rfc1738, section 3.11
sub _parse {
my($self, $init) = @_;
$self->URI::URL::_generic::_parse($init, qw(netloc path params frag));
}
1;