| line |
true |
false |
branch |
|
17
|
0 |
99 |
unless my $read_fh = delete $option{'read_fh'} |
|
18
|
0 |
99 |
unless my $write_fh = delete $option{'write_fh'} |
|
24
|
19 |
359 |
unless my $_size = $self->_read(4) |
|
41
|
0 |
381 |
if (not defined $len) { } |
|
|
19 |
362 |
elsif ($len == 0) { } |
|
58
|
0 |
359 |
if (not defined $len) { } |
|
|
0 |
359 |
elsif ($len == 0) { } |
|
84
|
0 |
257 |
unless ($self->is_written) |
|
88
|
0 |
257 |
unless my $read = $self->SUPER::read |
|
93
|
0 |
257 |
if ($self->is_written) |
|
117
|
0 |
713 |
unless ($self->is_written) |
|
124
|
0 |
713 |
if ($self->is_written) |
|
144
|
23 |
28 |
if ($self->no_fork) { } |
|
160
|
0 |
99 |
unless defined $pid |
|
161
|
19 |
80 |
if ($pid == 0) |
|
183
|
736 |
223 |
if $self->no_fork |
|
185
|
32 |
191 |
@_ ? : |
|
186
|
56 |
167 |
if (my(@ready) = grep({$_->{'_written'} == 0;} @pipes)) |
|
195
|
254 |
501 |
if (grep {$pipe->{'read_fh'} == $_;} @ready) |
|
209
|
23 |
8 |
if $self->no_fork |
|
214
|
40 |
0 |
if (delete $self->{'pipes'}{$pid}) { } |