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