| blib/lib/PAGI/Server/Protocol/HTTP1.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 43 | 55 | 78.1 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 225 | 0 | 2 | 4 | @codings and $codings[-1] eq "chunked" |
| 236 | 864 | 0 | 1 | $header_name eq "expect" and lc $value eq "100-continue" |
| 287 | 279 | 3 | 1 | $chunked and defined $content_length |
| 293 | 0 | 0 | 282 | $env{'SERVER_PROTOCOL'} and index($env{'SERVER_PROTOCOL'}, "HTTP/") == 0 |
| 300 | 3 | 278 | 1 | $http_version eq "1.1" and not defined $env{'HTTP_HOST'} |
| 344 | 92 | 1 | 176 | $chunked and $http_version eq "1.1" |
| 356 | 0 | 0 | 1 | defined $chunk and length $chunk |
| line | l | !l | condition |
|---|---|---|---|
| 146 | 409 | 29 | $args{'max_header_size'} // 8192 |
| 1 | 437 | $args{'max_request_line_size'} // 8192 | |
| 408 | 30 | $args{'max_header_count'} // 100 | |
| 1 | 437 | $args{'max_chunk_size'} // 10485760 | |
| 188 | 291 | 0 | $env{'REQUEST_URI'} // "/" |
| 192 | 291 | 0 | $raw_path //= "/" |
| 193 | 13 | 278 | $query_string //= "" |
| 321 | 266 | 15 | $chunked //= 0 |
| 322 | 228 | 53 | $http_version //= "1.1" |
| 324 | 276 | 5 | $STATUS_PHRASES{$status} // "Unknown" |
| 354 | 1 | 0 | $chunked //= 0 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 198 | 290 | 1 | 0 | eval { do { &decode("UTF-8", $unescaped, 1) } } // $unescaped |
| 269 | 1 | 0 | 13 | length $cl_value > 10 or $cl_value > 2147483647 |
| 339 | 228 | 40 | 0 | $_server_header //= "Server: PAGI::Server/$PAGI::Server::VERSION\r\n" |
| 447 | 1 | 3 | 21 | $size_line eq "" or not $size_line =~ /^[0-9a-fA-F]+$/ |