Use new /favorite/leaderboard API endpoint

metacpan · Jun 4, 2017 · b606f9b · b606f9b
1 parent 93aecb9
commit b606f9b
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 17 deletions.
diff --git a/lib/MetaCPAN/Web/Controller/Favorite.pm b/lib/MetaCPAN/Web/Controller/Favorite.pm
@@ -23,15 +23,14 @@ sub recent : Local : Args(0) {
 sub leaderboard : Local : Args(0) {
     my ( $self, $c ) = @_;
 
-    my $data = $c->model('API::Favorite')->leaderboard( $c->req->page )->recv;
-    my @leaders
-        = @{ $data->{aggregations}->{leaderboard}->{buckets} }[ 0 .. 99 ];
+    my $data = $c->model('API::Favorite')->leaderboard();
+    return unless $data;
 
     $c->stash(
         {
-            leaders  => \@leaders,
+            leaders  => $data->{leaderboard},
             took     => $data->{took},
-            total    => $data->{hits}->{total},
+            total    => $data->{total},
             template => 'favorite/leaderboard.html',
         }
     );

diff --git a/lib/MetaCPAN/Web/Model/API/Favorite.pm b/lib/MetaCPAN/Web/Model/API/Favorite.pm
@@ -108,18 +108,9 @@ sub recent {
 }
 
 sub leaderboard {
-    my ( $self, $page ) = @_;
-    $self->request(
-        '/favorite/_search',
-        {
-            size         => 0,
-            query        => { match_all => {} },
-            aggregations => {
-                leaderboard =>
-                    { terms => { field => 'distribution', size => 600 }, },
-            },
-        }
-    );
+    my ($self) = @_;
+    my $data = $self->request('/favorite/leaderboard')->recv;
+    return $data;
 }
 
 sub find_plussers {