Merge pull request #1280 from metacpan/haarg/fix-latest-perf

Fix performance of latest script
metacpan · Oct 1, 2024 · 36ada25 · 36ada25
2 parents a5dc636 + 6e1da8f
commit 36ada25
Show file tree

Hide file tree

Showing 2 changed files with 21 additions and 3 deletions.
diff --git a/lib/MetaCPAN/Script/Latest.pm b/lib/MetaCPAN/Script/Latest.pm
@@ -139,9 +139,19 @@ sub run {
             'Searching for ' . @$filter . ' of ' . $total . ' modules'
         }
         if @module_filters > 1;
-        my $scroll = $self->index->type('file')->query($query)->source( [ qw(
-            author date distribution download_url module.name release status
-        ) ] )->size(100)->raw->scroll;
+
+        my $scroll = $self->es->scroll_helper( {
+            index => $self->index->name,
+            type  => 'file',
+            size  => 100,
+            body  => {
+                query   => $query,
+                _source => [
+                    qw(author date distribution download_url module.name release status)
+                ],
+                sort => '_doc',
+            },
+        } );
 
         $found_total += $scroll->total;
 

diff --git a/lib/MetaCPAN/Script/Runner.pm b/lib/MetaCPAN/Script/Runner.pm
@@ -29,6 +29,14 @@ sub run {
             or File::Path::mkpath($path);
     }
 
+    if ( -t *STDERR ) {
+        push @{ $config->{logger} },
+            {
+            class  => 'Log::Log4perl::Appender::ScreenColoredLevels',
+            stdout => 0,
+            };
+    }
+
     my $obj = undef;
     my $ex  = undef;
     try {