| line |
true |
false |
branch |
|
24
|
2 |
42 |
unless @args and @args % 2 == 0 |
|
29
|
2 |
44 |
unless defined $class_name and ref $method_defs eq 'HASH' |
|
33
|
8 |
36 |
if (my $klass = blessed $class_name) |
|
49
|
17 |
35 |
ref $$method_defs{$method_name} eq 'CODE' ? : |
|
69
|
27 |
18 |
if (my $class_name = blessed $klass) { } |
|
79
|
0 |
18 |
unless exists $$stash{$class_name}{$method_name} |
|
86
|
2 |
9 |
unless @args and @args % 2 == 0 |
|
89
|
2 |
9 |
unless defined $class_name and ref $methods eq 'ARRAY' |
|
92
|
1 |
8 |
if (my $klass = blessed $class_name) |
|
121
|
6 |
46 |
if ($index < (max(keys %{$$stuff{'restore'};}) || 0)) { } |
|
134
|
44 |
2 |
unless (keys %{$$stuff{'restore'};}) |
|
173
|
8 |
8 |
unless ($$mocked{$klass}{'_mocked'}{$method}) |
|
192
|
1 |
0 |
if (exists $$mocked{$klass}{$refaddr} and exists $$mocked{$klass}{$refaddr}{$method}) |
|
201
|
0 |
18 |
unless exists $$mocked{$klass}{$refaddr}{$method_name}{'called_count'} |
|
209
|
43 |
10 |
if ($klass and $refaddr and exists $$mocked{$klass}{$refaddr} and exists $$mocked{$klass}{$refaddr}{$method}) { } |
|
212
|
5 |
38 |
ref $val eq 'CODE' ? : |
|
225
|
2 |
6 |
unless (keys %{$$mocked{$klass};} == 1) |