line |
true |
false |
branch |
48
|
0 |
0 |
if $DEBUG |
49
|
0 |
0 |
if $DEBUG |
50
|
0 |
0 |
if $DEBUG |
51
|
0 |
0 |
if $DEBUG |
56
|
0 |
0 |
if (length $file > 128) { } |
64
|
0 |
0 |
if $DEBUG |
66
|
0 |
0 |
if (exists $ENV{'MOD_PERL'}) { } |
74
|
0 |
0 |
if $ENV{'TagPrefix'} |
76
|
0 |
0 |
if $DEBUG |
78
|
0 |
0 |
$source eq 'file' ? : |
83
|
0 |
0 |
if (not $CACHE{$file} or $mtime > $CACHE{$file}{'load_time'} or $caller_mtime > $CACHE{$file}{'caller_mtime'}) { } |
85
|
0 |
0 |
if $DEBUG |
87
|
0 |
0 |
if ($source eq 'file') { } |
90
|
0 |
0 |
unless ($fh->open("<$file")) |
109
|
0 |
0 |
if $DEBUG |
112
|
0 |
0 |
if ($3) |
127
|
0 |
0 |
if $$hparam{"-$2"} |
132
|
0 |
0 |
if (@data) { } |
141
|
0 |
0 |
if $DEBUG |
147
|
0 |
0 |
if $DEBUG |
148
|
0 |
0 |
if $DEBUG |
149
|
0 |
0 |
if $DEBUG |
152
|
0 |
0 |
if ($$x{-'type'} eq 'html') { } |
153
|
0 |
0 |
unless $$x{-'html'} |
155
|
0 |
0 |
if $DEBUG |
156
|
0 |
0 |
if $DEBUG |
159
|
0 |
0 |
if $DEBUG |
161
|
0 |
0 |
if ($temp =~ s/\b$key\b/$$hreplace{$key}/sig) |
162
|
0 |
0 |
if $DEBUG |
168
|
0 |
0 |
if $DEBUG |
169
|
0 |
0 |
if $DEBUG |
170
|
0 |
0 |
if $DEBUG |
171
|
0 |
0 |
if $DEBUG |
172
|
0 |
0 |
if $DEBUG |
173
|
0 |
0 |
if $DEBUG |
175
|
0 |
0 |
if (not ref $$hparam{$$x{-'name'}}) { } |