view release on metacpan or  search on metacpan

t/lock.t  view on Meta::CPAN

is( $lock->owner, undef, "no initial lock owner" );

# getting lock
dies_ok { $lock->get() } "need to provide a new owner";
$lock->get( "foo" );
ok( ! $lock->is_available, "lock no more available" );
is( $lock->owner, "foo", "owner correctly recored" );

# getting lock twice
dies_ok { $lock->get("bar") } "cannot get lock twice";
is( $lock->owner, "foo", "owner not updated when lock fails" );

# releasing lock
$lock->release; 
ok( $lock->is_available, "lock now available" );
is( $lock->owner, undef, "no more owner after release" );