| line |
true |
false |
branch |
|
197
|
57 |
0 |
unless ($self->ref_in_cache_key) |
|
198
|
6 |
51 |
if $self->_no_cache_header_directives($request) |
|
200
|
30 |
21 |
unless my $response = $self->cache->get($clone->as_string) |
|
202
|
0 |
21 |
if $response->code < 200 or $response->code > 301 |
|
205
|
1 |
20 |
if ($response->header('etag')) |
|
209
|
0 |
21 |
if $self->_no_cache_header_directives($response) |
|
232
|
0 |
41 |
unless $response |
|
234
|
41 |
0 |
unless ($response->header('client-transfer-encoding') and &any(sub {
'chunked' eq $_;
}
, $response->header('client-transfer-encoding'))) |
|
242
|
0 |
0 |
if not defined $_ and $self->cache_undef_content_length |
|
244
|
0 |
0 |
if 0 == $_ and not $self->cache_zero_content_length |
|
247
|
0 |
0 |
if $_ != length $response->content and not $self->cache_mismatch_content_length |
|
253
|
10 |
68 |
if $self->_no_cache_header_directives($message) |
|
263
|
0 |
156 |
if $self->ignore_headers |
|
266
|
16 |
292 |
if (my(@directives) = $message->header($header_name)) |
|
267
|
16 |
0 |
if &any(sub {
/\A no- (?: cache | store ) /msx;
}
, @directives) |
|
280
|
0 |
13 |
'HASH' eq ref $_[0] ? : |