| blib/lib/Hypersonic/Protocol/HTTP1.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 18 | 34 | 52.9 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 338 | 1 | 1 | 7 | defined $data and length $data |
| line | l | !l | condition |
|---|---|---|---|
| 30 | 55 | 0 | $args{'status'} // 200 |
| 32 | 35 | 20 | $args{'headers'} // {} |
| 33 | 55 | 0 | $args{'body'} // "" |
| 34 | 55 | 0 | $args{'keep_alive'} // 1 |
| 35 | 55 | 0 | $args{'security_headers'} // "" |
| 62 | 20 | 0 | $args{'security_headers'} // "" |
| 78 | 20 | 0 | $analysis->{'methods_used'} // {} |
| 246 | 35 | 0 | $text{$code} // "Unknown" |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 31 | 20 | 35 | 0 | $args{'status_text'} // _status_text($status) |
| 37 | 0 | 55 | 0 | $headers->{'Content-Type'} // ($body =~ /^\s*[\[{]/ ? "application/json" : "text/plain") |
| 50 | 0 | 0 | 2 | $h eq "Content-Type" or $h eq "Content-Length" |
| 0 | 0 | 2 | $h eq "Content-Type" or $h eq "Content-Length" or $h eq "Connection" | |
| 89 | 27 | 0 | 0 | $method_lens{$method} // length $method |