Gecko [ www.vortexaion.com ]

Name	Size	Permission	Date
cpan	[ DIR ]	drwxrwxrwx	2024-07-26 17:40
file	[ DIR ]	drwxrwxrwx	2024-07-26 17:40
urn	[ DIR ]	drwxrwxrwx	2024-07-26 17:40
Escape.pm	6.9 KB	-rw-rw-rw-	2021-01-14 18:01
Heuristic.pm	6.37 KB	-rw-rw-rw-	2021-01-14 18:01
IRI.pm	794 B	-rw-rw-rw-	2021-01-14 18:01
QueryParam.pm	4.75 KB	-rw-rw-rw-	2021-01-14 18:01
Split.pm	2.3 KB	-rw-rw-rw-	2021-01-14 18:01
URL.pm	5.36 KB	-rw-rw-rw-	2021-01-14 18:01
WithBase.pm	3.77 KB	-rw-rw-rw-	2021-01-14 18:01
_foreign.pm	107 B	-rw-rw-rw-	2021-01-14 18:01
_generic.pm	5.69 KB	-rw-rw-rw-	2021-01-14 18:01
_idna.pm	2.03 KB	-rw-rw-rw-	2021-01-14 18:01
_ldap.pm	3.17 KB	-rw-rw-rw-	2021-01-14 18:01
_login.pm	231 B	-rw-rw-rw-	2021-01-14 18:01
_punycode.pm	5.49 KB	-rw-rw-rw-	2021-01-14 18:01
_query.pm	2.47 KB	-rw-rw-rw-	2021-01-14 18:01
_segment.pm	416 B	-rw-rw-rw-	2021-01-14 18:01
_server.pm	3.64 KB	-rw-rw-rw-	2021-01-14 18:01
_userpass.pm	1.01 KB	-rw-rw-rw-	2021-01-14 18:01
cpan.pm	3.52 KB	-rw-rw-rw-	2015-04-17 13:22
data.pm	3.31 KB	-rw-rw-rw-	2021-01-14 18:01
file.pm	9.53 KB	-rw-rw-rw-	2021-01-14 18:01
ftp.pm	1.03 KB	-rw-rw-rw-	2021-01-14 18:01
gopher.pm	2.37 KB	-rw-rw-rw-	2021-01-14 18:01
http.pm	425 B	-rw-rw-rw-	2021-01-14 18:01
https.pm	144 B	-rw-rw-rw-	2021-01-14 18:01
ldap.pm	2.86 KB	-rw-rw-rw-	2021-01-14 18:01
ldapi.pm	440 B	-rw-rw-rw-	2021-01-14 18:01
ldaps.pm	144 B	-rw-rw-rw-	2021-01-14 18:01
mailto.pm	1.25 KB	-rw-rw-rw-	2021-01-14 18:01
mms.pm	125 B	-rw-rw-rw-	2021-01-14 18:01
news.pm	1.42 KB	-rw-rw-rw-	2021-01-14 18:01
nntp.pm	127 B	-rw-rw-rw-	2021-01-14 18:01
pop.pm	1.18 KB	-rw-rw-rw-	2021-01-14 18:01
rlogin.pm	129 B	-rw-rw-rw-	2021-01-14 18:01
rsync.pm	207 B	-rw-rw-rw-	2021-01-14 18:01
rtsp.pm	125 B	-rw-rw-rw-	2021-01-14 18:01
rtspu.pm	126 B	-rw-rw-rw-	2021-01-14 18:01
sftp.pm	98 B	-rw-rw-rw-	2021-01-14 18:01
sip.pm	1.66 KB	-rw-rw-rw-	2021-01-14 18:01
sips.pm	143 B	-rw-rw-rw-	2021-01-14 18:01
snews.pm	172 B	-rw-rw-rw-	2021-01-14 18:01
ssh.pm	175 B	-rw-rw-rw-	2021-01-14 18:01
telnet.pm	128 B	-rw-rw-rw-	2021-01-14 18:01
tn3270.pm	128 B	-rw-rw-rw-	2021-01-14 18:01
urn.pm	2.12 KB	-rw-rw-rw-	2021-01-14 18:01

