Branch Coverage

blib/lib/Lock/Server.pm
Criterion Covered Total %
branch 31 42 73.8


line true false branch
127 1 0 if (my $pid = $self->{'server_pid'})
147 0 8 unless ($listener_socket)
153 5 3 if (my $pid = fork) { }
161 1 0 if $listener_socket
174 19 74 if ($req =~ /^CHECK (\S+)/) { }
178 22 52 if ($cmd eq 'LOCK') { }
17 35 elsif ($cmd eq 'UNLOCK') { }
35 0 elsif ($cmd eq 'VERIFY') { }
206 0 1 if (1 == keys %{$self->{'_locker_counts'}{$lockers->[0]};}) { }
215 12 7 if (@$lockers) { }
225 0 369 if $Lock::Server::DEBUG
240 0 0 if (1 == keys %{$self->{'_locker_counts'}{$lockers->[0]};}) { }
249 3 19 if (0 < grep({$_ eq $locker_id;} @$lockers))
261 5 14 if (@$lockers > 1) { }
262 3 2 if (my $pid = fork) { }
296 11 6 if ($lockers->[0] eq $locker_id) { }
299 7 4 if (0 == scalar keys %{$$self{'_locker_counts'}{$locker_id};})
305 2 9 if (@$lockers) { }
336 0 0 if (1 == keys %{$self->{'_locker_counts'}{$lockers->[0]};}) { }
344 17 18 if ($lockers->[0] eq $locker_id) { }
382 0 9 unless $lockerName