From 661e15455f1262b430752beb283eab20eb198b5b Mon Sep 17 00:00:00 2001
From: Mickey Nasriachi <mickey@cpan.org>
Date: Tue, 11 Jul 2017 08:41:47 +0100
Subject: [PATCH] Use new /search/first API endpoint

Simplify data reading using the new endpoint.
---
 lib/MetaCPAN/Web/Model/API/Module.pm | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/lib/MetaCPAN/Web/Model/API/Module.pm b/lib/MetaCPAN/Web/Model/API/Module.pm
index 60340d8a9b..c6f1b44d07 100644
--- 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};
         }
     );
 }