line |
true |
false |
branch |
26
|
0 |
1 |
unless sysopen my $fh, $filename, 194 |
29
|
0 |
1 |
unless $wlen == 16 * $max_workers |
44
|
0 |
101 |
unless sysseek $$self{'fh'}, 0, 0 |
46
|
0 |
101 |
unless sysread($$self{'fh'}, my $sb, $$self{'max_workers'} * 16) == $$self{'max_workers'} * 16 |
49
|
1010 |
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 |
81
|
0 |
0 |
if defined $$self{'slot'} |
83
|
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) |
98
|
0 |
0 |
if $$self{'slot'} >= $$self{'max_workers'} |
105
|
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 |