add support for raw output mode

metacpan · May 12, 2014 · 30c4165 · 30c4165
1 parent 637c3fa
commit 30c4165
Show file tree

Hide file tree

Showing 2 changed files with 27 additions and 3 deletions.
diff --git a/examples/raw_output.pl b/examples/raw_output.pl
@@ -0,0 +1,9 @@
+use strict;
+use warnings;
+use Data::Printer;
+use MetaCPAN::Client;
+
+my $author =
+    MetaCPAN::Client->new(raw_output=>1)->author('XSAWYERX');
+
+p $author;
diff --git a/lib/MetaCPAN/Client.pm b/lib/MetaCPAN/Client.pm
@@ -21,6 +21,11 @@ has request => (
     handles => [qw<ua fetch post ssearch>],
 );
 
+has raw_output => (
+    is       => 'ro',
+    required => 0,
+);
+
 my @supported_searches = qw<
     author distribution favorite module rating release
 >;
@@ -143,6 +148,8 @@ sub _get {
     ref $response eq 'HASH'
         or croak sprintf( 'Failed to fetch %s (%s)', ucfirst($type), $arg );
 
+    $self->raw_output and return $response;
+
     my $class = 'MetaCPAN::Client::' . ucfirst($type);
     return $class->new_from_request($response);
 }
@@ -166,6 +173,8 @@ sub _search {
 
     my $scroller = $self->ssearch($type, $args, $params);
 
+    $self->raw_output and return $scroller;
+
     return MetaCPAN::Client::ResultSet->new(
         scroller => $scroller,
         type     => $type,
@@ -191,10 +200,10 @@ sub _reverse_deps {
     my $self = shift;
     my $dist = shift;
 
-    my $res;
+    my $response;
 
     eval {
-        $res = $self->fetch(
+        my $res = $self->fetch(
             '/search/reverse_dependencies/'.$dist,
             {
                 query  => { match_all => {} },
@@ -203,14 +212,20 @@ sub _reverse_deps {
             }
         );
 
+        $response = $res->{'hits'}{'hits'};
+
+        1;
+
     } or do {
         warn $@;
         return [];
     };
 
+    $self->raw_output and return $response;
+
     return +[
         map { MetaCPAN::Client::Release->new_from_request($_->{'_source'}) }
-        @{ $res->{'hits'}{'hits'} }
+        @{ $response }
     ];
 }