| line |
true |
false |
branch |
|
48
|
1167 |
5 |
unless @param |
|
53
|
0 |
5 |
unless defined $param[0] and $param[0] =~ /^-/ |
|
60
|
0 |
15 |
if (not defined $param[$i]) { } |
|
88
|
0 |
5 |
if (scalar @restkeys > 0) |
|
124
|
0 |
0 |
unless @param |
|
129
|
0 |
0 |
unless defined $param[0] and $param[0] =~ /^-/ |
|
253
|
0 |
0 |
if (ref $pset eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (ref $pset eq 'HASH') { } |
|
359
|
0 |
0 |
if (ref $obj and not $id =~ /GLOB/) |
|
361
|
0 |
0 |
unless ($$h{$id}) |
|
367
|
0 |
0 |
if (grep {my $idelt = sprintf('%s', $_);
$idelt eq $id;} @{$$node{'path'};}) |
|
379
|
0 |
0 |
if (ref $obj eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (ref $obj eq 'GLOB') { } |
|
409
|
0 |
0 |
if (not defined $max) { } |
|
415
|
0 |
0 |
if $item > $max |