Yet Another CPAN Grep

Module-CheckVersion ( P/PE/PERLANCAR/Module-CheckVersion-0.08.tar.gz, PERLANCAR, 2017; MetaCPAN )

Module-CheckVersion/lib/Module/CheckVersion/cpan.pm ( view source; MetaCPAN )

 DATE
our $VERSION = '0.08'; # VERSION

use 5.010;
use strict;
use warnings;

use HTTP::Tiny;
use JSON::MaybeXS;

sub check_latest_version {
    my ($mod, $installed_version, $chkres) = @_;

    my $r

$res->{reason}"] unless $res->{success};
    eval { $res = JSON::MaybeXS::decode_json($res->{content}) };
    return [500, "Can't decode JSON API response: $@"] if $@;
    return [500, "Error from API