NAME
ExclusiveLock::Guard - lexically-scoped lock management
SYNOPSIS
use ExclusiveLock::Guard;
sub blocking_transaction {
my $lock = ExclusiveLock::Guard->new('/tmp/foo.lock')
or die 'lock error: ' . ExclusiveLock::Guard->errstr;
# inner of lock
}
blocking_transaction();
# outer of lock
for non-blocking
sub nonblocking_transaction {
my $lock = ExclusiveLock::Guard->new('/tmp/foo.lock', nonblocking => 1 )
or die 'lock error: ' . ExclusiveLock::Guard->errstr;
unless ($lock->is_locked) {
warn 'is locked';
return;
}
# inner of lock
}
nonblocking_transaction();
# outer of lock
DESCRIPTION
ExclusiveLock::Guard is very simple lock maneger. To automatically
create and remove the lock file.
