| line |
true |
false |
branch |
|
40
|
1 |
10 |
unless ref $_[0] |
|
49
|
4 |
1 |
if (@_ == 1) { } |
|
61
|
4 |
0 |
@_ == 1 ? : |
|
71
|
1 |
9 |
unless ref $obj |
|
73
|
7 |
2 |
if @_ == 1 |
|
82
|
0 |
22 |
unless ref $obj |
|
84
|
10 |
12 |
if (@_ == 1) { } |
|
|
4 |
8 |
elsif (@_ == 2) { } |
|
|
8 |
0 |
elsif (@_ == 3) { } |
|
90
|
3 |
1 |
if (ref $idx eq 'ARRAY') { } |
|
99
|
5 |
3 |
if (ref $idx) { } |
|
|
1 |
2 |
elsif ($idx eq '<') { } |
|
|
1 |
1 |
elsif ($idx eq '>') { } |
|
100
|
1 |
4 |
if ($val eq '<') { } |
|
|
1 |
3 |
elsif ($val eq '>') { } |
|
107
|
1 |
2 |
if (@$val == 0) { } |
|
|
1 |
1 |
elsif (@$val == 1) { } |
|
|
1 |
0 |
elsif (@$val == 2) { } |
|
134
|
5 |
6 |
if (@_ == 1) { } |
|
|
5 |
1 |
elsif (@_ == 2) { } |
|
138
|
1 |
4 |
if (ref $key eq 'HASH') { } |
|
175
|
1 |
30 |
if 'Package::Subroutine'->isdefined($caller, 'new') and $new |
|
178
|
29 |
1 |
unless defined $classes{$caller} |
|
187
|
0 |
34 |
unless $classes{$class} |
|
188
|
12 |
22 |
unless my(@acc) = @{$classes{$class};} |
|
191
|
20 |
31 |
ref $type eq 'CODE' ? : |
|
192
|
0 |
51 |
unless (ref $proto eq 'CODE') |
|
206
|
28 |
2 |
if ($new) |
|
221
|
8 |
20 |
$init || $caller->can('init') ? : |
|
232
|
2 |
28 |
if ($init) |
|
233
|
2 |
0 |
unless (ref $init eq 'CODE') |
|
235
|
0 |
2 |
unless (defined $init) |