File Coverage

blib/lib/Module/CheckLatestVersion.pm

Criterion	Covered	Total	%
statement	23	50	46.0
branch	0	18	0.0
condition	0	16	0.0
subroutine	8	9	88.8
pod	1	1	100.0
total	32	94	34.0

package Module::CheckLatestVersion;

use 5.010001;
use strict;
use warnings;
use Log::ger;
use Log::ger::Format::MultilevelLog (); # for scan prereqs
use Log::ger::Format 'MultilevelLog';

use Exporter qw(import);

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

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

sub check_latest_version {
    my $opts = ref $_[0] eq 'HASH' ? {%{ shift()} } : {};
    my $mod = shift; $mod = caller() unless $mod;
    $opts->{die} //= $ENV{PERL_MODULE_CHECKLATESTVERSION_OPT_DIE};
    $opts->{log_level} //= 'debug';
    $opts->{do_check} //= 0 if
        $ENV{HARNESS_ACTIVE} ||
        $ENV{RELEASE_TESTING} ||
        $ENV{AUTOMATED_TESTING} ||
        $ENV{PERL_MODULE_CHECKLATESTVERSION_SKIP};

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

    require Cache::File::Simple;
    my $cachekey = __PACKAGE__ . '|' . $mod;
    log($opts->{log_level}, "Checking version of module $mod from cache ...");
    my $res = Cache::File::Simple::cache($cachekey);
    unless ($res) {
        # cache miss
        log($opts->{log_level}, "Checking version of module $mod (cache miss) ...");
        require Module::CheckVersion;
        $res = Module::CheckVersion::check_module_version(module => $mod);
    }

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

    if ($res->[2]{is_latest_version}) {
        log($opts->{log_level}, "Module $mod is latest version ($res->[2]{latest_version}), caching result ...");
        # cache only positive result
        Cache::File::Simple::cache($cachekey, $res);
    } else {
        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 updating to the latest version.";
            warn $msg;
        }
    }
}

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

__END__