| 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) |