line |
true |
false |
branch |
226
|
0 |
0 |
if (my $builtin = $builtin{$page}) |
227
|
0 |
0 |
if ref $builtin eq 'CODE' |
230
|
0 |
0 |
if ($basedir and open my $fh, '<', "$basedir/$page") |
231
|
0 |
0 |
$page =~ /\.(gif|png|jpeg)$/ ? : |
|
0 |
0 |
$page =~ /\.html?$/ ? : |
|
0 |
0 |
$page =~ /\.css$/ ? : |
|
0 |
0 |
$page =~ /\.js$/ ? : |
263
|
161 |
12 |
if (@$t > 1) |
276
|
0 |
0 |
unless $spec |
277
|
0 |
0 |
if $_->[0] |
302
|
0 |
0 |
if ($tests[0]) { } |
311
|
0 |
0 |
unless (&blessed($test)) |
316
|
0 |
0 |
$valid < 0 ? : |
|
0 |
0 |
$valid > 0 ? : |
317
|
0 |
0 |
$valid < 0 ? : |
|
0 |
0 |
$valid > 0 ? : |
339
|
0 |
0 |
if $NOGARBLE |
340
|
0 |
0 |
unless my($keep, $garble) = $url =~ m[^((?:https?://[^/]+)?/)(.+)] |
342
|
0 |
0 |
$CLIENTIP ? : |
343
|
0 |
0 |
$CLIENTIP ? : |
349
|
0 |
0 |
if $pad |
350
|
0 |
0 |
$CLIENTIP ? : |
355
|
0 |
0 |
unless my($keep, $type, $u, $rest) = $url =~ m[^(.*/)([=-])([0-9A-Za-z_\-]+={0,2})([/? ].*)?$] |
362
|
0 |
0 |
$type eq '=' ? : |
364
|
0 |
0 |
if $type ne '=' and @_ |
367
|
0 |
0 |
if $u =~ /[\x00-\x1f\x7f-\xff]/ |
374
|
0 |
0 |
$w eq 'zlib' ? : |
|
0 |
0 |
$w eq 'gzip' ? : |
387
|
0 |
0 |
@_ > 1 ? : |
398
|
0 |
0 |
if (my $n = $path2num->{$path}) { } |
399
|
0 |
0 |
if not defined $maxold or $maxold < $n |
414
|
0 |
0 |
unless $path2num |
420
|
0 |
0 |
unless $num2path |
441
|
0 |
0 |
if $ip =~ /^(?:::ffff:)?(\d+\.\d+\.\d+\.\d+)$/ |
448
|
0 |
0 |
if ($p[$i] eq '') |
459
|
0 |
0 |
if length $ip == 4 |
463
|
0 |
0 |
if (not $part[$i]) { } |
465
|
0 |
0 |
if ($null) { } |
467
|
0 |
0 |
if not $maxnull or $$null > $maxnull |
477
|
0 |
0 |
unless defined $maxnull |