| line |
true |
false |
branch |
|
25
|
0 |
0 |
$ENV{'MOD_PERL'} =~ m[ ^ mod_perl / (\d+\.[\d_]+) (?: \.\d+)? $ ]x ? : |
|
|
1 |
0 |
!$ENV{'MOD_PERL'} ? : |
|
31
|
1 |
0 |
if $v < 1.98 |
|
36
|
0 |
1 |
if (_is_mod_perl_1) { } |
|
|
0 |
1 |
elsif (_is_mod_perl_2) { } |
|
40
|
0 |
0 |
if (eval {
do {
require Apache2::RequestRec
}
}) { } |
|
65
|
0 |
0 |
ref $_[0] eq 'ARRAY' ? : |
|
|
0 |
0 |
if UNIVERSAL::isa($_, 'HASH') and $ref = $$_{'dbh_cache'} |
|
66
|
0 |
0 |
if $ref |
|
78
|
0 |
0 |
if (defined $LINE_CACHE{"${file}:$line_n"}) { } |
|
83
|
0 |
0 |
if (open my $fh, '<', $file) |
|
87
|
0 |
0 |
if (++$n == $line_n) { } |
|
|
0 |
0 |
elsif ($l =~ /debug/) { } |
|
|
0 |
0 |
elsif ($n > $ignore_after) { } |
|
103
|
0 |
0 |
unless $file =~ s/$QR_TRACE1/$1/ |
|
106
|
0 |
0 |
if $called eq 'debug_warn' |
|
112
|
0 |
0 |
if ($line =~ s/^ .*\b \Q$called\E ( \s* \( \s* | \s+ )//x and $hold = $1 and $line =~ s/ \s* \b if \b .* \n? $ //x || $line =~ s/ \s* ; \s* $ //x || $line =~ s/ \s+ $ //x) |
|
117
|
0 |
0 |
if $hold =~ /^\s*\(/ |
|
118
|
0 |
0 |
/^[\"\']/ ? : |
|
119
|
0 |
0 |
if $#var == $#_var |
|
123
|
0 |
0 |
if ($called eq 'debug_html' or $called eq 'debug' and $ENV{'REQUEST_METHOD'}) { } |
|
133
|
0 |
0 |
if $called eq 'debug_html' |
|
136
|
0 |
0 |
$typed ? : |
|
144
|
0 |
0 |
if $called eq 'debug_text' |
|
146
|
0 |
0 |
if ($called eq 'debug_warn') { } |
|
166
|
0 |
0 |
unless defined wantarray |
|
171
|
0 |
0 |
if (my $r = apache_request_sub->()) { } |
|
174
|
0 |
0 |
$ENV{'CONTENT_TYPED'} ? : |
|
181
|
0 |
0 |
if (my $r = apache_request_sub->()) { } |
|
182
|
0 |
0 |
if $r->bytes_sent |
|
184
|
0 |
0 |
if _is_mod_perl_1 |
|
186
|
0 |
0 |
unless ($ENV{'CONTENT_TYPED'}) |
|
196
|
0 |
0 |
unless defined $value |
|
204
|
0 |
0 |
unless eval {
do {
require 5.8.0
}
} |
|
215
|
0 |
0 |
if $$skip{$i{'file'}} |
|
217
|
0 |
0 |
$i{'has_args'} ? : |
|
219
|
0 |
0 |
unless $i{'file'} =~ s/$QR_TRACE1/$1/ |
|
220
|
0 |
0 |
if length $i{'sub_name'} > $max1 |
|
221
|
0 |
0 |
if length $i{'file'} > $max2 |
|
222
|
0 |
0 |
if length $i{'line'} > $max3 |
|
226
|
0 |
0 |
$$ref{'args'} ? : |