| line |
true |
false |
branch |
|
24
|
0 |
0 |
$ENV{'MOD_PERL'} =~ m[ ^ mod_perl / (\d+\.[\d_]+) (?: \.\d+)? $ ]x ? : |
|
|
1 |
0 |
!$ENV{'MOD_PERL'} ? : |
|
27
|
1 |
0 |
if $v < 1.98 |
|
32
|
0 |
1 |
if (&_is_mod_perl_1()) { } |
|
|
0 |
1 |
elsif (&_is_mod_perl_2()) { } |
|
36
|
0 |
0 |
if (eval {
do {
require Apache2::RequestRec
}
}) { } |
|
61
|
0 |
0 |
ref $_[0] eq 'ARRAY' ? : |
|
|
0 |
0 |
if UNIVERSAL::isa($_, 'HASH') and $ref = $_->{'dbh_cache'} |
|
62
|
0 |
0 |
if $ref |
|
74
|
0 |
0 |
if (defined $LINE_CACHE{"${file}:$line_n"}) { } |
|
79
|
0 |
0 |
if (open my $fh, '<', $file) |
|
83
|
0 |
0 |
if (++$n == $line_n) { } |
|
|
0 |
0 |
elsif ($l =~ /debug/) { } |
|
|
0 |
0 |
elsif ($n > $ignore_after) { } |
|
99
|
0 |
0 |
unless $file =~ s/$QR_TRACE1/$1/ |
|
102
|
0 |
0 |
if $called eq 'debug_warn' |
|
108
|
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) |
|
113
|
0 |
0 |
if $hold =~ /^\s*\(/ |
|
114
|
0 |
0 |
/^[\"\']/ ? : |
|
115
|
0 |
0 |
if $#var == $#_var |
|
119
|
0 |
0 |
if ($called eq 'debug_html' or $called eq 'debug' and $ENV{'REQUEST_METHOD'}) { } |
|
129
|
0 |
0 |
if $called eq 'debug_html' |
|
132
|
0 |
0 |
$typed ? : |
|
140
|
0 |
0 |
if $called eq 'debug_text' |
|
142
|
0 |
0 |
if ($called eq 'debug_warn') { } |
|
162
|
0 |
0 |
unless defined wantarray |
|
168
|
0 |
0 |
if (my $r = &apache_request_sub()->()) { } |
|
171
|
0 |
0 |
$ENV{'CONTENT_TYPED'} ? : |
|
178
|
0 |
0 |
if (my $r = &apache_request_sub()->()) { } |
|
179
|
0 |
0 |
if $r->bytes_sent |
|
181
|
0 |
0 |
if &_is_mod_perl_1() |
|
183
|
0 |
0 |
unless ($ENV{'CONTENT_TYPED'}) |
|
193
|
0 |
0 |
unless defined $value |
|
201
|
0 |
0 |
unless eval {
do {
require 5.8.0
}
} |
|
212
|
0 |
0 |
if $$skip{$i{'file'}} |
|
214
|
0 |
0 |
$i{'has_args'} ? : |
|
216
|
0 |
0 |
unless $i{'file'} =~ s/$QR_TRACE1/$1/ |
|
217
|
0 |
0 |
if length $i{'sub_name'} > $max1 |
|
218
|
0 |
0 |
if length $i{'file'} > $max2 |
|
219
|
0 |
0 |
if length $i{'line'} > $max3 |
|
224
|
0 |
0 |
$ref->{'args'} ? : |