File Coverage

blib/lib/Module/CheckLatestVersion.pm

Criterion	Covered	Total	%
statement	12	34	35.2
branch	0	18	0.0
condition	0	9	0.0
subroutine	4	5	80.0
pod	1	1	100.0
total	17	67	25.3

package Module::CheckLatestVersion;

use strict;
use warnings;

use Exporter qw(import);

our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2026-04-08'; # DATE
our $DIST = 'Module-CheckLatestVersion'; # DIST
our $VERSION = '0.001'; # VERSION

## no critic: Modules::ProhibitAutomaticExportation
our @EXPORT = qw(check_latest_version);

sub check_latest_version {
    return if
        $ENV{HARNESS_ACTIVE} ||
        $ENV{RELEASE_TESTING} ||
        $ENV{AUTOMATED_TESTING};

    no strict 'refs'; ## no critic: TestingAndDebugging::ProhibitNoStrict

    my $opts = ref $_[0] eq 'HASH' ? shift : {};
    my $mod = shift; $mod = caller() unless $mod;
    $opts->{die} //= $ENV{PERL_MODULE_CHECKLATESTVERSION_DIE};

    require Cache::File::Simple;
    my $cachekey = __PACKAGE__ . '|' . $mod;
    my $res = Cache::File::Simple::cache($cachekey);
    unless ($res) {
        # cache miss
        require Module::CheckVersion;
        $res = Module::CheckVersion::check_module_version(module => $mod);
        Cache::File::Simple::cache($cachekey, $res);

    }

    if ($res->[0] != 200) {
        warn "Cannot check latest version of module $mod: $res->[0] - $res->[1]";
        return;
    }

    unless ($res->[2]{is_latest_version}) {
        my $msg = "Module $mod (installed version: " .
            (defined($res->[2]{installed_version}) ? $res->[2]{installed_version} : "undef") .
            ") is not the latest version (" .
            (defined($res->[2]{latest_version}) ? $res->[2]{latest_version} : "undef") .
            ").";
        if ($opts->{die}) {
            $msg .= " Please update to the latest version first.";
            die $msg;
        } else {
            $msg .= " Please consider updateing to the latest version.";
            warn $msg;
        }
    }
}

1;
# ABSTRACT: Warn/die when a module is not the latest version

__END__