Li Jinfeng

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