| line |
true |
false |
branch |
|
162
|
2 |
55 |
if scalar @_ == 1 and ref $_[0] eq "HASH" |
|
166
|
0 |
55 |
if (ref $default) |
|
172
|
19 |
36 |
if (scalar @_ == 1 and ref $_[0] eq 'ARRAY') { } |
|
173
|
2 |
6 |
if ($default and scalar @{$_[0];} == 2 and @{$_[0];}[0] eq $default and not ref @{$_[0];}[1]) |
|
189
|
29 |
24 |
if ($num_args == 1) |
|
190
|
17 |
12 |
if (defined $default) |
|
191
|
5 |
12 |
unless (ref $args->[0]) |
|
195
|
1 |
11 |
if (ref $args->[0] eq "ARRAY") |
|
198
|
3 |
8 |
if (ref $args->[0] eq "SCALAR") |
|
201
|
2 |
6 |
if (ref $args->[0] eq "CODE") |
|
204
|
2 |
4 |
if (builtin::blessed($args->[0])) |
|
208
|
1 |
15 |
unless (defined $args->[0]) |
|
211
|
1 |
14 |
if (ref $args->[0] eq "REF") |
|
214
|
13 |
2 |
if (ref $args->[0] eq "HASH") |
|
217
|
1 |
1 |
if (ref $args->[0] eq "ARRAY" and scalar @{$args->[0];} == 0) |
|
222
|
0 |
1 |
if (defined $default) |
|
229
|
7 |
17 |
if ($num_args == 0) |
|
230
|
4 |
3 |
if (defined $default) |
|
241
|
4 |
13 |
if ($num_args == 2 and ref $args->[1] eq "HASH") |
|
242
|
4 |
0 |
if (defined $default) |
|
243
|
4 |
0 |
if (scalar keys %{$$args[1];}) |
|
244
|
0 |
4 |
if ($args->[0] eq $default) |
|
258
|
4 |
9 |
if ($array_ref and defined $default) |
|
261
|
9 |
0 |
if ($num_args % 2 == 0) |