view release on metacpan or  search on metacpan

t/lock.t  view on Meta::CPAN

$cache2->set('foo', 'bar');
ok($cache2->status, SUCCESS);

$cache1 = new Apache::Cache (cachename=>'TEST', default_lock_timeout=>5);

$cache2->lock;
ok($cache2->status, SUCCESS);

my $now = time();
# trying to change the locked data, this will failed, but after 5 seconds
# we want to verify this
$cache1->set('foo', 'bar');
my $now2 = time();
ok($cache1->status, FAILURE);
ok($now2 - $now >= 5);

undef $cache2;
$cache1->clear;
ok($cache1->status, SUCCESS);