| line |
true |
false |
branch |
|
19
|
1 |
4 |
unless $$this{'spooldir'} = delete $opts{'spooldir'} |
|
21
|
1 |
3 |
unless $$this{'port'} = delete $opts{'port'} |
|
29
|
0 |
3 |
unless defined $pid |
|
30
|
0 |
3 |
if ($pid == 0) |
|
55
|
2 |
3 |
unless $block |
|
63
|
0 |
16 |
unless my $f2 = 'IO::File'->new("<$filename") |
|
86
|
0 |
3 |
if (kill 0, $pid) |
|
92
|
0 |
3 |
if (kill 0, $pid) |
|
102
|
0 |
0 |
unless my $listener = 'IO::Socket::INET'->new('Listen', 1, 'LocalPort', $$this{'port'}, 'Proto', 'tcp', 'ReuseAddr', 1) |
|
110
|
0 |
0 |
unless $$this{'socket'} = $listener->accept |
|
117
|
0 |
0 |
unless defined $doc |
|
127
|
0 |
0 |
unless my $s = $$this{'socket'} |
|
131
|
0 |
0 |
unless defined $magic |
|
132
|
0 |
0 |
unless $magic eq "Alvis::Pipeline\n" |
|
133
|
0 |
0 |
unless my $version = $s->getline |
|
134
|
0 |
0 |
unless $version == 1 |
|
135
|
0 |
0 |
unless my $count = $s->getline |
|
139
|
0 |
0 |
unless defined $nread |
|
140
|
0 |
0 |
if $nread != $count |
|
141
|
0 |
0 |
unless my $term = $s->getline |
|
142
|
0 |
0 |
unless $term eq "--end--\n" |
|
158
|
0 |
0 |
unless my $f2 = 'IO::File'->new(">$filename") |
|
161
|
0 |
0 |
unless $f2->print($doc) |
|
162
|
0 |
0 |
unless $f2->close |
|
191
|
2 |
19 |
unless (-d $dir) |
|
192
|
0 |
2 |
unless mkdir $dir, 511 |
|
194
|
0 |
2 |
unless my $f = 'IO::File'->new(">$seqfile") |
|
199
|
0 |
21 |
unless $fh = 'IO::File'->new("+<$seqfile") |
|
202
|
0 |
21 |
unless flock $fh, 2 |
|
203
|
0 |
21 |
unless seek $fh, 0, 0 |
|
206
|
19 |
2 |
if (defined $line) { } |
|
224
|
0 |
21 |
unless seek $fh, 0, 0 |
|
225
|
0 |
21 |
unless $fh->print("$lastread $lastwrite\n") |
|
226
|
0 |
21 |
unless flock $fh, 8 |
|
227
|
0 |
21 |
unless $fh->close |