| line |
true |
false |
branch |
|
106
|
0 |
0 |
if $$string_ref eq '' |
|
109
|
0 |
0 |
if ($$string_ref =~ s/^\?\-//) { } |
|
114
|
0 |
0 |
if ($$string_ref =~ s/^\.//) { } |
|
130
|
0 |
0 |
if ($$string_ref =~ s/\s*\,//) { } |
|
|
0 |
0 |
elsif ($$string_ref =~ s/\s*\.//) { } |
|
189
|
0 |
0 |
unless (defined $variables) |
|
195
|
0 |
0 |
if ($$string_ref =~ /^\[/) { } |
|
|
0 |
0 |
elsif ($$string_ref =~ s/^('[^']+')//) { } |
|
|
0 |
0 |
elsif ($$string_ref =~ /^$SIMPLE_ATOM_REGEX\(/o) { } |
|
|
0 |
0 |
elsif ($$string_ref =~ s/^($SIMPLE_ATOM_REGEX)//o) { } |
|
|
0 |
0 |
elsif ($$string_ref =~ s/^($VARIABLE_REGEX)//o) { } |
|
217
|
0 |
0 |
unless defined $variables |
|
218
|
0 |
0 |
if (not $$variables{$string}) { } |
|
223
|
0 |
0 |
unless $new->unify($$variables{$string}) |
|
234
|
0 |
0 |
unless $$string_ref =~ s/^\s*\[// |
|
236
|
0 |
0 |
if $$string_ref =~ s/^\s*\]// |
|
241
|
0 |
0 |
if ($$string_ref =~ s/^\s*,//) { } |
|
|
0 |
0 |
elsif ($$string_ref =~ s/^\s*\]//) { } |
|
|
0 |
0 |
elsif ($$string_ref =~ s/^\s*\|\s*($VARIABLE_REGEX)\s*\]//o) { } |
|
257
|
0 |
0 |
unless defined $variables |
|
260
|
0 |
0 |
if ($$string_ref =~ s/^\s*:-//) { } |
|
267
|
0 |
0 |
if ($$string_ref =~ s/^,//) { } |
|
284
|
0 |
0 |
if ($$string_ref =~ s/^($SIMPLE_ATOM_REGEX)\(//o) { } |
|
|
0 |
0 |
elsif ($$string_ref =~ s/^($SIMPLE_ATOM_REGEX)\b//o) { } |
|
291
|
0 |
0 |
if ($$string_ref =~ s/^\s*,//) { } |
|
|
0 |
0 |
elsif ($$string_ref =~ s/^\s*\)//) { } |
|
315
|
0 |
0 |
unless defined $path |
|
316
|
0 |
0 |
unless -e $path |
|
318
|
0 |
0 |
unless open IN, $path |
|
340
|
0 |
0 |
if ($c eq '\\') |
|
341
|
0 |
0 |
if ($c eq q[']) |
|
342
|
0 |
0 |
if ($c =~ /^[(\[]$/) |
|
343
|
0 |
0 |
if ($c =~ /^[)\]]$/) |
|
344
|
0 |
0 |
if ($c eq '.' and not $q and $b == 0) |
|
354
|
0 |
0 |
if $@ |