NAME
MYDan::Util::FLock - flock
SYNOPSIS
use MYDan::Util::FLock;
my $lock = MYDan::Util::FLock->new( '/lock/file' );
die "Locked by other processes.\n" unless $lock->lock();
$lock->unlock();MYDan::Util::FLock - flock
use MYDan::Util::FLock;
my $lock = MYDan::Util::FLock->new( '/lock/file' );
die "Locked by other processes.\n" unless $lock->lock();
$lock->unlock();