Merge pull request #1120 from metacpan/haarg/totals-in-leaderboard

include total favorited dists in leaderboard output
metacpan · Aug 23, 2023 · 0521a59 · 0521a59
2 parents 0841c4c + a65da55
commit 0521a59
Showing 1 changed file with 13 additions and 7 deletions.
diff --git a/lib/MetaCPAN/Query/Favorite.pm b/lib/MetaCPAN/Query/Favorite.pm
@@ -127,8 +127,17 @@ sub leaderboard {
         size         => 0,
         query        => { match_all => {} },
         aggregations => {
-            leaderboard =>
-                { terms => { field => 'distribution', size => 600 }, },
+            leaderboard => {
+                terms => {
+                    field => 'distribution',
+                    size  => 100,
+                },
+            },
+            totals => {
+                cardinality => {
+                    field => "distribution",
+                },
+            },
         },
     };
 
@@ -138,13 +147,10 @@ sub leaderboard {
         body  => $body,
     );
 
-    my @leaders
-        = @{ $ret->{aggregations}{leaderboard}{buckets} }[ 0 .. 99 ];
-
     return {
-        leaderboard => \@leaders,
+        leaderboard => $ret->{aggregations}{leaderboard}{buckets},
+        total       => $ret->{aggregations}{totals}{value},
         took        => $ret->{took},
-        total       => $ret->{total}
     };
 }