SHARYANTO::File::Flock(3pm)

Usage

 use SHARYANTO::File::Flock;
 # try to acquire exclusive lock. if fail to acquire lock within 60s, die.
 my $lock = SHARYANTO::File::Flock->lock($file);
 # explicitly unlock
 $lock->release;
 # automatically unlock if object is DESTROY-ed.
 undef $lock;

Version

version 0.56

Overview

This is yet another flock module. It is a more lightweight alternative to File::Flock with some other differences:

•: OO interface only

•

Autoretry (by default for 60s) when trying to acquire lock

I prefer this approach to blocking/waiting indefinitely or failing immediately.

Methods

$lock = SHARYANTO::File::Flock->lock($path, \%opts)

Acquire an exclusive lock on $path. $path will be created if not already exists. If $path is already locked by another process, will retry (by default for 60 seconds). Will die if failed to acquire lock.

Will automatically unlock if $lock goes out of scope. Upon unlock, will remove $path if it was created and is still empty (this behavior is the same as File::Flock).

Available options:

•

retries => INT (default: 60)

Number of retries (equals number of seconds, since retry is done every second).

$lock->unlock

Unlock.

$lock->release

Synonym for unlock().

Caveats

Not yet tested on Windows. Some filesystems do not support inode?

Copyright and license

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

Functions

None are exported by default, but they are exportable.

Releases

6 releases since Debian 8 (Jessie); the text changed 2 times.