| line |
true |
false |
branch |
|
32
|
18 |
14 |
if (bless({}, $parent_class)->can('____OOP_PERLISH_CLASS_REQUIRED_INTERFACES')) |
|
40
|
2 |
30 |
if exists $self->____OOP_PERLISH_CLASS_ABSTRACT_CLASSES->{$parent_class} |
|
43
|
3 |
3 |
if defined *{'::' . $class . '::' . $name;}{'CODE'} |
|
48
|
1 |
13 |
if (scalar keys %required_interfaces != scalar keys %defined_interfaces) |
|
91
|
2 |
17 |
unless defined $____OOP_PERLISH_CLASS_REQUIRED_INTERFACES |
|
92
|
5 |
14 |
unless exists $$____OOP_PERLISH_CLASS_REQUIRED_INTERFACES{$class} |
|
105
|
2 |
31 |
unless defined $____OOP_PERLISH_CLASS_ABSTRACT_CLASSES |
|
149
|
0 |
3 |
unless $self->can($method) |