Vulcan::ProcLock - Advisory lock using a regular file
use Vulcan::ProcLock; my $lock = Vulcan::ProcLock->new( '/lock/file' ); $lock->lock(); if ( my $pid = Vulcan::ProcLock->check( '/lock/file' ) ) { print "Locked by $pid.\n"; }
Returns PID of owner, undef if not locked.
Attempts to acquire lock. Returns pid if successful, undef otherwise.
Returns file handle of object.
Returns a running pid or undef.