| blib/lib/HealthCheck/Diagnostic/WebRequest.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 26 | 42 | 61.9 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 20 | 15 | 0 | 0 | @params == 1 && (ref $params[0] || '') eq 'HASH' |
| 41 | 0 | 0 | 0 | $params{'request'} and &blessed($params{'request'}) |
| 0 | 0 | 0 | $params{'request'} and &blessed($params{'request'}) and $params{'request'}->isa('HTTP::Request') | |
| 43 | 0 | 15 | 0 | $params{'url'} and $params{'request'} |
| 54 | 10 | 4 | 3 | defined $op and $op eq '!' |
| 130 | 14 | 4 | 2 | $client_warning and $client_warning eq 'Internal response' |
| line | l | !l | condition |
|---|---|---|---|
| 46 | 6 | 9 | $params{'status_code'} ||= '200' |
| 63 | 2 | 13 | $params{'options'} //= {} |
| 64 | 14 | 0 | $class->VERSION || '0' |
| 66 | 1 | 14 | $params{'options'}{'timeout'} //= 7 |
| 103 | 6 | 14 | $response->header('Client-Warning') // '' |
| 104 | 1 | 19 | $response->header('X-Squid-Error') // '' |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 41 | 15 | 0 | 0 | $params{'url'} or $params{'request'} and &blessed($params{'request'}) and $params{'request'}->isa('HTTP::Request') |
| 62 | 0 | 15 | 0 | $params{'request'} //= 'HTTP::Request'->new('GET', $params{'url'}) |
| 64 | 1 | 14 | 0 | $params{'options'}{'agent'} //= 'LWP::UserAgent'->_agent . ' HealthCheck-Diagnostic-WebRequest/' . ($class->VERSION || '0') |
| 127 | 10 | 1 | 9 | $status eq 'OK' or $proxy_error |