| blib/lib/Exporter/ConditionalSubs.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 12 | 16 | 75.0 |
| line | true | false | branch |
|---|---|---|---|
| 129 | 8 | 3 | if (@args) |
| 131 | 0 | 8 | unless (@args) |
| 138 | 4 | 4 | if ref $condition eq 'CODE' |
| 141 | 4 | 4 | $thing eq '-if' ? : |
| 146 | 0 | 0 | if ($args[0] and $args[0] =~ /^-(?:if|unless)$/) |
| 158 | 4 | 7 | unless ($should_export_subs) |
| 163 | 0 | 4 | unless $stash->{'EXPORT_OK'} |
| 167 | 4 | 4 | if ($globref and *$globref{'CODE'}) |