From a65da55f1ae94c4bff2b9638e1fc8618704c56de Mon Sep 17 00:00:00 2001
From: Graham Knop <haarg@haarg.org>
Date: Wed, 23 Aug 2023 15:54:52 +0200
Subject: [PATCH] include total favorited dists in leaderboard output

---
 lib/MetaCPAN/Query/Favorite.pm | 20 +++++++++++++-------
 1 file changed, 13 insertions(+), 7 deletions(-)

diff --git a/lib/MetaCPAN/Query/Favorite.pm b/lib/MetaCPAN/Query/Favorite.pm
index 78ac330e7..2d1750e9f 100644
--- 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}
     };
 }