Changeset 11294 for lang/perl/Acme-CPANAuthors

Timestamp:

05/09/08 15:55:50 (7 months ago)

Author:

charsbar

Message:

Acme-CPANAuthors: made ->authors context sensitive and added pods to show how to use (actually you don't need to scrape the authors list)

Location:

lang/perl/Acme-CPANAuthors/trunk

Files:

• Changes (modified) (1 diff)
• MANIFEST (modified) (1 diff)
• lib/Acme/CPANAuthors.pm (modified) (2 diffs)
• lib/Acme/CPANAuthors/Register.pm (modified) (2 diffs)
• t/02_standalone.t (added)

lang/perl/Acme-CPANAuthors/trunk/Changes

@@ -1 +1 @@
 Revision history for Acme-CPANAuthors
+
+0.02 2008/05/**
+  - made Acme::CPANAuthors::(Specific)->authors context sensitive.
 
 0.01 2007/12/26

lang/perl/Acme-CPANAuthors/trunk/MANIFEST

@@ -9 +9 @@
 t/00_load.t
 t/01_basic.t
+t/02_standalone.t
 t/99_pod.t
 t/99_podcoverage.t

lang/perl/Acme-CPANAuthors/trunk/lib/Acme/CPANAuthors.pm

@@ -6 +6 @@
 use Acme::CPANAuthors::Utils qw( cpan_authors cpan_packages );
 
-our $VERSION = '0.01';
+our $VERSION = '0.02';
 
 sub new {
@@ -131 +131 @@
     $kwalitee = $authors->kwalitee('ISHIGAKI');
 
+  If you don't like this interface, just use specific authors list.
+
+    use Acme::CPANAuthors::Japanese;
+
+    my %authors = Acme::CPANAuthors::Japanese->authors;
+
+    # note that ->author is context sensitive.
+    # however, you can't write this without dereference
+    # as "keys" checks the type (actually, the number) of args.
+    for my $name (keys %{ Acme::CPANAuthors::Japanese->authors }) {
+      print Acme::CPANAuthors::Japanese->authors->{$name}, "\n";
+    }
+
 =head1 DESCRIPTION
 

lang/perl/Acme-CPANAuthors/trunk/lib/Acme/CPANAuthors/Register.pm

@@ -10 +10 @@
   {
     no strict 'refs';
-    *{"$caller\::authors"} = sub { %authors };
+    *{"$caller\::authors"} = sub { wantarray ? %authors : \%authors };
   }
 }
@@ -34 +34 @@
   1;
 
+  # then you can get authors list like these.
+  # note that ->authors is context sensitive)
+
+  my %hash    = Acme::CPANAuthors::YourGroup->authors;
+  my $hashref = Acme::CPANAuthors::YourGroup->authors;
+
 =head1 DESCRIPTION
 
 This is used to register Pause IDs and real names of those who belong to your country/local perl mongers group/your company etc.
+
+=head1 SEE ALSO
+
+L<Acme::CPANAuthors>
 
 =head1 AUTHOR