blib/lib/PERLANCAR/Exporter/Lite.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
branch | 14 | 16 | 87.5 |
line | true | false | branch |
---|---|---|---|
12 | 1 | 0 | if (@_ and $_[0] eq 'import') |
17 | 6 | 1 | @_ ? : |
19 | 1 | 6 | unless (grep {$_ eq $exp;} @{"${exporter}::EXPORT";}, @{"${exporter}::EXPORT_OK";}) |
23 | 1 | 5 | if ($exp =~ /\A\$(.+)/) { } |
1 | 4 | elsif ($exp =~ /\A\@(.+)/) { } | |
1 | 3 | elsif ($exp =~ /\A\%(.+)/) { } | |
1 | 2 | elsif ($exp =~ /\A\*(\w+)\z/) { } | |
2 | 0 | elsif ($exp =~ /\A&?(\w+)\z/) { } |