line |
true |
false |
branch |
21
|
0 |
17 |
unless defined $_[0] |
23
|
0 |
17 |
unless $ref |
24
|
0 |
17 |
unless ($ref eq 'HASH' or $ref eq 'ARRAY') |
33
|
9 |
8 |
if ($ref eq 'HASH') { } |
|
8 |
0 |
elsif ($ref eq 'ARRAY') { } |
50
|
0 |
40 |
unless $n |
65
|
8 |
0 |
unless $n |
79
|
184 |
106 |
unless $n |
81
|
31 |
259 |
if ($ref eq 'HASH') { } |
|
0 |
259 |
elsif ($ref eq 'ARRAY') { } |
|
0 |
259 |
elsif ($ref eq 'SCALAR') { } |
|
0 |
259 |
elsif ($ref eq 'GLOB') { } |
|
0 |
259 |
elsif (do {
my $g = \$item;
ref $g eq 'GLOB'
}) { } |
|
0 |
259 |
elsif ($ref eq 'CODE') { } |
|
259 |
0 |
elsif (defined $item) { } |
120
|
184 |
75 |
$data =~ /\D/ || $data =~ /^$/ ? : |