line | % | coverage | branch |
24 | 50 | T | F | ref $_[0] ? : |
25 | 0 | T | F | ref $$def{'isa'} ? : |
| 50 | T | F | $$def{'isa'} ? : |
40 | 50 | T | F | if $CLASSES{$subclass} |
45 | 0 | T | F | unless (keys %{"${parent}::";}) |
88 | 0 | T | F | unless exists $$needs{$subclass} or $CLASSES{$subclass} or keys %{"${subclass}::";} |
93 | 0 | T | F | if $CLASSES{$c} or keys %{"${c}::";} |
95 | 0 | T | F | if $$seen{$subclass} |
103 | 0 | T | F | if $CLASSES{$subclass} or keys %{"${subclass}::";} |
119 | 50 | T | F | if ($$def{'isa'}) |
120 | 50 | T | F | ref $$def{'isa'} ? : |
137 | 50 | T | F | if ($$def{'description'}) |
148 | 50 | T | F | if (my $fields = $$def{'fields'}) |
149 | 0 | T | F | UNIVERSAL::isa($fields, 'ARRAY') ? : |
161 | 50 | T | F | if (my $alias = $$def{'alias'}) |
162 | 50 | T | F | unless defined $Exception::Class::Caller |
170 | 50 | T | F | if (my $defaults = $$def{'defaults'}) |
179 | 50 | T | F | if $@ |
187 | 0 | T | F | unless $_[1] |
189 | 0 | T | F | unless blessed $e and $e->isa($_[1]) |