| line |
true |
false |
branch |
|
107
|
0 |
1 |
if (my $doc = $CACHE{$_[0]}) |
|
109
|
0 |
0 |
if (time - $CACHE_SLEEP > $Config::XMLPerl::CACHE_DELAY) |
|
111
|
0 |
0 |
if ($$doc{'s'} != $stats[7] or $$doc{'t'} != $stats[9]) |
|
116
|
0 |
0 |
if $doc |
|
131
|
0 |
0 |
if ($file) |
|
157
|
0 |
1 |
if ($val =~ /^'([^'\\]*)'$/) { } |
|
|
0 |
1 |
elsif ($val =~ /^"([^"\\]*)"$/) { } |
|
|
1 |
0 |
elsif ($val =~ /^(?:\{.*?\}|\[.*?\]|'.*?'|".*?")$/) { } |
|
166
|
0 |
0 |
if (not $data) |
|
177
|
0 |
1 |
if (ref $in eq 'GLOB') { } |
|
|
0 |
2 |
elsif (not $in =~ /[\r\n]/s and -e $in) { } |
|
183
|
0 |
1 |
if ($fh) { } |
|
|
1 |
0 |
elsif ($in =~ /[<>\r\n]/s) { } |
|
190
|
1 |
0 |
if wantarray |
|
199
|
1 |
0 |
unless ($EVAL_VALUES_COMPARTMENT) |