| line |
true |
false |
branch |
| 58 |
40 |
86 |
defined $p_explicit_expires_in ? : |
| 96 |
2 |
116 |
if (not defined $p_object) |
| 103 |
0 |
116 |
if ($p_object->get_expires_at eq $EXPIRES_NOW) { } |
| |
24 |
92 |
elsif ($p_object->get_expires_at eq $EXPIRES_NEVER) { } |
| |
40 |
52 |
elsif ($p_time >= $p_object->get_expires_at) { } |
| 133 |
68 |
58 |
if ($p_expires_in eq $EXPIRES_NEVER) { } |
| 155 |
0 |
58 |
if (uc $p_expires_in eq uc $EXPIRES_NOW) { } |
| |
0 |
58 |
elsif (uc $p_expires_in eq uc $EXPIRES_NEVER) { } |
| |
58 |
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 |
18 |
unless $self->get_namespace eq $AUTO_PURGE_NAMESPACE |
| 199 |
24 |
82 |
unless my $object = $self->get_object($p_key) |
| 202 |
32 |
50 |
if (Object_Has_Expired($object)) |
| 236 |
52 |
182 |
unless my $object = $self->_get_backend->restore($self->get_namespace, $p_key) |
| 356 |
42 |
8 |
defined $p_options_hash_ref ? : |
| 389 |
4 |
46 |
if (defined $auto_purge_interval) |
| 430 |
42 |
316 |
if (defined $$options_hash_ref{$p_option_name}) { } |
| 451 |
0 |
18 |
if not $self->_should_auto_purge |
| 457 |
18 |
0 |
if (not defined $self->get($real_namespace)) |
| 498 |
10 |
26 |
if ($self->_needs_auto_purge) |
| 533 |
32 |
76 |
if ($self->get_auto_purge_on_set) |
| 546 |
0 |
88 |
if ($self->get_auto_purge_on_get) |