another example (top 20 favorite distributions)

metacpan · Jan 27, 2015 · c27259a · c27259a
1 parent 0e85828
commit c27259a
Showing 1 changed file with 27 additions and 0 deletions.
diff --git a/examples/top20_favorite_distributions.pl b/examples/top20_favorite_distributions.pl
@@ -0,0 +1,27 @@
+use strict;
+use warnings;
+use Data::Printer;
+
+use MetaCPAN::Client;
+
+# TOP 20 FAVORITE DISTRIBUTIONS
+
+my $mcpan = MetaCPAN::Client->new();
+my $favs  = $mcpan->all('favorites', {
+    facets => {
+        distribution => {
+            terms => {
+                field => "distribution",
+                size  => 20,
+                order => "count",
+            }
+        },
+    }
+});
+
+print "TOP 20 FAVORITE DISTRIBUTIONS:\n";
+
+my $count = 1;
+for ( @{ $favs->facets->{distribution}{terms} } ) {
+    printf "%3d) %5d  %-20s\n", $count++, @{$_}{qw/count term/};
+}