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 45     45   7590158 use v5.24;
  45         177  
3 45     45   282 use warnings;
  45         118  
  45         3336  
4 45     45   2355 use experimental qw< signatures >;
  45         20717  
  45         4274  
5 45     45   8898 no warnings qw< experimental::signatures >;
  45         163  
  45         12140  
6             { our $VERSION = '2.014' }
7              
8 44     44   395 sub import ($package, @args) {
  44         126  
  44         105  
  44         92  
9 44         80 my $api = 'V1'; # default
10 44 100 100     610 $api = uc(shift @args) if @args && $args[0] =~ m{\A V\d+ \z}imxs;
11 44         52022 require "App/Easer/$api.pm";
12 44         896856 "App::Easer::$api"->export_to_level(1, $package, @args);
13             }
14              
15             1;
16              
17             __END__