| line |
true |
false |
branch |
|
42
|
1 |
1 |
if (exists $h1->{$k}) { } |
|
43
|
0 |
1 |
if (ref $h1->{$k} eq 'HASH' and ref $h2->{$k} eq 'HASH') |
|
58
|
14 |
1 |
unless $super |
|
79
|
12 |
6 |
if ($opt->{'all'} or $opt->{'emulate'} and scalar keys %$opt == 1) |
|
85
|
0 |
18 |
unless scalar keys %$interface_hash > 0 |
|
95
|
11 |
7 |
if ($opt->{'emulate'}) |
|
103
|
0 |
126 |
unless $pkg->can($name) |
|
106
|
98 |
28 |
if ($opt->{'pre'}) |
|
111
|
84 |
42 |
if ($opt->{'post'}) |
|
116
|
105 |
21 |
if ($opt->{'invariant'} and %$invariant_hash) |
|
120
|
11 |
7 |
if ($opt->{'emulate'}) |
|
141
|
70 |
28 |
unless $pre_cond_hash |
|
146
|
0 |
18 |
unless ref $sub eq 'CODE' |
|
148
|
2 |
16 |
unless &$sub(@_) |
|
158
|
48 |
36 |
unless $post_cond_hash |
|
169
|
34 |
10 |
ref $self ? : |
|
170
|
34 |
10 |
if ($type eq 'object') |
|
176
|
10 |
34 |
if ($type eq 'class' and $name eq $Spec_for{$class}{'constructor_name'}) |
|
183
|
0 |
73 |
unless ref $sub eq 'CODE' |
|
186
|
5 |
67 |
unless &$sub(@invocant, @old, $results_to_check, @_) |
|
189
|
29 |
9 |
unless defined wantarray |
|
190
|
2 |
7 |
wantarray ? : |
|
200
|
414 |
384 |
if (caller 1)[0] eq $class |
|
201
|
272 |
112 |
if (caller 2)[0] eq $class |
|
204
|
0 |
112 |
unless ref $self |
|
208
|
0 |
112 |
unless ref $sub eq 'CODE' |
|
210
|
6 |
106 |
unless &$sub($self) |
|
215
|
15 |
90 |
if ($name eq $Spec_for{$class}{'constructor_name'}) { } |
|
249
|
0 |
11 |
if (@{"${pkg}::ISA";}) { } |
|
269
|
7 |
4 |
if (not $version) |