Branch Coverage

blib/lib/WWW/Mechanize/Cached.pm
Criterion Covered Total %
branch 28 58 48.2


line true false branch
58 10 0 if "HASH" ne ref $_[0] and $_[0]->can("get") and $_[0]->can("set")
68 3 0 if &use_module("Cache::FileCache")
3 0 if (eval { do { &use_module("File::XDG") if &use_module("Cache::FileCache") } })
90 0 0 if eval { do { &use_module("CHI") } }
146 2 2 unless $self->is_cached
149 0 2 unless $request
152 0 2 $self->cache->get($request) ? :
168 0 0 unless my $handler = $self->{'onwarn'}
170 0 0 if $self->quiet
172 0 0 if ($self->_verbose_dwarn) { }
191 0 29 unless $response
192 0 29 unless $self->positive_cache
194 0 29 if $response->code < 200
195 0 29 if $response->code > 301
199 5 24 if ($headers->header("Client-Transfer-Encoding"))
209 4 1 if $cte eq "chunked"
216 8 17 unless (defined $size)
217 0 8 if ($self->cache_undef_content_length . '' eq "warn")
225 8 0 if ($self->cache_undef_content_length == 0)
230 0 17 if (defined $size and $size == 0)
231 0 0 if ($self->cache_zero_content_length . '' eq "warn")
239 0 0 if ($self->cache_zero_content_length == 0)
244 0 17 if (defined $size and $size != 0 and $size != length $response->content)
247 0 0 if ($self->cache_mismatch_content_length . '' eq "warn")
253 0 0 if ($self->cache_mismatch_content_length == 0)
266 26 36 unless $response
267 2 34 unless $self->positive_cache
269 0 34 if $response->code < 200
270 1 33 if $response->code > 301