| line |
true |
false |
branch |
|
48
|
9 |
77 |
@_ == 1 ? : |
|
61
|
0 |
84 |
$r ? : |
|
63
|
84 |
0 |
if ($template) { } |
|
69
|
0 |
0 |
unless open $fh, "<$file" |
|
84
|
0 |
0 |
if $ok_templates and not $path =~ /$ok_templates/ |
|
87
|
0 |
0 |
if $cgi->param('debug') |
|
91
|
0 |
0 |
if ($@) |
|
92
|
0 |
0 |
if ($@ =~ /_ep_exit, ignore/) { } |
|
97
|
0 |
0 |
$$self{'_ep_err_type'} ? : |
|
99
|
0 |
0 |
if ($errfile) |
|
100
|
0 |
0 |
if ($errfile =~ m[^/]) |
|
101
|
0 |
0 |
$r ? : |
|
104
|
0 |
0 |
if ($$self{'debug'}) |
|
109
|
0 |
0 |
if (-f $derrfile) |
|
112
|
0 |
0 |
if (open $fh, "<$errfile") |
|
118
|
0 |
0 |
unless ($errmsg) |
|
119
|
0 |
0 |
$$self{'_ep_err_type'} ? : |
|
126
|
0 |
0 |
if (not $$self{'_ep_stop'}) |
|
136
|
9 |
68 |
if ($$token{'type'} eq 'S') { } |
|
|
36 |
32 |
elsif ($$token{'type'} eq 'E') { } |
|
137
|
5 |
4 |
if $$token{'tag'} eq $tag |
|
139
|
34 |
2 |
if ($$token{'tag'} eq $tag) |
|
140
|
29 |
5 |
unless $level-- |
|
149
|
3 |
9 |
if defined $val |
|
151
|
9 |
0 |
ref $token ? : |
|
154
|
7 |
2 |
$parse ? : |
|
161
|
49 |
138 |
if ($val =~ /\$\_\W/) { } |
|
|
34 |
104 |
elsif ($val =~ /\$/) { } |
|
164
|
0 |
49 |
if $@ |
|
189
|
0 |
227 |
if $debug >= 2 |
|
194
|
205 |
132 |
if ($type eq 'T') { } |
|
|
126 |
6 |
elsif ($$token{'type'} eq 'S') { } |
|
|
6 |
0 |
elsif ($$token{'type'} eq 'I') { } |
|
|
0 |
0 |
elsif ($$token{'type'} eq 'E') { } |
|
201
|
0 |
120 |
unless (defined $res) |
|
222
|
0 |
221 |
if $debug >= 2 |
|
232
|
0 |
0 |
unless defined $^S |
|
234
|
0 |
0 |
unless $msg =~ /\n$/ |
|
241
|
0 |
0 |
if $self and ref $self |
|
242
|
0 |
0 |
$r ? : |
|
243
|
0 |
0 |
$admin ? : |
|
246
|
0 |
0 |
unless ($template) |
|
263
|
0 |
0 |
if ($r) { } |
|
273
|
0 |
0 |
$$self{'_ep_r'} ? : |
|
293
|
0 |
208 |
if ($var eq 'cgi') |
|
300
|
0 |
31 |
unless ref $var |
|
303
|
4 |
27 |
if ($v =~ /^\d+$/) { } |
|
309
|
208 |
0 |
defined $var ? : |
|
316
|
9 |
198 |
if ($type and $type eq '&') |
|
318
|
0 |
9 |
exists $$self{'_ep_custom_formats'}{$var} ? : |
|
322
|
9 |
0 |
if ($subvar and $subvar =~ /^\-\>(\w+)(.*)/) { } |
|
332
|
191 |
16 |
if (not $type or $type eq '%') { } |
|
|
3 |
13 |
elsif ($type eq '#') { } |
|
|
0 |
13 |
elsif ($type eq '~') { } |
|
|
9 |
4 |
elsif ($func) { } |
|
364
|
0 |
0 |
unless @cookies |
|
365
|
0 |
0 |
if $$self{'debug'} |
|
375
|
55 |
28 |
if (exists $$attr{'eval'}) |
|
376
|
0 |
55 |
if $debug |
|
379
|
2 |
26 |
if (exists $$attr{'neval'}) |
|
380
|
0 |
2 |
if $debug |
|
383
|
0 |
26 |
unless exists $$attr{'cnd'} |
|
384
|
22 |
4 |
if ($$attr{'cnd'} =~ /^(.*?)(==|!=|<=?|>=?)(.*)$/) |
|
385
|
0 |
22 |
if $debug |
|
389
|
3 |
19 |
if $cnd eq '==' |
|
390
|
3 |
16 |
if $cnd eq '!=' |
|
391
|
7 |
9 |
if $cnd eq '<' |
|
392
|
3 |
6 |
if $cnd eq '>' |
|
393
|
3 |
3 |
if $cnd eq '>=' |
|
396
|
0 |
4 |
unless $$attr{'cnd'} =~ /^\s*\'(.*?)\'\s*(eq|ne)\s*\'(.*)\'\s*$/ |
|
398
|
0 |
4 |
if $debug |
|
399
|
2 |
2 |
if $2 eq 'eq' |
|
420
|
15 |
0 |
if (not exists $$attr{'require'} or $$attr{'require'}) |
|
421
|
0 |
15 |
if $$attr{'lib'} |
|
423
|
0 |
15 |
if @inc |
|
430
|
1 |
14 |
if ($$attr{'isa'} or $$self{'_ep_package'}) { } |
|
434
|
0 |
1 |
if @isa |
|
456
|
0 |
0 |
if ($debughosts) |
|
459
|
0 |
0 |
if ($$self{'_ep_r'} and my $r = $$self{'_ep_r'}) { } |
|
465
|
0 |
0 |
if $remoteip and not $remoteip =~ /$debughosts/ and not $remotehost =~ /$debughosts/ |
|
486
|
0 |
2 |
if (my $file = $$attr{'src'}) { } |
|
488
|
0 |
0 |
if (not -f $file and -f $$self{'env'}{'DOCUMENT_ROOT'} . $file) |
|
491
|
0 |
0 |
unless open $fh, "<$file" |
|
494
|
0 |
0 |
unless defined $fh and close $fh |
|
504
|
0 |
2 |
if ($$attr{'safe'}) { } |
|
506
|
0 |
0 |
unless ($compartment) |
|
510
|
0 |
0 |
if ($$self{'debug'}) |
|
518
|
0 |
2 |
if $$self{'debug'} |
|
522
|
0 |
2 |
if $@ |
|
523
|
0 |
2 |
if $$self{'debug'} |
|
531
|
0 |
2 |
if $debug |
|
532
|
0 |
2 |
if (my $type = $$attr{'output'}) |
|
533
|
0 |
0 |
if ($type eq 'html') { } |
|
|
0 |
0 |
elsif ($type eq 'htmlbr') { } |
|
|
0 |
0 |
elsif ($type eq 'url') { } |
|
542
|
0 |
2 |
if $debug |
|
549
|
0 |
2 |
unless defined $code |
|
561
|
0 |
0 |
if $$self{'debug'} |
|
575
|
0 |
0 |
if ($start_at || $limit != -1 and $$dbh{'ImplementorClass'} eq 'DBD::mysql::db') |
|
580
|
0 |
0 |
if ($$self{'debug'}) |
|
597
|
0 |
0 |
unless ($sth->fetchrow_arrayref) |
|
602
|
0 |
0 |
exists $$attr{'resulttype'} && $$attr{'resulttype'} =~ /array/ ? : |
|
606
|
0 |
0 |
ref $ref eq 'ARRAY' ? : |
|
608
|
0 |
0 |
if (exists $$attr{'resulttype'} and $$attr{'resulttype'} =~ /^single_/) { } |
|
615
|
0 |
0 |
if $$self{'debug'} |
|
623
|
0 |
0 |
unless (exists $$attr{'result'}) |
|
624
|
0 |
0 |
if $debug |
|
639
|
1 |
3 |
unless ($var =~ /^template|range|format|items?|selected(?:\-text)?$/i) |
|
653
|
0 |
20 |
if (defined $$attr{'template'}) { } |
|
664
|
16 |
4 |
if ($range = $$attr{'range'}) { } |
|
665
|
16 |
0 |
$_ =~ /(\d+)\.\.(\d+)/ ? : |
|
669
|
1 |
3 |
$items =~ /^(\w+)((?:\-\>\w+)+)$/ ? : |
|
|
0 |
4 |
ref $items ? : |
|
673
|
0 |
20 |
if $debug |
|
675
|
0 |
20 |
unless my $l = $$attr{'item'} |
|
681
|
66 |
0 |
unless $l eq 'i' |
|
682
|
5 |
61 |
if ($selected) |
|
683
|
0 |
5 |
if (ref $ref eq 'HASH') { } |
|
|
0 |
5 |
elsif (ref $ref eq 'ARRAY') { } |
|
690
|
1 |
4 |
$isSelected ? : |
|
695
|
1 |
19 |
if (my $format = $$attr{'format'}) { } |
|
708
|
0 |
0 |
$type && lc $type eq 'user' ? : |
|
709
|
0 |
0 |
if ($$attr{'src'}) { } |
|
723
|
0 |
0 |
$type && lc $type eq 'user' ? : |
|
744
|
0 |
0 |
if not defined $v or $$val{'type'} ne 'n' |
|
747
|
0 |
0 |
unless $comma |
|
751
|
0 |
0 |
if $debug |
|
753
|
0 |
0 |
if $debug |
|
755
|
0 |
0 |
if $debug |
|
769
|
1 |
1 |
if $list |
|
773
|
3 |
1 |
if ($list) |
|
777
|
17 |
8 |
if ($var =~ /^\Q$p\E\_?(\w+?)_(.*)$/) |
|
780
|
9 |
8 |
if ($type =~ /^d[dmy]$/) { } |
|
782
|
6 |
3 |
if ($$hash{$col}) |
|
786
|
3 |
0 |
unless ($$hash{$col}) |
|
790
|
0 |
3 |
if ($year eq '' and $month eq '' and $day eq '') { } |
|
793
|
1 |
2 |
if ($year < 20) { } |
|
|
1 |
1 |
elsif ($year < 100) { } |
|
810
|
0 |
8 |
$type eq 's' ? : |
|
819
|
3 |
1 |
if ($list) { } |
|
820
|
0 |
3 |
if $$attr{'sqlquery'} |
|
822
|
1 |
2 |
unless %$hash |
|
827
|
0 |
1 |
if $$attr{'sqlquery'} |
|
831
|
0 |
2 |
if ($$self{'debug'}) |
|
843
|
26 |
33 |
if $state |
|
847
|
130 |
241 |
if ($$token{'type'} eq 'S') { } |
|
|
71 |
170 |
elsif ($$token{'type'} eq 'E') { } |
|
848
|
10 |
120 |
if ($$token{'tag'} eq 'ep-if') { } |
|
|
114 |
6 |
elsif ($$token{'tag'} =~ /^ep-els(?:e|e?if)?$/) { } |
|
851
|
18 |
96 |
if $level |
|
852
|
31 |
65 |
if ($state) { } |
|
|
42 |
23 |
elsif (not $state_done) { } |
|
856
|
29 |
13 |
if ($state = $$token{'tag'} eq 'ep-else' || $self->EvalIf($tag, $self->ParseAttr($$token{'attr'}))) |
|
865
|
69 |
2 |
if ($$token{'tag'} eq 'ep-if') |
|
866
|
10 |
59 |
if $level-- |
|
867
|
4 |
55 |
unless $state_done |
|
868
|
24 |
31 |
if $state |
|
892
|
0 |
0 |
unless $$attr{'to'} |
|
893
|
0 |
0 |
unless $$attr{'subject'} |
|
900
|
0 |
0 |
if $debug |
|
901
|
0 |
0 |
if ($debug) |
|
907
|
0 |
0 |
unless my $smtp = 'Net::SMTP'->new($host, 'Debug', $debug) |
|
924
|
3 |
0 |
if -f $df |
|
926
|
0 |
3 |
unless open $fh, "<$f" |
|
930
|
3 |
0 |
if $tokens |
|
950
|
0 |
0 |
unless my $to = $$attr{'to'} |
|
951
|
0 |
0 |
if $$self{'debug'} |
|
952
|
0 |
0 |
$$attr{'cookies'} ? : |
|
972
|
0 |
2 |
if ($key =~ /^\d+$/) { } |
|
978
|
0 |
8 |
if $$self{'debug'} |
|
979
|
1 |
7 |
if ($var =~ /^\d+$/) { } |
|
989
|
1 |
1 |
if (not defined $str or $str eq '') |