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 $@ |