File Coverage

blib/lib/use.pm

Criterion	Covered	Total	%
statement	21	29	72.4
branch	2	8	25.0
condition	1	6	16.6
subroutine	6	7	85.7
pod			n/a
total	30	50	60.0

package use;
use strict;
use warnings;
use 5.008;
our $VERSION = '0.05';
use base 'use::perl5';
use version 0.86 'is_lax';

sub use {
    unshift @_, __PACKAGE__;
    goto &{__PACKAGE__->can('import')};
}

sub import {
    return unless @_;
    my $class = shift(@_);
    if (@_ and is_lax($_[0])) {
        my $perl_version = version->parse(shift(@_))->numify;
        eval "use $perl_version; 1" or die $@;
        if ($perl_version >= 5.009003 and $perl_version < 6) {
            my $sub_version = int(($perl_version - 5) * 1000);
            push @_, (
                strict =>
                feature => [":5.$sub_version"],
            );
        }
    }
    unshift @_, $class;
    goto &{use::perl5->can('importer')};
}

1;

__END__