Changeset 1065

Timestamp:

11/04/07 01:47:13 (6 years ago)

Author:

charsbar

Message:

lang/perl/Acme-JapaneseCPANAuthors: switched to use Parse::CPAN::Authors/Packages and Gravatar::URL

Location:

lang/perl/Acme-JapaneseCPANAuthors/trunk

Files:

• Changes (modified) (1 diff)
• MANIFEST (modified) (1 diff)
• Makefile.PL (modified) (1 diff)
• lib/Acme/JapaneseCPANAuthors.pm (modified) (4 diffs)
• lib/Acme/JapaneseCPANAuthors/Utils.pm (added)

lang/perl/Acme-JapaneseCPANAuthors/trunk/Changes

@@ -1 +1 @@
 Revision history for Acme-JapaneseCPANAuthors
+
+0.071006 2007/11/04
+  - switched to Parse::CPAN::Authors/Packages and Gravatar::URL
 
 0.071006 2007/10/06

lang/perl/Acme-JapaneseCPANAuthors/trunk/MANIFEST

@@ -2 +2 @@
 lib/Acme/JapaneseCPANAuthors.pm
 lib/Acme/JapaneseCPANAuthors/Registered.pm
+lib/Acme/JapaneseCPANAuthors/Utils.pm
 Makefile.PL
 MANIFEST                        This list of files

lang/perl/Acme-JapaneseCPANAuthors/trunk/Makefile.PL

@@ -9 +9 @@
   ABSTRACT_FROM  => 'lib/Acme/JapaneseCPANAuthors.pm',
   PREREQ_PM => {
-    'CPAN' => 0,  # not yet sure which version we should require
-    'Digest::MD5' => 0,
-    'Test::UseAllModules' => 0,
-    'URI::Escape' => 0,
+    'Gravatar::URL'         => 0,
+    'Parse::CPAN::Authors'  => 0,
+    'Parse::CPAN::Packages' => 0,
+    'Test::UseAllModules'   => 0,
   },
   ($ExtUtils::MakeMaker::VERSION >= 6.31

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

@@ -4 +4 @@
 use warnings;
 use Acme::JapaneseCPANAuthors::Registered;
+use Acme::JapaneseCPANAuthors::Utils;
 
-our $VERSION = '0.071006';
+our $VERSION = '0.071104';
 
 sub count {
@@ -40 +41 @@
   return unless $id;
 
-  require CPAN;
-  my $author = $CPAN::META->instance('CPAN::Author' => $id);
+  require Parse::CPAN::Packages;
+  my $cpan = Parse::CPAN::Packages->new( _package_file() );
 
-  # ripped from CPAN.pm
-  my @checksumfile = $id =~ /(.)(.)(.*)/;
-  $checksumfile[1] = join '', @checksumfile[0,1];
-  $checksumfile[2] = join '', @checksumfile[1,2];
-
-  {
-    my @items = $author->dir_listing([$checksumfile[0], 'CHECKSUMS'], 0, 1);
-    # directory not found
-    return unless grep { $_->[2] eq $checksumfile[1] } @items;
-  }
-  {
-    my @items = $author->dir_listing([@checksumfile[0,1], 'CHECKSUMS'], 0, 1);
-    # directory not found
-    return unless grep { $_->[2] eq $checksumfile[2] } @items;
+  my @packages;
+  foreach my $package ( $cpan->distributions ) {
+    if ( $package->cpanid eq $id ) {
+      push @packages, $package;
+    }
   }
 
-  my @items = $author->dir_listing([@checksumfile, 'CHECKSUMS'], 1, 1 );
-
-  my %distros;
-  foreach my $item ( @items ) {
-    my $file = my $dist_id = $item->[2];
-    next if $file =~ /\.meta/;
-    $dist_id =~ s/\-[\w\.]+(\.tar\.gz|\.tgz|\.zip)$//;
-    unshift @{ $distros{$dist_id} ||= [] }, "$id/$file";
-  }
-
-  return %distros;
+  return @packages;
 }
 
@@ -77 +59 @@
   return unless $id;
 
-  require CPAN;
-  my $author = CPAN::Shell->expand_by_method('CPAN::Author' => ['id'] => $id);
+  require Parse::CPAN::Authors;
+  require Gravatar::URL;
+  my $cpan   = Parse::CPAN::Authors->new( _author_file() );
+  my $author = $cpan->author($id);
 
-  require Digest::MD5;
-  my $cpan_email = $author->email;
-  my $gravatar_id = Digest::MD5::md5_hex($cpan_email);
-  my $uri = 'http://www.gravatar.com/avatar.php?gravatar_id='.$gravatar_id;
-  if ( $options{default} ) {
-    require URI::Escape;
-    $uri .= '&default='.URI::Escape::uri_escape($options{default});
-  }
-  if ( $options{size} ) {
-    $uri .= '&size='.$options{size};
-  }
-  if ( $options{rating} ) {
-    $uri .= '&rating='.$options{rating};
-  }
-  return $uri;
+  return Gravatar::URL::gravatar_url( email => $author->email, %options );
 }
 
@@ -140 +110 @@
 =head2 distributions
 
-returns a hash whose keys are distribution names written/owned
-by the person of the id, and the values are arrayrefs of the
-distribution ids, with which you can create CPAN::Distribution
-or CPAN::DistnameInfo object.
+returns an array of Parse::CPAN::Packages::Distribution objects
+for the person of the id.
 
 =head2 avatar