File Coverage

blib/lib/IO/LockedFile/Flock.pm

Criterion	Covered	Total	%
statement	23	23	100.0
branch	7	8	87.5
condition			n/a
subroutine	6	6	100.0
pod	2	2	100.0
total	38	39	97.4

package IO::LockedFile::Flock;
use strict;
use Fcntl ':flock'; # import LOCK_* constants
use Carp;
use vars qw( @ISA );
@ISA = qw( IO::LockedFile );

######################
# lock
######################
sub lock {
    my $self = shift;

    my $lock_type = $self->is_writable() ? LOCK_EX : LOCK_SH;

    my $got_lock = 0;

    if ( ! $self->should_block() ) {
        $got_lock = flock( $self, $lock_type | LOCK_NB );
    }
    else {
        $got_lock =  flock($self, $lock_type)
            or croak( "Cannot lock: $!");
    }

    $self->SUPER::lock() if ($got_lock);
    return $got_lock;
}

######################
# unlock
######################
sub unlock {
    my $self = shift;
    flock($self, LOCK_UN);
#        or croak( ref( $self ) . ": Cannot unlock: $!");
    $self->SUPER::unlock;
}

1;


__END__