here are some examples

metacpan · Apr 27, 2014 · 9643f54 · 9643f54
1 parent aaf3ee5
commit 9643f54
Show file tree

Hide file tree

Showing 12 changed files with 203 additions and 0 deletions.
diff --git a/Changes b/Changes
@@ -5,6 +5,7 @@ Revision history for MetaCPAN-Client (previously MetaCPAN-API)
             * Add proper POD fetching from module/file objects.
             * GH #1: Switch from JSON.pm to JSON::MaybeXS.
             * GH #2: Remove incorrect and unnecessary check for class names.
+            * Add some use-case examples (examples directory)
 
 1.002000    24.04.14
             * Add 'not' support for complex queries

diff --git a/examples/.#00-object.pl b/examples/.#00-object.pl
@@ -0,0 +1 @@
+mickey@fireball.32319:1398238089
diff --git a/examples/author-country.pl b/examples/author-country.pl
@@ -0,0 +1,19 @@
+use strict;
+use warnings;
+use DDP;
+
+use MetaCPAN::Client;
+
+my @countries = qw<AT AU BE CA CH DE ES FR GB
+                   IL IR IS NL PL RO RU UK US>;
+
+my %cc2authors;
+
+for my $cc ( @countries ) {
+    my $authors =
+        MetaCPAN::Client->new->author({ country => $cc });
+
+    $cc2authors{$cc} = $authors->total;
+}
+
+p %cc2authors;
diff --git a/examples/author.pl b/examples/author.pl
@@ -0,0 +1,18 @@
+use strict;
+use warnings;
+use DDP;
+
+use MetaCPAN::Client;
+
+my $author =
+    MetaCPAN::Client->new->author('XSAWYERX');
+
+my %output = (
+    NAME    => $author->name,
+    EMAILS  => $author->email,
+    COUNTRY => $author->country,
+    CITY    => $author->city,
+    PROFILE => $author->profile,
+);
+
+p %output;
diff --git a/examples/author_releases.pl b/examples/author_releases.pl
@@ -0,0 +1,16 @@
+use strict;
+use warnings;
+use DDP;
+use MetaCPAN::Client;
+
+my $mcpan = MetaCPAN::Client->new;
+
+my $author = $mcpan->author('XSAWYERX');
+
+my $releases = $author->releases;
+
+p $releases->total;
+
+while ( my $rel = $releases->next ) {
+    p $rel->name;
+}
diff --git a/examples/complex-either-and.pl b/examples/complex-either-and.pl
@@ -0,0 +1,23 @@
+use strict;
+use warnings;
+use DDP;
+
+use MetaCPAN::Client;
+
+my $authors =
+    MetaCPAN::Client->new->author({
+        either => [
+            { name => 'Dave *'  },
+            { name => 'David *' },
+        ],
+        all => [
+            { email => '*gmail.com' }
+        ],
+    });
+
+my %output = (
+    TOTAL => $authors->total,
+    NAMES => [ map { $authors->next->name } 0 .. 9 ],
+);
+
+p %output;
diff --git a/examples/complex-either-not.pl b/examples/complex-either-not.pl
@@ -0,0 +1,20 @@
+use strict;
+use warnings;
+use DDP;
+
+use MetaCPAN::Client;
+
+my $authors =
+    MetaCPAN::Client->new->author({
+        either => [
+            { name => 'Dave *'  },
+            { name => 'David *' },
+        ],
+        not => [
+            { name => 'Dave C*' },
+            { name => 'David M*' },
+        ]
+    });
+
+print "\n";
+p ( $authors->total );
diff --git a/examples/complex.pl b/examples/complex.pl
@@ -0,0 +1,20 @@
+use strict;
+use warnings;
+use DDP;
+
+use MetaCPAN::Client;
+
+my $authors =
+    MetaCPAN::Client->new->author({
+        either => [
+            { name => 'Dave *'  },
+            { name => 'David *' },
+        ]
+    });
+
+my %output = (
+    TOTAL => $authors->total,
+    NAMES => [ map { $authors->next->name } 0 .. 9 ],
+);
+
+p %output;
diff --git a/examples/distribution.pl b/examples/distribution.pl
@@ -0,0 +1,15 @@
+use strict;
+use warnings;
+use DDP;
+
+use MetaCPAN::Client;
+
+my $dist =
+    MetaCPAN::Client->new->distribution('Moose');
+
+my %output = (
+    NAME => $dist->name,
+    BUGS => $dist->bugs,
+);
+
+p %output;
diff --git a/examples/release.pl b/examples/release.pl
@@ -0,0 +1,18 @@
+use strict;
+use warnings;
+use DDP;
+
+use MetaCPAN::Client;
+
+my $release =
+    MetaCPAN::Client->new->release('Moo');
+
+my %output = (
+    AUTHOR  => $release->author,
+    DATE    => $release->date,
+    STATUS  => $release->status,
+    VERSION => $release->version,
+    TESTS   => $release->tests,
+);
+
+p %output;
diff --git a/examples/rev_deps-recursive.pl b/examples/rev_deps-recursive.pl
@@ -0,0 +1,34 @@
+use strict;
+use warnings;
+use Term::ANSIColor;
+
+use MetaCPAN::Client;
+
+$|=1;
+
+my $dist = 'Hijk';
+
+my $mcpan = MetaCPAN::Client->new;
+
+print "\n\n", colored("* $dist", 'green'), "\n";
+dig($dist,0);
+
+sub dig {
+    my $dist  = shift;
+    my $level = shift;
+
+    my $res = $mcpan->reverse_dependencies($dist);
+
+    for ( @$res ) {
+        if ( $level ) {
+            printf "%s%s\n",
+                colored('....'x$level, 'yellow'),
+                $_->distribution;
+        } else {
+            printf "\n>> %s\n",
+                colored($_->distribution, 'blue');
+        }
+
+        dig($_->distribution,$level+1);
+    }
+};
diff --git a/examples/rev_deps.pl b/examples/rev_deps.pl
@@ -0,0 +1,18 @@
+use strict;
+use warnings;
+use DDP;
+
+use MetaCPAN::Client;
+
+my $deps =
+    MetaCPAN::Client->new->rev_deps('Hijk');
+
+my @output = (
+    map +{
+        name   => $_->name,
+        author => $_->author
+    },
+    @{$deps}
+);
+
+p @output;