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.