File Coverage

blib/lib/IO/File/flock.pm

Criterion	Covered	Total	%
statement	23	24	95.8
branch	1	2	50.0
condition	1	2	50.0
subroutine	10	11	90.9
pod	5	6	83.3
total	40	45	88.8

package IO::File::flock;
use strict;
use base qw(IO::File::Lockable);
use vars qw($VERSION);
use Fcntl qw(:flock);
$VERSION		= '0.31';
##### flock oop i/f
sub flock_	:method {CORE::flock(shift,shift)}
sub flock	:method {
	my $fh		= shift;
	my $lock	= shift;
	my $timeout	= shift || 0;
	return $fh	unless($fh->opened);
	return $fh->set_timeout($timeout => sub {flock_($fh,$lock);$fh});
}
##### flock easy i/f
sub lock_nb	:method {shift()->flock(LOCK_EX|LOCK_NB,@_)}
sub lock_sh	:method {shift()->flock(LOCK_SH,@_)}
sub lock_ex	:method {shift()->flock(LOCK_EX,@_)}
sub lock_un	:method {shift()->flock(LOCK_UN,@_)}
1;
__END__