Branch Coverage

blib/lib/JIP/LockFile.pm
Criterion Covered Total %
branch 22 28 78.5


line true false branch
18 1 15 unless (exists $param{'lock_file'})
24 2 13 unless (length $lock_file)
77 9 6 unless $self->is_locked
82 0 6 unless (unlink $self->lock_file)
96 6 3 $self->is_locked ? :
101 0 9 unless $fh
108 1 8 unless $line
140 0 11 unless ($fh)
151 2 8 if $self->is_locked
155 0 8 unless ($fh)
159 2 6 unless (flock $fh, 6)
162 1 1 if $param{'try'}
167 0 6 unless (truncate $fh, 0)
175 0 6 unless ($fh->print($self->_lock_message))