| line |
true |
false |
branch |
|
58
|
20 |
47 |
defined $p_explicit_expires_in ? : |
|
96
|
3 |
58 |
unless (defined $p_object) |
|
103
|
0 |
58 |
if ($p_object->get_expires_at eq $Cache::BaseCache::EXPIRES_NOW) { } |
|
|
12 |
46 |
elsif ($p_object->get_expires_at eq $Cache::BaseCache::EXPIRES_NEVER) { } |
|
|
20 |
26 |
elsif ($p_time >= $p_object->get_expires_at) { } |
|
133
|
36 |
31 |
if ($p_expires_in eq $Cache::BaseCache::EXPIRES_NEVER) { } |
|
155
|
0 |
31 |
if (uc $p_expires_in eq uc $Cache::BaseCache::EXPIRES_NOW) { } |
|
|
0 |
31 |
elsif (uc $p_expires_in eq uc $Cache::BaseCache::EXPIRES_NEVER) { } |
|
|
31 |
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
|
44 |
11 |
unless $self->get_namespace eq $AUTO_PURGE_NAMESPACE |
|
199
|
14 |
41 |
unless my $object = $self->get_object($p_key) |
|
202
|
16 |
25 |
if (Object_Has_Expired($object)) |
|
236
|
31 |
91 |
unless my $object = $self->_get_backend->restore($self->get_namespace, $p_key) |
|
356
|
12 |
4 |
defined $p_options_hash_ref ? : |
|
389
|
2 |
14 |
if (defined $auto_purge_interval) |
|
430
|
12 |
71 |
if (defined $$options_hash_ref{$p_option_name}) { } |
|
451
|
0 |
11 |
unless $self->_should_auto_purge |
|
457
|
11 |
0 |
unless (defined $self->get($real_namespace)) |
|
498
|
7 |
13 |
if ($self->_needs_auto_purge) |
|
533
|
18 |
38 |
if ($self->get_auto_purge_on_set) |
|
546
|
0 |
44 |
if ($self->get_auto_purge_on_get) |