| line |
true |
false |
branch |
|
39
|
1 |
10 |
unless ref $_[0] |
|
48
|
4 |
1 |
if (@_ == 1) { } |
|
60
|
4 |
0 |
@_ == 1 ? : |
|
70
|
1 |
9 |
unless ref $obj |
|
72
|
7 |
2 |
if @_ == 1 |
|
81
|
0 |
22 |
unless ref $obj |
|
83
|
10 |
12 |
if (@_ == 1) { } |
|
|
4 |
8 |
elsif (@_ == 2) { } |
|
|
8 |
0 |
elsif (@_ == 3) { } |
|
89
|
3 |
1 |
if (ref $idx eq 'ARRAY') { } |
|
98
|
5 |
3 |
if (ref $idx) { } |
|
|
1 |
2 |
elsif ($idx eq '<') { } |
|
|
1 |
1 |
elsif ($idx eq '>') { } |
|
99
|
1 |
4 |
if ($val eq '<') { } |
|
|
1 |
3 |
elsif ($val eq '>') { } |
|
106
|
1 |
2 |
if (@$val == 0) { } |
|
|
1 |
1 |
elsif (@$val == 1) { } |
|
|
1 |
0 |
elsif (@$val == 2) { } |
|
133
|
5 |
6 |
if (@_ == 1) { } |
|
|
5 |
1 |
elsif (@_ == 2) { } |
|
137
|
1 |
4 |
if (ref $key eq 'HASH') { } |
|
174
|
1 |
28 |
if 'Package::Subroutine'->isdefined($caller, 'new') and $new |
|
177
|
27 |
1 |
unless defined $classes{$caller} |
|
186
|
0 |
32 |
unless $classes{$class} |
|
187
|
10 |
22 |
unless my(@acc) = @{$classes{$class};} |
|
190
|
19 |
30 |
ref $type eq 'CODE' ? : |
|
191
|
0 |
49 |
unless (ref $proto eq 'CODE') |
|
205
|
26 |
2 |
if ($new) |
|
220
|
8 |
18 |
$init || $caller->can('init') ? : |
|
231
|
2 |
26 |
if ($init) |
|
232
|
2 |
0 |
unless (ref $init eq 'CODE') |
|
234
|
0 |
2 |
unless (defined $init) |