| line |
true |
false |
branch |
|
126
|
0 |
0 |
$] > 5.00562 ? : |
|
128
|
0 |
0 |
unless my $file = $_[0] |
|
130
|
0 |
0 |
if UNIVERSAL::isa($file, 'HASH') |
|
132
|
0 |
0 |
unless (-e $file) |
|
133
|
0 |
0 |
if (-e "$_[0].xml") { } |
|
|
0 |
0 |
elsif (-e "$_[0].fmt") { } |
|
|
0 |
0 |
elsif (-e "$_[0].tt2") { } |
|
144
|
0 |
0 |
if -e ($file = $inc . '/OurNet/Site/' . $_[0]) |
|
145
|
0 |
0 |
if -e ($file = $inc . '/OurNet/Site/' . "$_[0].xml") |
|
146
|
0 |
0 |
if -e ($file = $inc . '/OurNet/Site/' . "$_[0].fmt") |
|
147
|
0 |
0 |
if -e ($file = $inc . '/OurNet/Site/' . "$_[0].tt2") |
|
152
|
0 |
0 |
unless -e $file |
|
182
|
0 |
0 |
if ($_[0] =~ /\.xml$/i) { } |
|
|
0 |
0 |
elsif ($_[0] =~ m((?:.*[/\\])?(.*?)(?:\.fmt)$)i) { } |
|
188
|
0 |
0 |
if $content =~ //i |
|
191
|
0 |
0 |
if $content =~ m[<$tag>$xml_cdata_re]is |
|
199
|
0 |
0 |
if ($content =~ m[(.*?)]i) |
|
207
|
0 |
0 |
if ($$self{'name'}{'en-us'} =~ s/\((.+)\)//) |
|
212
|
0 |
0 |
if ($$self{'url'}{'start'} =~ /_START_\d+_\d+_/) |
|
253
|
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 |
/^---/ ? : |
|
262
|
0 |
0 |
unless /^[A-Z_]*$/ |
|
264
|
0 |
0 |
$_ ? : |
|
286
|
0 |
0 |
if ($$self{'tmplobj'}) |
|
292
|
0 |
0 |
unless ($$self{'allow_tags'}) |
|
311
|
0 |
0 |
if $length == length $content |
|
324
|
0 |
0 |
if $var eq '_' |
|
327
|
0 |
0 |
unless ($$self{'allow_tags'}) |
|
332
|
0 |
0 |
if ($var eq 'sizek') { } |
|
|
0 |
0 |
elsif ($var eq 'score') { } |
|
|
0 |
0 |
elsif ($var eq 'url') { } |
|
341
|
0 |
0 |
if ($proc =~ /^\d*/) { } |
|
356
|
0 |
0 |
unless ($$entry{$var} =~ m[^\w+://]) |
|
357
|
0 |
0 |
if ($$self{'url'}{'home'}) { } |
|
|
0 |
0 |
elsif (not $$self{'allow_partial'} and $$self{'url'}{'start'} =~ m[^(\w+://.*?)/]) { } |
|
371
|
0 |
0 |
unless ($$entry{'score'}) |
|
377
|
0 |
0 |
if (my $proc = $$self{'proc'}) |
|
407
|
0 |
0 |
unless ($$self{'tmplobj'}) |
|
416
|
0 |
0 |
if (defined $callback) { } |
|
417
|
0 |
0 |
if $main::DEBUG |
|
429
|
0 |
0 |
if ($chunk =~ /{{(.*?)}}/) { } |