| line |
true |
false |
branch |
|
101
|
2 |
57 |
if scalar @_ == 1 and ref $_[0] eq "HASH" |
|
107
|
21 |
36 |
if (scalar @_ == 1 and ref $_[0] eq 'ARRAY') { } |
|
108
|
2 |
6 |
if ($default and scalar @{$_[0];} == 2 and @{$_[0];}[0] eq $default and not ref @{$_[0];}[1]) |
|
124
|
30 |
25 |
if ($num_args == 1) |
|
125
|
17 |
13 |
if (defined $default) |
|
126
|
5 |
12 |
unless (ref $args->[0]) |
|
130
|
1 |
11 |
if (ref $args->[0] eq "ARRAY") |
|
133
|
3 |
8 |
if (ref $args->[0] eq "SCALAR") |
|
136
|
2 |
6 |
if (ref $args->[0] eq "CODE") |
|
139
|
2 |
4 |
if (builtin::blessed($args->[0])) |
|
143
|
1 |
16 |
unless (defined $args->[0]) |
|
146
|
1 |
15 |
if (ref $args->[0] eq "REF") |
|
149
|
14 |
2 |
if (ref $args->[0] eq "HASH") |
|
152
|
1 |
1 |
if (ref $args->[0] eq "ARRAY" and scalar @{$args->[0];} == 0) |
|
157
|
0 |
1 |
if (defined $default) |
|
164
|
7 |
18 |
if ($num_args == 0) |
|
165
|
4 |
3 |
if (defined $default) |
|
176
|
4 |
14 |
if ($num_args == 2 and ref $args->[1] eq "HASH") |
|
177
|
4 |
0 |
if (defined $default) |
|
178
|
4 |
0 |
if (scalar keys %{$$args[1];}) |
|
190
|
4 |
10 |
if ($array_ref and defined $default) |
|
193
|
10 |
0 |
if ($num_args % 2 == 0) |