| File: | local/lib/perl5/Exception/Class.pm |
| Coverage: | 13.6% |
| line | % | coverage | condition | ||||||||||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
| 11 | 50 |
| $BASE_EXC_CLASS ||= 'Exception::Class::Base' | ||||||||||||||||||||
| 56 | 50 |
| $def || {} | ||||||||||||||||||||
| 88 | 0 |
| exists $$needs{$subclass} or $CLASSES{$subclass} or keys %{"${subclass}::";} | ||||||||||||||||||||
| 93 | 0 |
| $CLASSES{$c} or keys %{"${c}::";} | ||||||||||||||||||||
| 103 | 0 |
| $CLASSES{$subclass} or keys %{"${subclass}::";} | ||||||||||||||||||||
| 122 | 33 |
| $isa ||= $BASE_EXC_CLASS | ||||||||||||||||||||
| 189 | 0 |
| blessed $e and $e->isa($_[1]) |