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.