++ed by:
AERO

1 PAUSE user
1 non-PAUSE user.

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