| line |
true |
false |
branch |
|
34
|
0 |
20 |
unless pipe my $from_kid_fh, my $to_parent_fh |
|
37
|
0 |
20 |
unless defined $kid_pid |
|
39
|
13 |
7 |
if ($kid_pid) { } |
|
70
|
14 |
6 |
if $callback |
|
72
|
0 |
20 |
if ($limit > 0 and keys %fh2data >= $limit) { } |
|
95
|
0 |
4 |
if ($waited and not exists $vpid2data{$waited} and not grep({$_->{'vpid'} eq $waited;} @to_call)) |
|
106
|
9 |
10 |
if ($len) { } |
|
|
10 |
0 |
elsif (defined $len) { } |
|
110
|
0 |
10 |
unless close $fh |
|
116
|
9 |
1 |
unless ($data->{'break'}) |
|
117
|
9 |
0 |
if (exists $data->{'from_kid'} and my $r = eval {
do {
thaw(join('', @{delete $data->{'from_kid'};}))
}
}) { } |
|
118
|
6 |
3 |
if ($callback) { } |
|
124
|
0 |
0 |
if ($callback) { } |
|
138
|
0 |
9 |
if (my $call = shift @to_call) |
|
142
|
4 |
5 |
if ($waited and $waited == $vpid) |
|
157
|
1 |
0 |
if (defined $vpid) { } |
|
159
|
0 |
1 |
unless defined $data |
|
160
|
1 |
0 |
if (my $pid = $data->{'pid'}) |
|
167
|
0 |
0 |
if (my $pid = $data->{'pid'}) |