| line |
true |
false |
branch |
|
29
|
13 |
10 |
ref $_[0] ? : |
|
32
|
0 |
7 |
ref $def->{'isa'} ? : |
|
|
7 |
16 |
$def->{'isa'} ? : |
|
45
|
0 |
23 |
if $CLASSES{$subclass} |
|
51
|
4 |
3 |
unless (keys %{"${parent}::";}) |
|
95
|
0 |
0 |
unless exists $needs->{$subclass} or $CLASSES{$subclass} or keys %{"${subclass}::";} |
|
100
|
4 |
2 |
if $CLASSES{$c} or keys %{"${c}::";} |
|
103
|
0 |
2 |
if $seen->{$subclass} |
|
110
|
2 |
4 |
if $CLASSES{$subclass} or keys %{"${subclass}::";} |
|
126
|
23 |
0 |
if ($def->{'isa'}) |
|
127
|
23 |
0 |
ref $def->{'isa'} ? : |
|
144
|
1 |
22 |
if ($def->{'description'}) |
|
155
|
8 |
15 |
if (my $fields = $def->{'fields'}) |
|
157
|
7 |
1 |
ref $fields && &reftype($fields) eq 'ARRAY' ? : |
|
165
|
3 |
6 |
unless $field =~ /\A[a-z_][a-z0-9_]*\z/i |
|
172
|
2 |
18 |
if (my $alias = $def->{'alias'}) |
|
174
|
0 |
2 |
unless defined $Exception::Class::Caller |
|
183
|
0 |
20 |
if (my $defaults = $def->{'defaults'}) |
|
193
|
0 |
20 |
if $@ |
|
204
|
3 |
2 |
unless $_[1] |
|
206
|
1 |
1 |
unless &blessed($e) and $e->isa($_[1]) |