| line |
true |
false |
branch |
|
21
|
0 |
1 |
unless defined $prolog |
|
23
|
0 |
1 |
if (ref $prolog eq 'SCALAR') { } |
|
|
1 |
0 |
elsif (ref \$prolog eq 'SCALAR') { } |
|
25
|
0 |
0 |
unless ${$prolog;} =~ /\.$/ |
|
28
|
1 |
0 |
unless $prolog =~ /\.$/ |
|
39
|
0 |
1 |
if (scalar @_ == 1 and ref $_[0] eq 'ARRAY') { } |
|
63
|
7 |
8 |
if (ref $value) { } |
|
69
|
0 |
8 |
if (ref \$value ne 'SCALAR') { } |
|
83
|
15 |
0 |
if (scalar @nested > 0) { } |
|
108
|
0 |
0 |
if (scalar @parts > 1) { } |
|
|
0 |
0 |
elsif (scalar @parts == 1 and length $partial_prolog_string < length $parts[1]) { } |
|
118
|
0 |
0 |
if ($partial_prolog_string =~ /\(/ and not $partial_prolog_string =~ /\)/) |
|
136
|
3 |
4 |
if (ref $ref eq 'ARRAY') { } |
|
|
4 |
0 |
elsif (ref $ref eq 'HASH') { } |
|
|
0 |
0 |
elsif (ref $ref eq 'SCALAR') { } |
|
160
|
3 |
1 |
if (ref $_[0]) { } |
|
170
|
10 |
0 |
if (defined $_) { } |
|
178
|
5 |
0 |
if (ref $_[0]) { } |
|
190
|
1 |
4 |
if (defined $sort and ref $sort eq 'ARRAY') { } |
|
206
|
0 |
18 |
if $value =~ /\(/ |
|
208
|
1 |
17 |
if $value =~ /^[a-z]+[a-z0-9]+$/ |
|
210
|
15 |
2 |
if $value =~ /^\d+(\.\d+)?$/ |
|
212
|
0 |
2 |
if $value eq '[]' |