Adds scripts/endpoints/release/6-latest-releases-with-git-repo-es.pl

metacpan · Jul 28, 2013 · e3d2f58 · e3d2f58
1 parent 65d109c
commit e3d2f58
Showing 1 changed file with 33 additions and 0 deletions.
diff --git a/scripts/endpoints/release/6-latest-releases-with-git-repo-es.pl b/scripts/endpoints/release/6-latest-releases-with-git-repo-es.pl
@@ -0,0 +1,33 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+use feature qw( say );
+
+use Data::Printer;
+use MetaCPAN::Util qw( es );
+
+my @must = (
+    { term => { 'release.resources.repository.type' => 'git' }, },
+    { term => { status                              => 'latest' } },
+    { term => { authorized                          => 'true' } },
+);
+
+my $scroller = es()->scrolled_search(
+    query => {
+        filtered => {
+            query  => { match_all => {} },
+            filter => { bool      => { must => \@must } },
+        },
+    },
+    fields      => [ 'author', 'date', 'distribution', 'name', 'resources' ],
+    search_type => 'scan',
+    scroll      => '5m',
+    index       => 'v0',
+    type        => 'release',
+    size        => 10,
+);
+
+while ( my $result = $scroller->next ) {
+    my $release = $result->{_source};
+}