yappo / p5-ExclusiveLock-Guard

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.

AUTHOR

Kazuhiro Osawa <yappo {at} shibuya {dot} pl>

COPYRIGHT

Copyright 2012- Kazuhiro Osawa

LICENSE

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.