$new_options->{cache} = $_cache if defined $_cache;
$options = $new_options;
}
+ my $unsafe = $options->{unsafe} || 0;
# the key mustn't contain whitespace (or control characters) for memcache
# but shouldn't be any harm in applying it globally.
$expiry //= $self->{timeout};
my $set_sub = $self->{ref($self->{$cache}) . "_set"};
- $value = clone $value;
+ # Deep copy if it's not a scalar and unsafe is not passed
+ $value = clone( $value ) if ref($value) and not $unsafe;
+
# Set in L1 cache
$L1_cache{ $key } = $value;
use Modern::Perl;
-use Test::More tests => 39;
+use Test::More tests => 40;
my $destructorcount = 0;
$item_from_cache = $cache->get_from_cache('test_deep_copy_hash');
%$item_from_cache = ( another => 'hashref' );
is_deeply( $cache->get_from_cache('test_deep_copy_hash'), { a => 'hashref' }, 'A hash will be deep copied');
+
%item = ( a_modified => 'hashref' );
is_deeply( $cache->get_from_cache('test_deep_copy_hash'), { a => 'hashref' }, 'A hash will be deep copied when set in cache');
+
+ %item = ( a => 'hashref' );
+ $cache->set_in_cache('test_deep_copy_hash', \%item, { unsafe => 1});
+ %item = ( a_modified => 'hashref' );
+ is_deeply( $cache->get_from_cache('test_deep_copy_hash'), { a_modified => 'hashref' }, 'A hash will not be deep copied when set in cache if the unsafe flag is set');
+
$item_from_cache = $cache->get_from_cache('test_deep_copy_hash', { unsafe => 1});
%$item_from_cache = ( another => 'hashref' );
is_deeply( $cache->get_from_cache('test_deep_copy_hash'), { another => 'hashref' }, 'A hash will not be deep copied if the unsafe flag is set');