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 38     38   3030203 use v5.24;
  38         440  
3 38     38   166 use warnings;
  38         57  
  38         1056  
4 38     38   1706 use experimental qw< signatures >;
  38         11225  
  38         242  
5 38     38   4957 no warnings qw< experimental::signatures >;
  38         92  
  38         5788  
6             { our $VERSION = '2.007' }
7              
8 37     37   234 sub import ($package, @args) {
  37         69  
  37         72  
  37         47  
9 37         50 my $api = 'V1'; # default
10 37 100 100     485 $api = uc(shift @args) if @args && $args[0] =~ m{\A V\d+ \z}imxs;
11 37         15660 require "App/Easer/$api.pm";
12 37         315998 "App::Easer::$api"->export_to_level(1, $package, @args);
13             }
14              
15             1;
16              
17             __END__