| inc/Exporter/Lite.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 4 | 20 | 20.0 |
| line | true | false | branch |
|---|---|---|---|
| 19 | 9 | 3 | if (not @imports) { } |
| 29 | 0 | 3 | if ($eokglob = ${$exporter . '::';}{'EXPORT_OK'} and *$eokglob{'ARRAY'}) |
| 30 | 0 | 0 | if (@{$exporter . '::EXPORT_OK';}) { } |
| 36 | 0 | 0 | if $denied |
| 56 | 18 | 0 | unless $sym =~ s/^(\W)// |
| 68 | 0 | 0 | $type eq '*' ? : |
| 0 | 0 | $type eq '%' ? : | |
| 0 | 0 | $type eq '@' ? : | |
| 0 | 0 | $type eq '$' ? : | |
| 0 | 0 | $type eq '&' ? : |