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 '[]' |