oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

basics all tested

Browse source
This commit is contained in:
JT Smith 2009-09-24 23:12:20 -05:00
parent eff27a141d
commit 66db563c39
2 changed files with 10 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

17
lib/WebGUI/Cache.pm
View file

@ -245,8 +245,8 @@ A time in seconds for the cache to exist. When you override default it to 60 sec
sub set {
my ($self, $name, $value, $ttl) = @_;
$ttl ||= 60;
$value = Storable::nfreeze(\(scalar $value)); # Storable doesn't like non-reference arguments, so we wrap it in a scalar ref.
Memcached::libmemcached::memcached_set($self->getMemcached, $self->parseKey($name), $value, $ttl);
my $frozenValue = Storable::nfreeze(\(scalar $value)); # Storable doesn't like non-reference arguments, so we wrap it in a scalar ref.
Memcached::libmemcached::memcached_set($self->getMemcached, $self->parseKey($name), $frozenValue, $ttl);
return $value;
}
@ -284,20 +284,9 @@ sub setByHttp {
# show throw exception
return undef;
}
return $self->set($response->decoded_content, $ttl);
return $self->set($name, $response->decoded_content, $ttl);
}
#-------------------------------------------------------------------
=head2 stats ( )
Return a formatted text string describing cache usage. Must be overridden.
=cut
sub stats {
}
1;