Branch Coverage

blib/lib/Cache/BaseCache.pm
Criterion Covered Total %
branch 35 44 79.5


line true false branch
58 40 95 defined $p_explicit_expires_in ? :
96 6 117 unless (defined $p_object)
103 0 117 if ($p_object->get_expires_at eq $Cache::BaseCache::EXPIRES_NOW) { }
24 93 elsif ($p_object->get_expires_at eq $Cache::BaseCache::EXPIRES_NEVER) { }
42 51 elsif ($p_time >= $p_object->get_expires_at) { }
133 72 63 if ($p_expires_in eq $Cache::BaseCache::EXPIRES_NEVER) { }
155 0 63 if (uc $p_expires_in eq uc $Cache::BaseCache::EXPIRES_NOW) { }
0 63 elsif (uc $p_expires_in eq uc $Cache::BaseCache::EXPIRES_NEVER) { }
63 0 elsif ($p_expires_in =~ /^\s*([+-]?(?:\d+|\d*\.\d*))\s*$/) { }
0 0 elsif ($p_expires_in =~ /^\s*([+-]?(?:\d+|\d*\.\d*))\s*(\w*)\s*$/ and exists $_Expiration_Units{$2}) { }
196 88 23 unless $self->get_namespace eq $AUTO_PURGE_NAMESPACE
199 28 83 unless my $object = $self->get_object($p_key)
202 33 50 if (Object_Has_Expired($object))
236 62 184 unless my $object = $self->_get_backend->restore($self->get_namespace, $p_key)
356 44 8 defined $p_options_hash_ref ? :
389 4 48 if (defined $auto_purge_interval)
430 44 330 if (defined $$options_hash_ref{$p_option_name}) { }
451 0 23 unless $self->_should_auto_purge
457 23 0 unless (defined $self->get($real_namespace))
498 15 25 if ($self->_needs_auto_purge)
533 36 76 if ($self->get_auto_purge_on_set)
546 0 88 if ($self->get_auto_purge_on_get)