| blib/lib/ExportTo.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 17 | 20 | 85.0 |
| line | true | false | branch |
|---|---|---|---|
| 11 | 6 | 2 | unless defined &{$pkg . '::export_to';} |
| 17 | 8 | 4 | if $_[0] eq 'ExportTo' |
| 21 | 4 | 8 | if (ref $subs eq 'HASH') { } |
| 24 | 3 | 3 | ref $cr_or_name eq 'CODE' ? : |
| 27 | 3 | 3 | $esub =~ s/\+//go || $subname && $subname =~ s/\+//go ? : |
| 29 | 5 | 0 | if ($cr or $cr = $pkg->can($subname)) { } |
| 39 | 11 | 2 | if (not $sub =~ /::/o) { } |
| 42 | 2 | 0 | if $sub =~ s/^(.+):://o |
| 46 | 5 | 8 | $esub =~ s/\+//go ? : |
| 48 | 13 | 0 | if (my $cr = $pkg->can($sub)) { } |