query-script-from-metacpan.pl

#!/usr/bin/env perl
use strict;
use warnings;
use HTTP::Tiny;
use JSON::PP ();
use DDP;

my $name = shift || "cpm";
my $query = {
  "fields" => [
    "author",
    "binary",
    "date",
    "directory",
    "distribution",
    "documentation",
    "indexed",
    "maturity",
    "name",
    "path",
    "release",
    "version",
    "version_numified"
  ],
  "query" => {
    "bool" => {
      "must" => [
        { "term" => { "authorized" => "true" } },
        { "term" => { "indexed" => "true" } },
        { "term" => { "mime" => "text/x-script.perl" } },
        { "term" => { "name" => $name } },
        { "term" => { "status" => "latest" } },
        { "bool" => {
          "should" => [
            { "term" => { "path" => $name } },
            { "term" => { "path" => "bin/$name" } },
            { "term" => { "path" => "script/$name" } },
            { "term" => { "path" => "scripts/$name" } },
          ],
          },
        },
      ],
    },
  }
};

my $res = HTTP::Tiny->new->get('http://api.metacpan.org/v0/file/_search?pretty=true', {
    content => JSON::PP::encode_json($query),
});

if ($res->{success}) {
    my $hash = JSON::PP::decode_json($res->{content});
    p $hash->{hits}{hits};
} else {
    p $res;
}