diff --git a/lib/Lacuna/Cache.pm b/lib/Lacuna/Cache.pm index ef69d8c5..15d66d8b 100644 --- a/lib/Lacuna/Cache.pm +++ b/lib/Lacuna/Cache.pm @@ -129,6 +129,7 @@ sub get_and_deserialize { sub add { my ($self, $namespace, $id, $value, $ttl, $retry) = @_; my $key = $self->fix_key($namespace, $id); + $log->info("[Cache]: adding $key = $value"); $ttl ||= 60; my $frozenValue = (ref $value) ? JSON::to_json($value) : $value; my $memcached = $self->memcached; @@ -158,6 +159,7 @@ sub add { sub set { my ($self, $namespace, $id, $value, $ttl, $retry) = @_; my $key = $self->fix_key($namespace, $id); + $log->info("[Cache]: setting $key = $value (ttl: $ttl)"); $ttl ||= 60; my $frozenValue = (ref $value) ? JSON::to_json($value) : $value; my $memcached = $self->memcached;