Lines 283-289
sub set_in_cache {
Link Here
|
283 |
my $set_sub = $self->{ref($self->{$cache}) . "_set"}; |
283 |
my $set_sub = $self->{ref($self->{$cache}) . "_set"}; |
284 |
|
284 |
|
285 |
# Deep copy if it's not a scalar and unsafe is not passed |
285 |
# Deep copy if it's not a scalar and unsafe is not passed |
286 |
$value = clone( $value ) if ref($value) and not $unsafe; |
286 |
$value = dclone( $value ) if ref($value) and not $unsafe; |
287 |
|
287 |
|
288 |
# Set in L1 cache |
288 |
# Set in L1 cache |
289 |
$L1_cache{ $key } = $value; |
289 |
$L1_cache{ $key } = $value; |
Lines 339-345
sub get_from_cache {
Link Here
|
339 |
# Otherwise the L1 cache won't ever be populated |
339 |
# Otherwise the L1 cache won't ever be populated |
340 |
$L1_cache{$key} = $value; |
340 |
$L1_cache{$key} = $value; |
341 |
|
341 |
|
342 |
$value = clone $value if ref $L1_cache{$key} and not $unsafe; |
342 |
$value = dclone $value if ref $L1_cache{$key} and not $unsafe; |
343 |
|
343 |
|
344 |
return $value; |
344 |
return $value; |
345 |
} |
345 |
} |
346 |
- |
|
|