| line |
true |
false |
branch |
|
66
|
0 |
0 |
if ($$config_ref{'debuglevel'} and not exists $$self{'DEBUG_LEVELS'}{$$config_ref{'debuglevel'}}) |
|
81
|
0 |
0 |
if ($nest) |
|
97
|
0 |
0 |
if defined $val |
|
111
|
0 |
0 |
if ($invert) { } |
|
134
|
0 |
0 |
if (not $$self{'VARIABLES'}{$var}) { } |
|
|
0 |
0 |
elsif (not $operands{$opr}) { } |
|
143
|
0 |
0 |
exists $$self{'VARIABLES'}{$val} ? : |
|
146
|
0 |
0 |
$invert ? : |
|
161
|
0 |
0 |
if $file |
|
182
|
0 |
0 |
if $val |
|
205
|
0 |
0 |
unless ($$self{'HEADER'}) |
|
280
|
0 |
0 |
if ($states{$state}) |
|
296
|
0 |
0 |
unless $sortby |
|
303
|
0 |
0 |
if (@sorts == 3) { } |
|
|
0 |
0 |
elsif (@sorts == 2 and lc $sorts[0] eq 'asc' || lc $sorts[0] eq 'desc') { } |
|
|
0 |
0 |
elsif (@sorts == 2 and lc $sorts[0] ne 'asc' || lc $sorts[0] ne 'desc') { } |
|
|
0 |
0 |
elsif (@sorts == 1) { } |
|
324
|
0 |
0 |
unless ($loop) |
|
327
|
0 |
0 |
if ($$self{'LOOPS'}{$loop_name}{$sort_on}) |
|
333
|
0 |
0 |
if @multiples > 1 |
|
342
|
0 |
0 |
if ($$self{'LOOPS'}{$loop}{$sort_on}) { } |
|
345
|
0 |
0 |
$sortkeys[0] =~ /(\D)/ && !($1 =~ /\.|\,/) ? : |
|
346
|
0 |
0 |
if ($data_type eq 'INT') |
|
362
|
0 |
0 |
if ($$self{'LOOPS'}{$loop}{'bgcolor'}) |
|
368
|
0 |
0 |
if scalar keys %colours >= 2 |
|
371
|
0 |
0 |
if (keys %colours == 2) |
|
399
|
0 |
0 |
$$cur_ref eq $primary ? : |
|
416
|
0 |
0 |
$ref_array_name ? : |
|
422
|
0 |
0 |
if ($selected_id) { } |
|
423
|
0 |
0 |
$selected_id eq $id ? : |
|
426
|
0 |
0 |
$selected_name eq $name ? : |
|
441
|
0 |
0 |
$$self{'FOOTPRINT'} ? : |
|
444
|
0 |
0 |
if ((split(/\n/, $template_path, 0))[0] =~ /\.\w{3,4}$/) { } |
|
448
|
0 |
0 |
unless (-e $template_path) |
|
451
|
0 |
0 |
if (-e $stored_path . $template_path) |
|
459
|
0 |
0 |
unless open READFILE, $template_path |
|
480
|
0 |
0 |
if $$self{'SORTBY'} |
|
481
|
0 |
0 |
if $$self{'CLEAN'} |
|
484
|
0 |
0 |
if ($debug_object) |
|
494
|
0 |
0 |
if $$self{'DEBUG_LEVEL'} > 0 |
|
541
|
0 |
0 |
if $$self{'SORTBY'} =~ /ASC|DESC/ |
|
546
|
0 |
0 |
$dir eq 'desc' ? : |
|
547
|
0 |
0 |
if ($dir) { } |
|
567
|
0 |
0 |
if ($$template_path_ref =~ m[/]) { } |
|
584
|
0 |
0 |
if ($file =~ /\./) { } |
|
589
|
0 |
0 |
if ($file =~ m[/]) { } |
|
601
|
0 |
0 |
unless (-e $filepath) |
|
603
|
0 |
0 |
if (-e $_ . $filename) |
|
613
|
0 |
0 |
$$self{'FOOTPRINT'} ? : |
|
614
|
0 |
0 |
$$self{'FOOTPRINT'} ? : |
|
617
|
0 |
0 |
if (-e $filepath) { } |
|
650
|
0 |
0 |
if ($opt_type eq '=' and $test_val) { } |
|
|
0 |
0 |
elsif ($opt_type eq '!=' and not $test_val) { } |
|
682
|
0 |
0 |
if ($self->compare($fs_oper, $self->variable($fs_var), $fs_val)) { } |
|
683
|
0 |
0 |
if $if_cont =~ /$HTML::Processor::syntax_pre(ELSIF|ELSE)/ism |
|
700
|
0 |
0 |
if ($if_type =~ /ELSIF|IF/ and $self->compare($oper, $self->variable($if_var), $if_val)) { } |
|
|
0 |
0 |
elsif ($if_type =~ /ELSE/) { } |
|
735
|
0 |
0 |
unless $$self{'LOOPS'}{$it_name} or $$self{'NESTS'}{$it_name} |
|
775
|
0 |
0 |
if ($p_count ne '') |
|
777
|
0 |
0 |
$$self{'SKEYS'} ? : |
|
785
|
0 |
0 |
if (ref $$self{'LOOPS'}{$it_name}{$_} eq 'ARRAY') |
|
787
|
0 |
0 |
if $a_length > $max_count |
|
800
|
0 |
0 |
if $$self{'ESCAPE'} |
|
818
|
0 |
0 |
if (exists $$self{'LOOPS'}{$it_name}{'OPTIONS'}{$opt_name}) { } |
|
|
0 |
0 |
elsif (exists $$self{'LOOPS'}{$it_name}{$opt_name}) { } |
|
830
|
0 |
0 |
if ($opt_itr_val and $opt_type eq '=') { } |
|
|
0 |
0 |
elsif (not $opt_itr_val and $opt_type eq '!=') { } |
|
855
|
0 |
0 |
if ($self->compare($fs_oper, $$self{'LOOPS'}{$it_name}{$fs_var}[$count], $fs_val)) { } |
|
856
|
0 |
0 |
if $if_cont =~ /$HTML::Processor::syntax_preLOOP (ELSIF|ELSE)/ism |
|
873
|
0 |
0 |
if ($if_type =~ /ELSIF|IF/ and $self->compare($oper, $$self{'LOOPS'}{$it_name}{$if_var}[$count], $if_val)) { } |
|
|
0 |
0 |
elsif ($if_type =~ /ELSE/) { } |
|
896
|
0 |
0 |
unless $$self{'LOOPS'}{$it_name} |
|
917
|
0 |
0 |
$$self{'ESCAPE'} ? : |
|
944
|
0 |
0 |
unless $$template_ref =~ m[textarea(.*?)\s+\n(.*?)/textarea]ism |
|
958
|
0 |
0 |
if ($oper eq '=' and $left eq $right or $oper eq '==' and $left eq $right or $oper eq '!=' and $left ne $right or $oper eq '<' and $left < $right or $oper eq '<=' and $left <= $right or $oper eq '>' and $left > $right or $oper eq '>=' and $left >= $right or $oper eq 'LIKE' and $left =~ /$right/ or $oper eq 'NOTLIKE' and not $left =~ /$right/) { } |
|
986
|
0 |
0 |
unless ($level) |
|
995
|
0 |
0 |
if ($level == $$self{'DEBUG_LEVELS'}{'Fatal'}) |
|
1028
|
0 |
0 |
if ($$error_count == 0) |
|
1033
|
0 |
0 |
if ($err_lvl >= $level_type) |