Branch Coverage

blib/lib/HTML/Mason/Cache/BaseCache.pm
Criterion Covered Total %
branch 16 20 80.0


line true false branch
16 0 66 unless defined $key
19 0 10 unless ($param =~ /^(busy_lock|expire_if)$/)
26 6 60 if (my $sub = $params{'expire_if'})
30 21 45 unless my $object = $self->get_object($key)
33 13 32 if (Cache::BaseCache::Object_Has_Expired($object))
35 4 9 if ($params{'busy_lock'}) { }
55 5 0 if (my $obj = $self->get_object($key))
64 0 6 unless defined $sub and ref $sub eq "CODE"
66 5 1 if (my $obj = $self->get_object($key)) { }
68 2 3 if ($retval)