File Coverage

blib/lib/App/Easer.pm
Criterion Covered Total %
statement 19 19 100.0
branch 2 2 100.0
condition 3 3 100.0
subroutine 5 5 100.0
pod n/a
total 29 29 100.0


line stmt bran cond sub pod time code
1             package App::Easer;
2 35     35   3463508 use v5.24;
  35         506  
3 35     35   195 use warnings;
  35         64  
  35         1175  
4 35     35   2213 use experimental qw< signatures >;
  35         14632  
  35         264  
5 35     35   4929 no warnings qw< experimental::signatures >;
  35         80  
  35         6829  
6             { our $VERSION = '2.006' }
7              
8 34     34   311 sub import ($package, @args) {
  34         110  
  34         77  
  34         51  
9 34         64 my $api = 'V1'; # default
10 34 100 100     535 $api = uc(shift @args) if @args && $args[0] =~ m{\A V\d+ \z}imxs;
11 34         17769 require "App/Easer/$api.pm";
12 34         396266 "App::Easer::$api"->export_to_level(1, $package, @args);
13             }
14              
15             1;
16              
17             __END__