| File: | blib/lib/indirect.pm |
| Coverage: | 100.0% |
| line | % | coverage | branch | |
|---|---|---|---|---|
| 63 | 100 | T | F | if ($ENV{'PERL_INDIRECT_PM_DISABLE'}) { } |
| 106 | 100 | T | F | if ($arg eq 'hook') { } |
| 100 | T | F | elsif ($arg =~ /^:?fatal$/i) { } | |
| 111 | 100 | T | F | if $hook |
| 113 | 100 | T | F | unless defined $hook |
| 143 | 100 | T | F | $obj =~ /^\s*\{/ ? : |