Branch Coverage

blib/lib/Lock/Server.pm
Criterion Covered Total %
branch 47 64 73.4


line true false branch
169 3 0 if $self->{'listener_socket'}
171 2 1 if (my $pid = $self->{'server_pid'}) { }
198 0 11 unless $sock
200 7 4 if (my $pid = fork)
221 0 0 unless $sock
240 11 6 if $listener_socket
242 6 0 unless $listener_socket or $count > $self->{'attempts'}
244 0 11 unless ($listener_socket)
254 1 0 if $listener_socket
278 104 0 unless $data =~ /\S/
282 19 85 if ($cmd eq 'CHECK') { }
22 63 elsif ($cmd eq 'LOCK') { }
17 46 elsif ($cmd eq 'UNLOCK') { }
35 11 elsif ($cmd eq 'VERIFY') { }
9 2 elsif ($cmd eq 'PING') { }
2 0 elsif ($cmd eq 'SHUTDOWN') { }
294 1 1 if ($self->{'allow_shutdown'}) { }
321 0 1 if (1 == keys %{$self->{'_locker_counts'}{$lockers->[0]};}) { }
330 12 7 if (@$lockers) { }
341 0 299 if $Lock::Server::DEBUG
356 0 0 if (1 == keys %{$self->{'_locker_counts'}{$lockers->[0]};}) { }
364 3 19 if (0 < grep({$_ eq $locker_id;} @$lockers))
377 5 14 if (@$lockers > 1) { }
378 3 2 if (my $pid = fork) { }
418 11 6 if ($lockers->[0] eq $locker_id) { }
421 7 4 if (0 == scalar keys %{$$self{'_locker_counts'}{$locker_id};})
427 2 9 if (@$lockers) { }
458 0 0 if (1 == keys %{$self->{'_locker_counts'}{$lockers->[0]};}) { }
466 17 18 if ($lockers->[0] eq $locker_id) { }
504 0 22 unless $lockerName
527 4 157 unless $sock or $count > $attempts
529 0 157 unless $sock