| line |
true |
false |
branch |
|
182
|
57 |
0 |
unless ($self->ref_in_cache_key) |
|
183
|
6 |
51 |
if $self->_no_cache_header_directives($request) |
|
185
|
30 |
21 |
unless my $response = $self->cache->get($clone->as_string) |
|
187
|
0 |
21 |
if $response->code < 200 or $response->code > 301 |
|
190
|
1 |
20 |
if ($response->header('etag')) |
|
194
|
0 |
21 |
if $self->_no_cache_header_directives($response) |
|
217
|
0 |
41 |
unless $response |
|
219
|
41 |
0 |
unless ($response->header('client-transfer-encoding') and &any(sub {
'chunked' eq $_;
}
, $response->header('client-transfer-encoding'))) |
|
227
|
0 |
0 |
if not defined $_ and $self->cache_undef_content_length |
|
229
|
0 |
0 |
if 0 == $_ and not $self->cache_zero_content_length |
|
232
|
0 |
0 |
if $_ != length $response->content and not $self->cache_mismatch_content_length |
|
238
|
10 |
68 |
if $self->_no_cache_header_directives($message) |
|
250
|
16 |
292 |
if (my(@directives) = $message->header($header_name)) |
|
251
|
16 |
0 |
if &any(sub {
/\A no- (?: cache | store ) /msx;
}
, @directives) |
|
264
|
0 |
13 |
'HASH' eq ref $_[0] ? : |