53 lines
857 B
Perl
53 lines
857 B
Perl
use strict;
|
|
use warnings;
|
|
|
|
package URI::cpan::author;
|
|
$URI::cpan::author::VERSION = '1.007';
|
|
use parent qw(URI::cpan);
|
|
|
|
sub validate {
|
|
my ($self) = @_;
|
|
|
|
my ($author, @rest) = split m{/}, $self->_p_rel;
|
|
|
|
Carp::croak "invalid cpan URI: trailing path elements in $self" if @rest;
|
|
|
|
Carp::croak "invalid cpan URI: invalid author part in $self"
|
|
unless $author =~ m{\A[A-Z]+\z};
|
|
}
|
|
|
|
sub author {
|
|
my ($self) = @_;
|
|
my ($author) = split m{/}, $self->_p_rel;
|
|
return $author;
|
|
}
|
|
|
|
1;
|
|
|
|
__END__
|
|
|
|
=pod
|
|
|
|
=encoding UTF-8
|
|
|
|
=head1 NAME
|
|
|
|
URI::cpan::author
|
|
|
|
=head1 VERSION
|
|
|
|
version 1.007
|
|
|
|
=head1 AUTHOR
|
|
|
|
Ricardo SIGNES <rjbs@cpan.org>
|
|
|
|
=head1 COPYRIGHT AND LICENSE
|
|
|
|
This software is copyright (c) 2009 by Ricardo SIGNES.
|
|
|
|
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
|