| line |
true |
false |
branch |
|
102
|
0 |
0 |
$] > 5.00562 ? : |
|
104
|
0 |
0 |
unless my $file = $_[0] |
|
106
|
0 |
0 |
if UNIVERSAL::isa($file, 'HASH') |
|
108
|
0 |
0 |
unless (-e $file) |
|
109
|
0 |
0 |
if (-e "$_[0].xml") { } |
|
|
0 |
0 |
elsif (-e "$_[0].fmt") { } |
|
|
0 |
0 |
elsif (-e "$_[0].tt2") { } |
|
120
|
0 |
0 |
if -e ($file = $inc . '/OurNet/Site/' . $_[0]) |
|
121
|
0 |
0 |
if -e ($file = $inc . '/OurNet/Site/' . "$_[0].xml") |
|
122
|
0 |
0 |
if -e ($file = $inc . '/OurNet/Site/' . "$_[0].fmt") |
|
123
|
0 |
0 |
if -e ($file = $inc . '/OurNet/Site/' . "$_[0].tt2") |
|
128
|
0 |
0 |
unless -e $file |
|
158
|
0 |
0 |
if ($_[0] =~ /\.tt2$/i) { } |
|
|
0 |
0 |
elsif ($_[0] =~ /\.xml$/i) { } |
|
|
0 |
0 |
elsif ($_[0] =~ m((?:.*[/\\])?(.*?)(?:\.fmt)?$)i) { } |
|
172
|
0 |
0 |
if $content =~ //i |
|
175
|
0 |
0 |
if $content =~ m[<$tag>$xml_cdata_re]is |
|
183
|
0 |
0 |
if ($content =~ m[(.*?)]i) |
|
191
|
0 |
0 |
if ($$self{'name'}{'en-us'} =~ s/\((.+)\)//) |
|
196
|
0 |
0 |
if ($$self{'url'}{'start'} =~ /_START_\d+_\d+_/) |
|
237
|
0 |
0 |
/^TYPE\t(.+)/ ? : |
|
|
0 |
0 |
/^EXPR\t(.+)/ ? : |
|
|
0 |
0 |
/^CHS\t(.+)/ ? : |
|
|
0 |
0 |
/^CHT\t(.+)/ ? : |
|
|
0 |
0 |
/^CHARSET\t(.+)/ ? : |
|
|
0 |
0 |
/^SCORE\t(.+)/ ? : |
|
|
0 |
0 |
/^VAR\t(.+)/ ? : |
|
|
0 |
0 |
/^PROC\t(.+)/ ? : |
|
|
0 |
0 |
/^MORE\t(.+)/ ? : |
|
|
0 |
0 |
m[^\w+://] ? : |
|
|
0 |
0 |
/^---/ ? : |
|
246
|
0 |
0 |
unless /^[A-Z_]*$/ |
|
248
|
0 |
0 |
$_ ? : |
|
265
|
0 |
0 |
if ($$self{'tmplobj'}) |
|
280
|
0 |
0 |
if $length == length $content |
|
293
|
0 |
0 |
if $var eq '_' |
|
296
|
0 |
0 |
unless ($$self{'allow_tags'}) |
|
301
|
0 |
0 |
if ($var eq 'sizek') { } |
|
|
0 |
0 |
elsif ($var eq 'score') { } |
|
|
0 |
0 |
elsif ($var eq 'url') { } |
|
310
|
0 |
0 |
if ($proc =~ /^\d*/) { } |
|
325
|
0 |
0 |
unless ($$entry{$var} =~ m[^\w+://]) |
|
326
|
0 |
0 |
if ($$self{'url'}{'home'}) { } |
|
|
0 |
0 |
elsif (not $$self{'allow_partial'} and $$self{'url'}{'start'} =~ m[^(\w+://.*?)/]) { } |
|
340
|
0 |
0 |
unless ($$entry{'score'}) |
|
346
|
0 |
0 |
if (my $proc = $$self{'proc'}) |
|
374
|
0 |
0 |
unless ($$self{'tmplobj'}) |
|
383
|
0 |
0 |
if (defined $callback) { } |
|
395
|
0 |
0 |
if ($chunk =~ /{{(.*?)}}/) { } |