The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

Proc::Lock::File - lock interface module

SYNOPSIS

 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 ();

DESCRIPTION

 Generic lock module. You must subclass this class and overwrite set, clear, isSet and new (possible) for do your work

new

Construct new file lock object. Add Directory parameter to parent constructor.