| line |
true |
false |
branch |
|
20
|
5 |
0 |
if $INC[-1] eq "." |
|
22
|
0 |
5 |
if ($] < "5.006") |
|
82
|
0 |
0 |
unless my $app = $args{'app'} |
|
83
|
0 |
0 |
defined $args{'host'} ? : |
|
84
|
0 |
0 |
defined $args{'port'} ? : |
|
85
|
0 |
0 |
defined $args{'log'} ? : |
|
86
|
0 |
0 |
defined $args{'max_post_size'} ? : |
|
88
|
0 |
0 |
unless ref $app eq "CODE" |
|
89
|
0 |
0 |
unless $port =~ /^\d+$/ |
|
90
|
0 |
0 |
unless $max_post_size =~ /^\d+$/ |
|
99
|
0 |
0 |
unless ($server) |
|
103
|
0 |
0 |
if $log |
|
104
|
0 |
0 |
if $log |
|
108
|
0 |
0 |
unless ($client) |
|
109
|
0 |
0 |
if $log |
|
119
|
0 |
0 |
if ($@) |
|
120
|
0 |
0 |
if $log |
|
135
|
0 |
0 |
unless defined $request_line and $request_line ne "" |
|
142
|
0 |
0 |
unless (defined $method and $method eq 'GET' || $method eq 'POST') |
|
149
|
0 |
0 |
if (defined $request_uri) |
|
150
|
0 |
0 |
if ($request_uri =~ /^([^?]*)\?(.*)$/) { } |
|
158
|
0 |
0 |
unless defined $path and $path ne "" |
|
164
|
0 |
0 |
unless defined $line |
|
166
|
0 |
0 |
if $line eq "" |
|
168
|
0 |
0 |
if ($line =~ /^([^:]+):\s*(.*)$/) |
|
182
|
0 |
0 |
$headers{'host'} && $headers{'host'} =~ /:(\d+)$/ ? : |
|
189
|
0 |
0 |
if ($content_length > $max_post_size) |
|
196
|
0 |
0 |
if ($method eq "POST" and $content_length > 0) |
|
229
|
0 |
0 |
if ($@) |
|
237
|
0 |
0 |
unless (ref $response eq "ARRAY" and scalar @$response == 3) |
|
251
|
0 |
0 |
if (ref $resp_headers eq "ARRAY") |
|
259
|
0 |
0 |
if @header_list |
|
264
|
0 |
0 |
if (ref $body eq "ARRAY") |
|
275
|
0 |
0 |
if ($log) |
|
302
|
0 |
0 |
if $char eq "\n" |
|
304
|
0 |
0 |
if length $line > 8192 |
|
306
|
0 |
0 |
$line eq '' ? : |
|
348
|
3 |
17 |
if ($path =~ /\.\./) |
|
361
|
2 |
15 |
if (-d $file) |
|
365
|
2 |
15 |
unless (-f $file) |
|
371
|
15 |
0 |
if ($file =~ /\.([^.]+)$/) |
|
378
|
0 |
15 |
unless (open FH, "<$file") |
|
388
|
3 |
12 |
if (exists $opts{'cache_max_age'}) { } |
|
390
|
2 |
1 |
if ($age > 0) { } |
|
414
|
1 |
28 |
unless defined $str |
|
425
|
2 |
6 |
unless defined $query and $query ne "" |
|
429
|
0 |
10 |
unless defined $key |
|
431
|
9 |
1 |
defined $val ? : |
|
432
|
2 |
8 |
if (exists $params{$key}) { } |
|
433
|
1 |
1 |
if (ref $params{$key} eq 'ARRAY') { } |
|
462
|
2 |
3 |
defined $env->{'HTTP_HX_REQUEST'} && $env->{'HTTP_HX_REQUEST'} eq 'true' ? : |
|
521
|
0 |
2 |
unless defined $data |
|
534
|
1 |
1 |
if $length > $remaining |
|
535
|
1 |
1 |
if $length <= 0 |
|
546
|
2 |
0 |
if ($whence == 0) { } |
|
|
0 |
0 |
elsif ($whence == 1) { } |
|
|
0 |
0 |
elsif ($whence == 2) { } |
|
555
|
0 |
2 |
if $self->{'pos'} < 0 |
|
566
|
3 |
4 |
if $self->{'pos'} >= length $self->{'data'} |
|
569
|
0 |
4 |
if ($nl < 0) { } |