modulename to distribtion name with MetaCPAN (using Elastic Search)

gistfile1.pl

#!/usr/bin/env perl
 
use 5.016;
use warnings;
 
use LWP::UserAgent;
use HTTP::Request::Common;
use JSON::PP qw(encode_json decode_json);

sub mod2dist {
    my $ua = LWP::UserAgent->new;
    $ua->agent("Mod2Dist/0.01");
    $ua->timeout(10);
    $ua->env_proxy;
     
    my $response = $ua->request(
        POST "http://api.metacpan.org/v0/module/_search", Content => encode_json({
           'fields' => ['distribution'],
           'query' => {
                bool => {
                    must => [
                        {
                            match => { "module.name" => shift }
                        },
                        {
                            match => { "status" => "latest" }
                        }
                    ]
                }
            }
        }),
    );

    my $data = decode_json($response->content);
    return $data->{hits}{hits}[0]{fields}{distribution};
}

say mod2dist(shift);