cpanver

#!/usr/bin/env perl

use warnings;
use strict;

use Mojo::UserAgent;

die "usage: cpanver <module>\n" unless @ARGV;

my ($module) = @ARGV;

my $url = sprintf 'http://fastapi.metacpan.org/v1/package/%s', $module;
my $ua = Mojo::UserAgent->new;

my $path = $module;
$path =~ s{::}{/}g;
$path =~ s{$}{.pm};
eval { require $path };

my $ver = $@ ? "not installed" : $module->VERSION;
print "Installed: $ver\n";

my $tx = $ua->get($url);
if ($tx->res->is_success) {
	my $json = $tx->res->json;
	print "Latest: ", $json->{version}, "\n";
}