line |
true |
false |
branch |
21
|
0 |
129 |
unless defined $_[0] |
23
|
0 |
129 |
unless $ref |
24
|
0 |
129 |
unless ($ref eq 'HASH' or $ref eq 'ARRAY') |
33
|
112 |
17 |
if ($ref eq 'HASH') { } |
|
17 |
0 |
elsif ($ref eq 'ARRAY') { } |
50
|
0 |
220 |
unless $n |
65
|
17 |
0 |
unless $n |
79
|
10 |
1034 |
unless $n |
81
|
108 |
936 |
if ($ref eq 'HASH') { } |
|
0 |
936 |
elsif ($ref eq 'ARRAY') { } |
|
0 |
936 |
elsif ($ref eq 'SCALAR') { } |
|
0 |
936 |
elsif ($ref eq 'GLOB') { } |
|
30 |
906 |
elsif (do {
my $g = \$item;
ref $g eq 'GLOB'
}) { } |
|
130 |
776 |
elsif ($ref eq 'CODE') { } |
|
726 |
50 |
elsif (defined $item) { } |
120
|
610 |
116 |
$data =~ /\D/ || $data =~ /^$/ ? : |