| line |
true |
false |
branch |
|
207
|
0 |
0 |
if (my $builtin = $builtin{$page}) |
|
208
|
0 |
0 |
if ref $builtin eq 'CODE' |
|
211
|
0 |
0 |
if ($basedir and open my $fh, '<', "$basedir/$page") |
|
212
|
0 |
0 |
$page =~ /\.(gif|png|jpeg)$/ ? : |
|
|
0 |
0 |
$page =~ /\.html?$/ ? : |
|
|
0 |
0 |
$page =~ /\.css$/ ? : |
|
|
0 |
0 |
$page =~ /\.js$/ ? : |
|
244
|
159 |
12 |
if (@$t > 1) |
|
257
|
0 |
0 |
unless $spec |
|
258
|
0 |
0 |
if $_->[0] |
|
283
|
0 |
0 |
if ($tests[0]) { } |
|
292
|
0 |
0 |
unless (&blessed($test)) |
|
297
|
0 |
0 |
$valid < 0 ? : |
|
|
0 |
0 |
$valid > 0 ? : |
|
298
|
0 |
0 |
$valid < 0 ? : |
|
|
0 |
0 |
$valid > 0 ? : |
|
320
|
0 |
0 |
if $NOGARBLE |
|
321
|
0 |
0 |
unless my($keep, $garble) = $url =~ m[^((?:https?://[^/]+)?/)(.+)] |
|
323
|
0 |
0 |
$CLIENTIP ? : |
|
324
|
0 |
0 |
$CLIENTIP ? : |
|
330
|
0 |
0 |
if $pad |
|
331
|
0 |
0 |
$CLIENTIP ? : |
|
336
|
0 |
0 |
unless my($keep, $type, $u, $rest) = $url =~ m[^(.*/)([=-])([0-9A-Za-z_\-]+={0,2})([/? ].*)?$] |
|
343
|
0 |
0 |
$type eq '=' ? : |
|
345
|
0 |
0 |
if $type ne '=' and @_ |
|
348
|
0 |
0 |
if $u =~ /[\x00-\x1f\x7f-\xff]/ |
|
355
|
0 |
0 |
$w eq 'zlib' ? : |
|
|
0 |
0 |
$w eq 'gzip' ? : |
|
368
|
0 |
0 |
@_ > 1 ? : |
|
379
|
0 |
0 |
if (my $n = $path2num->{$path}) { } |
|
380
|
0 |
0 |
if not defined $maxold or $maxold < $n |
|
395
|
0 |
0 |
unless $path2num |
|
401
|
0 |
0 |
unless $num2path |
|
422
|
0 |
0 |
if $ip =~ /^(?:::ffff:)?(\d+\.\d+\.\d+\.\d+)$/ |
|
429
|
0 |
0 |
if ($p[$i] eq '') |
|
440
|
0 |
0 |
if length $ip == 4 |
|
444
|
0 |
0 |
if (not $part[$i]) { } |
|
446
|
0 |
0 |
if ($null) { } |
|
448
|
0 |
0 |
if not $maxnull or $$null > $maxnull |
|
458
|
0 |
0 |
unless defined $maxnull |