blib/lib/Import/Export.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
branch | 18 | 18 | 100.0 |
line | true | false | branch |
---|---|---|---|
20 | 6 | 12 | unless my(@export) = @_ |
21 | 1 | 11 | if ref $export[-1] |
24 | 1 | 11 | unless (%EX) = %{"${pkg}::EX";} |
32 | 1 | 8 | if $options->{'clean'} |
39 | 7 | 13 | unless ($EX{$ex}) |
44 | 6 | 1 | scalar @export ? : |
48 | 6 | 7 | $ex =~ s/^(\W)// ? : |
49 | 1 | 12 | if $caller->can($ex) |
51 | 1 | 11 | unless my $exporting = $EXTYPE{$type} |