| line |
true |
false |
branch |
|
26
|
0 |
1 |
unless sysopen my $fh, $filename, 194 |
|
29
|
0 |
1 |
unless $wlen == 16 * $max_workers |
|
44
|
0 |
99 |
unless sysseek $self->{'fh'}, 0, 0 |
|
47
|
0 |
99 |
unless sysread($self->{'fh'}, my $sb, $self->{'max_workers'} * 16) == $self->{'max_workers'} * 16 |
|
50
|
990 |
0 |
$_ =~ /^(.)/ ? : |
|
59
|
0 |
10 |
unless sysseek $self->{'fh'}, 0, 0 |
|
63
|
0 |
55 |
unless $rlen == 16 |
|
65
|
10 |
45 |
if ($data =~ /^.${pid}[ ]*\n$/) |
|
67
|
0 |
10 |
unless sysseek $self->{'fh'}, 16 * $slot, 0 |
|
70
|
0 |
10 |
unless $wlen == 16 |
|
82
|
0 |
0 |
if defined $self->{'slot'} |
|
84
|
0 |
0 |
unless close $self->{'fh'} |
|
85
|
0 |
0 |
unless sysopen $self->{'fh'}, $self->{'filename'}, 2 |
|
92
|
0 |
0 |
if $rlen != 16 |
|
94
|
0 |
0 |
if ($data =~ /^.[ ]+\n$/o) |
|
99
|
0 |
0 |
if $self->{'slot'} >= $self->{'max_workers'} |
|
106
|
0 |
0 |
unless defined $self->{'slot'} |
|
107
|
0 |
0 |
unless sysseek $self->{'fh'}, $self->{'slot'} * 16, 0 |
|
110
|
0 |
0 |
unless $wlen == 16 |
|
117
|
0 |
10 |
unless flock $fh, 2 |
|
121
|
0 |
10 |
unless flock $fh, 8 |