| line |
true |
false |
branch |
|
33
|
1 |
132 |
if $name eq "other" |
|
36
|
71 |
61 |
unless my $handle = $fh->{$name} |
|
42
|
70 |
70 |
if $fh->{$sibling} and $fh->{$sibling} eq $handle |
|
55
|
14 |
3 |
$self->{'pid'} ? : |
|
71
|
25 |
0 |
if $self |
|
78
|
5 |
5 |
if $cb |
|
86
|
11 |
13 |
unless $self->{'pid'} |
|
88
|
13 |
0 |
if $signal |
|
93
|
1 |
0 |
if $self->pid != 0 |
|
100
|
0 |
0 |
if fileno STDIN == $fileno |
|
101
|
0 |
0 |
if fileno STDOUT == $fileno |
|
102
|
0 |
0 |
if fileno STDERR == $fileno |
|
131
|
44 |
22 |
if $status == -1 |
|
132
|
0 |
22 |
if grep {$self->{'fh'}{$_};} "pty", "stdout", "stderr" |
|
136
|
0 |
22 |
unless eval {
do {
$self->$cb;
1
}
} |
|
146
|
268 |
50 |
if ($n_bytes) { } |
|
|
36 |
14 |
elsif (defined $n_bytes) { } |
|
156
|
1 |
11 |
if $! == 11 or $! == 4 or $! == 11 |
|
157
|
2 |
9 |
if $! == 104 or $! == 32 |
|
158
|
8 |
1 |
if $! == 5 |
|
165
|
1 |
5 |
unless $virtual |
|
174
|
3 |
22 |
unless ref $options |
|
180
|
11 |
87 |
if ($driver eq 'pty') { } |
|
|
60 |
27 |
elsif ($driver eq 'pipe') { } |
|
185
|
1 |
59 |
unless pipe my $read, my $write |
|
186
|
19 |
40 |
$conduit eq 'stdin' ? : |
|
193
|
3 |
21 |
unless ($self->{'pid'} = fork) |
|
194
|
1 |
2 |
unless defined $self->{'pid'} |
|
196
|
1 |
0 |
if $pty and $options->{'make_slave_controlling_terminal'} // 1 |
|
207
|
0 |
0 |
$@ ? : |
|
208
|
0 |
0 |
if length $err |
|
209
|
0 |
0 |
unless POSIX::_exit($errno) |
|
214
|
8 |
13 |
if $pty |
|
221
|
14 |
49 |
unless my $fh = $parent{$conduit} |
|
222
|
5 |
44 |
if $uniq{$fh}++ |
|
223
|
310 |
0 |
$self ? : |
|
230
|
0 |
21 |
unless $self |
|
242
|
36 |
16 |
unless length $self->{'buffer'}{$conduit} |
|
243
|
8 |
8 |
unless my $fh = $self->{'fh'}{$conduit} |
|
246
|
8 |
0 |
if (defined $n_bytes) { } |
|
249
|
8 |
0 |
unless length $self->{'buffer'}{$conduit} |
|
254
|
0 |
0 |
if $! == 11 or $! == 4 or $! == 11 |
|
255
|
0 |
0 |
if $! == 104 or $! == 32 |
|
260
|
22 |
0 |
unless ${^GLOBAL_PHASE} eq "DESTRUCT" |