| lib/HTTP/Handy.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 24 | 72 | 33.3 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 21 | 6 | 0 | 0 | $] < "5.006" and not defined &warnings::import |
| 145 | 0 | 0 | 0 | defined $request_line and $request_line ne "" |
| 152 | 0 | 0 | 0 | defined $method and $method eq 'GET' || $method eq 'POST' |
| 168 | 0 | 0 | 0 | defined $path and $path ne "" |
| 192 | 0 | 0 | 0 | $headers{'host'} && $headers{'host'} =~ /:(\d+)$/ |
| 206 | 0 | 0 | 0 | $method eq "POST" and $content_length > 0 |
| 247 | 0 | 0 | 0 | ref $response eq "ARRAY" and scalar @$response == 3 |
| 463 | 1 | 1 | 6 | defined $query and $query ne "" |
| 500 | 2 | 1 | 2 | defined $env->{'HTTP_HX_REQUEST'} && $env->{'HTTP_HX_REQUEST'} eq 'true' |
| 580 | 1 | 0 | 1 | defined $HTTP::Handy::ACCESS_LOG_FH and $current_log_filename eq $HTTP::Handy::CURRENT_LOG_FILE |
| line | l | !l | condition |
|---|---|---|---|
| 187 | 0 | 0 | $headers{'host'} || 'localhost' |
| 196 | 0 | 0 | $headers{'content-length'} || 0 |
| 220 | 0 | 0 | $headers{'content-type'} || '' |
| 255 | 0 | 0 | $STATUS_TEXT{$status} || 'Unknown' |
| 264 | 0 | 0 | shift @h || '' |
| 265 | 0 | 0 | shift @h || '' |
| 287 | 0 | 0 | $headers{'user-agent'} || '' |
| 288 | 0 | 0 | $headers{'referer'} || '' |
| 370 | 19 | 1 | $docroot ||= "." |
| 374 | 20 | 0 | $env->{'PATH_INFO'} || '/' |
| 403 | 14 | 1 | $MIME{$ext} || 'application/octet-stream' |
| 492 | 9 | 2 | $MIME{$ext} || 'application/octet-stream' |
| 508 | 1 | 1 | $code ||= 302 |
| 520 | 0 | 1 | $code ||= 200 |
| 532 | 1 | 2 | $code ||= 200 |
| 544 | 0 | 1 | $code ||= 200 |
| 643 | 0 | 2 | $_[3] || 0 |
| 656 | 0 | 2 | $whence ||= 0 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 152 | 0 | 0 | 0 | $method eq 'GET' || $method eq 'POST' |
| 328 | 0 | 0 | 0 | $STATUS_TEXT{$code} || $message |