File Coverage

blib/lib/last.pm
Criterion Covered Total %
statement n/a
branch n/a
condition n/a
subroutine 2 2 100.0
pod n/a
total 2 2 100.0


line stmt bran cond sub pod time code
1             package last;
2              
3       1     use strict;
4             use warnings;
5              
6             use Carp;
7             use version;our $VERSION = qv('0.0.1');
8              
9             our $module;
10             our $failed = {};
11              
12             sub import {
13       1     shift;
14             local $UNIVERSAL::Level = $UNIVERSAL::Level + 1;
15             local $Carp::CarpLevel = $Carp::CarpLevel + 1;
16             use first reverse @_;
17             $module = $first::module;
18             $failed = $first::failed;
19             }
20              
21             1;
22              
23             __END__