| blib/lib/Import/Export.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 22 | 22 | 100.0 |
| line | true | false | branch |
|---|---|---|---|
| 20 | 6 | 13 | unless my(@export) = @_ |
| 22 | 1 | 12 | unless (%EX) = %{"${pkg}::EX";} |
| 24 | 2 | 10 | if ref $export[-1] |
| 25 | 1 | 11 | if exists $options->{'-caller'} |
| 28 | 1 | 1 | "$options->{'clean'}" eq 'import' ? : |
| 2 | 8 | if $options->{'clean'} | |
| 43 | 6 | 14 | unless ($EX{$ex}) |
| 48 | 5 | 1 | scalar @export ? : |
| 52 | 6 | 8 | $ex =~ s/^(\W)// ? : |
| 53 | 1 | 13 | if $caller->can($ex) |
| 55 | 1 | 12 | unless my $exporting = $EXTYPE{$type} |