Initial Commit

database/perl/lib/URI/cpan/author.pm

@@ -0,0 +1,52 @@
+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