Added /favorite/leaderboard API endpoint

This new endpoint will be used to replace the query sent from WEB.
metacpan · Jun 3, 2017 · e2b2a42 · e2b2a42
1 parent 15547fe
commit e2b2a42
Show file tree

Hide file tree

Showing 2 changed files with 35 additions and 0 deletions.
diff --git a/lib/MetaCPAN/Document/Favorite.pm b/lib/MetaCPAN/Document/Favorite.pm
@@ -127,5 +127,33 @@ sub recent {
     };
 }
 
+sub leaderboard {
+    my $self = shift;
+
+    my $body = {
+        size         => 0,
+        query        => { match_all => {} },
+        aggregations => {
+            leaderboard =>
+                { terms => { field => 'distribution', size => 600 }, },
+        },
+    };
+
+    my $ret = $self->es->search(
+        index => $self->index->name,
+        type  => 'favorite',
+        body  => $body,
+    );
+
+    my @leaders
+        = @{ $ret->{aggregations}{leaderboard}{buckets} }[ 0 .. 99 ];
+
+    return {
+        leaderboard => \@leaders,
+        took        => $ret->{took},
+        total       => $ret->{total}
+    };
+}
+
 __PACKAGE__->meta->make_immutable;
 1;
diff --git a/lib/MetaCPAN/Server/Controller/Favorite.pm b/lib/MetaCPAN/Server/Controller/Favorite.pm
@@ -45,5 +45,12 @@ sub recent : Path('recent') : Args(0) {
     $c->stash($data);
 }
 
+sub leaderboard : Path('leaderboard') : Args(0) {
+    my ( $self, $c ) = @_;
+    my $data = $self->model($c)->raw->leaderboard();
+    $data or return;
+    $c->stash($data);
+}
+
 __PACKAGE__->meta->make_immutable;
 1;