| line |
true |
false |
branch |
|
58
|
18 |
57 |
if $i_am_parent |
|
72
|
0 |
0 |
unless ($res) |
|
78
|
0 |
0 |
if ($len > 80) |
|
106
|
168 |
435 |
test_port() ? : |
|
116
|
435 |
168 |
unless my $sock = 'IO::Socket::INET'->new('LocalPort', $free_port) |
|
131
|
0 |
11 |
unless open F, $file |
|
149
|
4 |
4 |
unless $line |
|
176
|
26 |
67 |
if (not $res or $res =~ /^ERR/) |
|
180
|
4 |
22 |
unless $opts{'quiet_failure'} or $cmd eq 'shutdown' |
|
202
|
1 |
4 |
if /^\./ |
|
203
|
0 |
4 |
if /^ERROR/ |
|
206
|
0 |
1 |
if not $res or $res =~ /^ERR/ |
|
239
|
0 |
37 |
if ($ENV{'TEST_PERLBAL_FOREGROUND'}) |
|
243
|
0 |
37 |
if ($ENV{'TEST_PERLBAL_USE_EXISTING'}) |
|
249
|
19 |
18 |
if ($child) |
|
254
|
0 |
18 |
if ($rv) |
|
260
|
18 |
90 |
if /^\.\r?\n/ |
|
261
|
72 |
18 |
unless /^pid:\s+(\d+)/ |
|
264
|
0 |
18 |
unless $child == $spid |
|
290
|
1 |
17 |
unless Perlbal::run_manage_commands($conf, $out) |
|
292
|
0 |
17 |
unless ('Perlbal::Socket'->WatchedSockets > 0) |
|
343
|
61 |
90 |
if $msock |
|
345
|
0 |
90 |
if ($pid and waitpid($pid, 1) > 0) |
|
348
|
1 |
89 |
if time > $start + 5 |
|
375
|
145 |
741 |
if not $_ or /^\r?\n/ |
|
378
|
0 |
145 |
unless ($firstline) |
|
384
|
0 |
145 |
unless $resp |
|
387
|
140 |
5 |
if (defined $cl and $cl > 0) |
|
397
|
136 |
9 |
wantarray ? : |