| blib/lib/HTTP/Response.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 51 | 57 | 89.4 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 26 | 3 | 1 | 1 | $^W and not defined $str |
| 28 | 2 | 0 | 3 | defined $str and $str =~ s/^(.*)\n// |
| 89 | 4 | 2 | 1 | $base and $base =~ /^$URI::scheme_re:/o |
| 132 | 2 | 1 | 4 | $file and $file =~ /^=\?(.+?)\?(.+?)\?(.+)\?=$/ |
| 161 | 4 | 1 | 5 | defined $file and length $file |
| 179 | 3 | 7 | 0 | $file and not length $file |
| 254 | 3 | 1 | 9 | $response_time and $date |
| 260 | 6 | 3 | 4 | $age_v and $age_v > $age |
| 268 | 1 | 1 | 6 | $request_time and $request_time < $response_time |
| 297 | 15 | 1 | 4 | exists $opt{'heuristic_expiry'} and not $opt{'heuristic_expiry'} |
| line | l | !l | condition |
|---|---|---|---|
| 76 | 8 | 3 | $self->{'_rc'} || '000' |
| 77 | 8 | 3 | $self->{'_msg'} || &HTTP::Status::status_message($code) || 'Unknown code' |
| 300 | 2 | 14 | $opt{'h_min'} ||= 60 |
| 301 | 1 | 15 | $opt{'h_max'} ||= 86400 |
| 302 | 1 | 15 | $opt{'h_lastmod_fraction'} ||= "0.1" |
| 303 | 1 | 15 | $opt{'h_default'} ||= 3600 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 137 | 1 | 2 | 1 | $encoding eq "Q" or $encoding eq "B" |
| 273 | 4 | 6 | 0 | $time || time |
| 291 | 3 | 9 | 0 | $self->date || $self->client_date || $opt{'time'} || time |
| 325 | 1 | 2 | 0 | $opt{'time'} ||= time |
| 335 | 1 | 4 | 0 | $opt{'time'} ||= time |