Re: Cache::Cache issues

2002-08-20 Thread Chris

> On Tue, 20 Aug 2002, Chris wrote:
> 
>> my $timeout1 = $Cache->get_object('1')->get_expires_at();
>> my $timeout2 = $Cache->get_object('1')->get_expires_at();
> 
> ... ETOOMUCHCUTNPASTE.
> 

Ick... My bad there. That explains one problem. Thanks.
Still I get the same values for $timeout before for:

$Cache->set('1', 'Yes', "5 m");
print $Cache->get_object('1')->get_expires_at(), "\n";
$Cache->get_object('1')->set_expires_at("10 m");
print $Cache->get_object('1')->get_expires_at();

Is this supposed to happen?

-Chris




Re: Cache::Cache issues

2002-08-20 Thread Ask Bjoern Hansen

On Tue, 20 Aug 2002, Chris wrote:

> my $timeout1 = $Cache->get_object('1')->get_expires_at();
> my $timeout2 = $Cache->get_object('1')->get_expires_at();

... ETOOMUCHCUTNPASTE.

:-)


 - ask

-- 
ask bjoern hansen, http://www.askbjoernhansen.com/ !try; do();




Cache::Cache issues

2002-08-20 Thread Chris

Hi,

I've got a bit of an issue with Cache::Cache, and while I know it's a bit 
off topic my e-mail to the module maintianer has dissapeared into the 
nether regions of nowhere. I know that alot of people here use the module, 
especially since it was the cookbook and Perrin's articles that put me onto 
the module in the first place.

I can't seem to get the time-out on Cache objects to update, I'm not sure 
if it's a bug in Cache::Cache or a bug in my understanding of Cache:Cache's 
Cache::Object (much more likely).

I've written a small test script below that show's the issue I'm having. 
Any clue's would be helpful.

package TestExpiresAt;
use strict;
use Cache::MemoryCache;
our $Cache = Cache::MemoryCache->new({
'namespace'=>__PACKAGE__,
'default_expires_in' => 10,
  });

$Cache->set('1', 'Yes', 1800);
$Cache->set('2', 'no');

my $timeout1 = $Cache->get_object('1')->get_expires_at();
my $timeout2 = $Cache->get_object('1')->get_expires_at();

print "$timeout1\n"; # this should be timeout2 + 1790
print "$timeout2\n"; # but it's not even different

$Cache->get_object('1')->set_expires_at("10 m");
$timeout1 = $Cache->get_object('1')->get_expires_at();

print "$timeout1\n"; # should be different again from timeout1 above
print "$timeout2\n"; # and from timeout 2

1;
__END__