| line |
true |
false |
branch |
|
48
|
21 |
50 |
if (defined &{"${c}::BUILD";}) |
|
59
|
2 |
71 |
if $visited->{$class}++ |
|
79
|
3 |
28 |
@maybe_parents ? : |
|
84
|
1 |
33 |
if $child_class eq $parent_class |
|
88
|
2 |
31 |
unless ($INC{"$parent_class.pm"} or defined &{"${parent_class}::new";}) |
|
95
|
33 |
0 |
unless (grep {$_ eq $parent_class;} @{"${child_class}::ISA";}) |
|
109
|
0 |
33 |
if $METHOD_COPY_CACHE{$cache_key} |
|
118
|
187 |
554 |
if $SKIP_METHODS{$method} |
|
119
|
1 |
553 |
if $method =~ /^_/ |
|
120
|
47 |
506 |
if $method =~ /::$/ |
|
123
|
1 |
505 |
if defined &{"${child}::$method";} |
|
124
|
20 |
485 |
unless defined &{"${parent}::$method";} |
|
137
|
0 |
42 |
if (_inherits_from($cached_class, $class)) |
|
145
|
3 |
69 |
if ($child eq $class or _inherits_from($child, $class)) |
|
157
|
0 |
282 |
if grep {$_ eq $parent;} @isa |
|
160
|
0 |
171 |
if _inherits_from($direct_parent, $parent) |
|
176
|
82 |
0 |
unless ($@) |
|
188
|
0 |
82 |
if (@args and $args[0] eq "extends") |