Why not adopt me?
NAME
File::Flock::Tiny - yet another flock package
SYNOPSIS
my $lock = File::Flock::Tiny->lock($file);
... # do something
$lock->release;
DESCRIPTION
Simple wrapper around flock for ease of use.
METHODS
File::Flock::Tiny->lock($file)
Acquire exclusive lock on file. $file may be a file name or opened file handler. If filename given and file doesn't exist it will be created. Method returns lock object, file remains locked until this object will go out of the scope, or till you call release method on it.
File::Flock::Tiny->trylock($file)
Same as lock but if $file already locked immediately returns undef.
$lock->release
Unlock file
AUTHOR
Pavel Shaydo, <zwon at cpan.org>
BUGS
Please report any bugs or feature requests via GitHub bug tracker at http://github.com/trinitum/perl-File-Flock-Tiny/issues.
SEE ALSO
A lot of modules with similar functionality on CPAN, it just happened that I don't like any of them.
LICENSE AND COPYRIGHT
Copyright 2011 Pavel Shaydo.
This program is free software; you can redistribute it and/or modify it under the terms of either: the GNU General Public License as published by the Free Software Foundation; or the Artistic License.
See http://dev.perl.org/licenses/ for more information.