Branch Coverage

blib/lib/WWW/Mechanize/Cached.pm
Criterion Covered Total %
branch 25 56 44.6


line true false branch
58 9 0 if "HASH" ne ref $_[0] and $_[0]->can("get") and $_[0]->can("set")
73 2 0 if eval { do { &use_module("Cache::FileCache") } }
79 0 0 if eval { do { &use_module("CHI") } }
135 1 0 unless $self->is_cached
138 0 0 unless $request
141 0 0 $self->cache->get($request) ? :
157 0 0 unless my $handler = $self->{'onwarn'}
159 0 0 if $self->quiet
161 0 0 if ($self->_verbose_dwarn) { }
180 0 22 unless $response
181 0 22 unless $self->positive_cache
183 0 22 if $response->code < 200
184 9 13 if $response->code > 301
188 3 10 if ($headers->header("Client-Transfer-Encoding"))
198 2 1 if $cte eq "chunked"
205 1 10 unless (defined $size)
206 0 1 if ($self->cache_undef_content_length . "" eq "warn")
214 1 0 if ($self->cache_undef_content_length == 0)
219 0 10 if (defined $size and $size == 0)
220 0 0 if ($self->cache_zero_content_length . "" eq "warn")
228 0 0 if ($self->cache_zero_content_length == 0)
233 0 10 if (defined $size and $size != 0 and $size != length $response->content)
236 0 0 if ($self->cache_mismatch_content_length . "" eq "warn")
242 0 0 if ($self->cache_mismatch_content_length == 0)
255 19 24 unless $response
256 2 22 unless $self->positive_cache
258 0 22 if $response->code < 200
259 1 21 if $response->code > 301