Use new /search/first API endpoint

Simplify data reading using the new endpoint.
metacpan · Jul 11, 2017 · 5a61b2f · 5a61b2f
1 parent 8ccb288
commit 5a61b2f
Showing 1 changed file with 3 additions and 4 deletions.
diff --git a/lib/MetaCPAN/Web/Model/API/Module.pm b/lib/MetaCPAN/Web/Model/API/Module.pm
@@ -49,12 +49,11 @@ sub search_web {
 
 sub first {
     my ( $self, $query ) = @_;
-    $self->request( "/search/simple", undef, { q => $query } )->transform(
+    $self->request( "/search/first", undef, { q => $query } )->transform(
         done => sub {
             my $data = shift;
-            return undef
-                unless ( $data->{hits}->{total} );
-            return $data->{hits}->{hits}->[0]->{fields}->{documentation};
+            return unless $data;
+            return $data->{documentation};
         }
     );
 }