| blib/lib/indirect.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 20 | 20 | 100.0 |
| line | true | false | branch |
|---|---|---|---|
| 69 | 1 | 14 | if ($ENV{'PERL_INDIRECT_PM_DISABLE'}) { } |
| 150 | 1023 | 24 | if ($arg eq 'hook') { } |
| 17 | 7 | elsif ($arg =~ /^:?fatal$/i) { } | |
| 5 | 2 | elsif ($arg =~ /^:?global$/i) { } | |
| 151 | 1 | 1022 | if $fatal |
| 154 | 1 | 16 | if defined $hook |
| 161 | 2047 | 1021 | unless (defined $hook) |
| 162 | 15 | 2032 | $fatal ? : |
| 166 | 5 | 3063 | if ($global) { } |
| 206 | 39 | 301 | $obj =~ /^\s*\{/ ? : |