Rename

use strict;
use warnings;

package URI::cpan;
# ABSTRACT: URLs that refer to things on the CPAN
$URI::cpan::VERSION = '1.007';
use parent qw(URI::_generic);

#pod =head1 SYNOPSIS
#pod
#pod   use URI::cpan;
#pod
#pod   my $uri = URI->new('cpan:///distfile/RJBS/URI-cpan-1.000.tar.gz');
#pod
#pod   $uri->author;       # => RJBS
#pod   $uri->dist_name;    # => URI-cpan
#pod   $uri->dist_version; # => 1.000
#pod
#pod Other forms of cpan: URI include:
#pod
#pod   cpan:///author/RJBS
#pod
#pod Reserved for likely future use are:
#pod
#pod   cpan:///dist
#pod   cpan:///module
#pod   cpan:///package
#pod
#pod =cut

use Carp ();
use URI::cpan::author;
use URI::cpan::dist;
use URI::cpan::distfile;
use URI::cpan::module;
use URI::cpan::package;
use URI::cpan::dist;

my %type_class = (
  author   => 'URI::cpan::author',
  distfile => 'URI::cpan::distfile',

# These will be uncommented when we figure out what the heck to do with them.
  # -- rjbs, 2009-03-30
  #
  # dist    => 'URI::cpan::dist',
  # package => 'URI::cpan::package',
  # module  => 'URI::cpan::module',
);

sub _init {
  my $self = shift->SUPER::_init(@_);
  my $class = ref($self);

Carp::croak "invalid cpan URI: non-empty query string not supported"
    if $self->query;

Carp::croak "invalid cpan URI: non-empty fragment string not supported"
    if $self->fragment;

my (undef, @path_parts) = split m{/}, $self->path;
  my $type = $path_parts[0];

Carp::croak "invalid cpan URI: do not understand path " . $self->path
    unless my $new_class = $type_class{ $type };

bless $self => $new_class;

$self->validate;

return $self;
}

sub _p_rel {
  my ($self) = @_;
  my $path = $self->path;
  $path =~ s{^/\w+/}{};
  return $path;
}

#pod =head1 WARNINGS
#pod
#pod URI objects are difficult to subclass, so I have not (yet?) taken the time to
#pod remove mutability from the objects.  This means that you can probably alter a
#pod URI::cpan object into a state where it is no longer valid.
#pod
#pod Please don't change the contents of these objects after construction.
#pod
#pod =head1 SEE ALSO
#pod
#pod L<URI::cpan::author> and L<URI::cpan::distfile>
#pod
#pod =head1 THANKS
#pod
#pod This code is derived from code written at Pobox.com by Hans Dieter Pearcey.
#pod Dieter helped thrash out this new implementation, too.
#pod
#pod =cut

__END__

=pod

=encoding UTF-8

=head1 NAME

URI::cpan - URLs that refer to things on the CPAN

=head1 VERSION

version 1.007

=head1 SYNOPSIS

use URI::cpan;

my $uri = URI->new('cpan:///distfile/RJBS/URI-cpan-1.000.tar.gz');

$uri->author;       # => RJBS
  $uri->dist_name;    # => URI-cpan
  $uri->dist_version; # => 1.000

Other forms of cpan: URI include:

cpan:///author/RJBS

Reserved for likely future use are:

cpan:///dist
  cpan:///module
  cpan:///package

=head1 WARNINGS

URI objects are difficult to subclass, so I have not (yet?) taken the time to
remove mutability from the objects.  This means that you can probably alter a
URI::cpan object into a state where it is no longer valid.

Please don't change the contents of these objects after construction.

=head1 SEE ALSO

L<URI::cpan::author> and L<URI::cpan::distfile>

=head1 THANKS

This code is derived from code written at Pobox.com by Hans Dieter Pearcey.
Dieter helped thrash out this new implementation, too.

=head1 AUTHOR

Ricardo SIGNES <rjbs@cpan.org>

=head1 COPYRIGHT AND LICENSE

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=cut