Proc::Lock::File - lock interface module
use Proc::Lock::File; my $lock = new Proc::Lock::File ( Directory => '/var/locks', ProcessName => 'locker' ); $lock->set () || die "already locked"; die "locked" if $lock->isSet (); $lock->unset ();
Generic lock module. You must subclass this class and overwrite set, clear, isSet and new (possible) for do your work
Construct new file lock object. Add Directory parameter to parent constructor.