| blib/lib/HTTP/Request/AsCGI.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 19 | 31 | 61.2 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 33 | 0 | 0 | 7 | @_ % 2 == 0 and eval { do { $request->isa('HTTP::Request') } } |
| 91 | 1 | 0 | 6 | $$environment{'SCRIPT_NAME'} eq '/' and $$environment{'PATH_INFO'} |
| 194 | 0 | 1 | 3 | $message and $message =~ /^(.+)\x0d$/ |
| 198 | 1 | 0 | 3 | $status and $status =~ /^(\d\d\d)\s?(.+)?$/ |
| 209 | 2 | 1 | 1 | $response->code == 500 and not $length |
| 239 | 0 | 0 | 3 | $length and not $response->content_length |
| 292 | 1 | 6 | 0 | $$self{'setuped'} and not $$self{'restored'} |
| line | l | !l | condition |
|---|---|---|---|
| 54 | 1 | 6 | $uri->query || '' |
| 0 | 7 | $request->protocol || 'HTTP/1.1' |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 47 | 7 | 0 | 0 | not $host or $host eq $uri->host_port |
| 201 | 2 | 1 | 0 | $2 || &HTTP::Status::status_message($code) |