abs/;
use Furl;
use Getopt::Long qw/:config posix_default no_ignore_case bundling auto_help/;
use JSON;
use Module::CoreList;
use Term::ANSIColor qw/colored/;
our $VERSION = "0.02";
$ENV{ANSI_COLORS
);
my $res = $furl->post(
METACPAN_API_URL,
[ 'Content-Type' => 'application/json' ],
sprintf( <<'EOQ', $module_name, $version_dscr ) );
{
"query": {
{ %s }
]
}
}
EOQ
my $content = decode_json( $res->{content} );
my @deps = @{$content->{hits}->{hits}[0]->{fields}->{dependency}};