File Coverage

blib/lib/Perinci/Sub/Dep/pm.pm

Criterion	Covered	Total	%
statement	30	31	96.7
branch	7	10	70.0
condition			n/a
subroutine	6	6	100.0
pod			n/a
total	43	47	91.4

package Perinci::Sub::Dep::pm;

use 5.010001;
use strict;
use warnings;

use Perinci::Sub::DepUtil qw(declare_function_dep);

our $VERSION = '0.30'; # VERSION

declare_function_dep(
    name => 'pm',
    schema => ['str*' => {}],
    check => sub {
        my ($val) = @_;
        my $m = $val;
        my $wv; # wanted version
        $m =~ s/\s*(?:>=)\s*([0-9]\S*)$// and $wv = $1;
        $m =~ s!::!/!g;
        $m .= ".pm";
        eval { require $m };
        my $e = $@;
        return "Can't load module $val" if $e;
        no strict 'refs';
        if (defined $wv) {
            require Sort::Versions;
            my $mv = ${"$m\::VERSION"};
            defined($mv) or return "Can't get version from $m";
            return "Version of $m too old ($mv, wanted $wv)"
                if Sort::Versions::versioncmp($wv, $mv) < 0;
        }
        "";
    }
);

1;
# ABSTRACT: Depend on a Perl module

__END__