#!/usr/bin/perl
# THIS SCRIPT DOES *NOT* WORK
# Get the latest version numbers of your favorite modules
# https://github.com/metacpan/metacpan-api/blob/master/docs/API-docs.md

use strict;
use warnings;
use diagnostics;

use Data::Dumper;
use HTTP::Tiny;

my $url = 'https://fastapi.metacpan.org/v1/release/_search';

# WHAT IS THIS?
my $query = q({
    "query" : { "terms" : { "distribution" : [
        "Mojolicious",
        "MetaCPAN-API",
        "DBIx-Class"
    ] } },
    "filter" : { "term" : { "status" : "latest" } },
    "fields" : [ "distribution", "version" ],
    "size"   : 3
});

my $http = HTTP::Tiny->new;
my $res  = $http->post_form($url,$http->www_form_urlencode($query));

print Dumper($res);