| line |
true |
false |
branch |
|
21
|
1 |
13 |
unless defined $fake_class |
|
25
|
8 |
5 |
&blessed($fake_class) ? : |
|
28
|
1 |
12 |
if (&blessed($fake_class) and do {
no strict 'refs';
exists do {
$parent_class . '::'
}->{'FIELDS'}
}) { } |
|
52
|
12 |
1 |
if $result |
|
62
|
5 |
8 |
unless &blessed($invocant) |
|
103
|
7 |
4 |
if $class eq $parent |
|
118
|
0 |
0 |
if $parent_method |
|
132
|
0 |
19 |
if $method eq 'DESTROY' |
|
136
|
0 |
19 |
if (my $parent_method = $parent->can($method)) { } |
|
|
14 |
5 |
elsif (my $mock_method = 'Test::MockObject'->can($method)) { } |
|
|
4 |
1 |
elsif (my $parent_al = $parent->can('AUTOLOAD')) { } |
|
165
|
2 |
5 |
$name =~ s/^-// ? : |