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   3597138 use v5.24;
  38         503  
3 38     38   204 use warnings;
  38         69  
  38         1210  
4 38     38   2099 use experimental qw< signatures >;
  38         13886  
  38         285  
5 38     38   5532 no warnings qw< experimental::signatures >;
  38         80  
  38         6934  
6             { our $VERSION = '2.007001' }
7              
8 37     37   291 sub import ($package, @args) {
  37         88  
  37         86  
  37         60  
9 37         63 my $api = 'V1'; # default
10 37 100 100     547 $api = uc(shift @args) if @args && $args[0] =~ m{\A V\d+ \z}imxs;
11 37         18731 require "App/Easer/$api.pm";
12 37         376276 "App::Easer::$api"->export_to_level(1, $package, @args);
13             }
14              
15             1;
16              
17             __END__