| line |
true |
false |
branch |
|
33
|
1 |
163 |
if $conduit eq "other" |
|
34
|
25 |
138 |
if $conduit eq "slave" |
|
37
|
66 |
72 |
unless my $handle = $fh->{$conduit} |
|
51
|
16 |
3 |
$self->{'pid'} ? : |
|
67
|
27 |
0 |
if $self |
|
74
|
5 |
5 |
if $cb |
|
82
|
11 |
14 |
unless $self->{'pid'} |
|
84
|
14 |
0 |
if $signal |
|
91
|
51 |
24 |
if keys %{$$self{"watching"};} |
|
95
|
0 |
24 |
unless eval {
do {
$self->$cb;
1
}
} |
|
103
|
1 |
0 |
if $self->pid != 0 |
|
110
|
0 |
0 |
if fileno STDIN == $fileno |
|
111
|
0 |
0 |
if fileno STDOUT == $fileno |
|
112
|
0 |
0 |
if fileno STDERR == $fileno |
|
123
|
11 |
14 |
if $pty |
|
145
|
276 |
59 |
if ($n_bytes) { } |
|
|
41 |
18 |
elsif (defined $n_bytes) { } |
|
154
|
1 |
14 |
if $! == 11 or $! == 4 or $! == 11 |
|
155
|
2 |
12 |
if $! == 104 or $! == 32 |
|
156
|
10 |
2 |
if $! == 5 |
|
163
|
1 |
5 |
unless $virtual |
|
174
|
185 |
142 |
unless $fh->{$name} and $fh->{$name} eq $handle |
|
176
|
82 |
60 |
if $delete |
|
187
|
4 |
23 |
unless ref $options |
|
188
|
1 |
26 |
if $options->{'pty'} |
|
189
|
3 |
24 |
if $options->{'pipe'} |
|
195
|
13 |
93 |
if ($driver eq 'pty') { } |
|
|
65 |
28 |
elsif ($driver eq 'pipe') { } |
|
200
|
1 |
64 |
unless pipe my $read, my $write |
|
201
|
20 |
44 |
$conduit eq 'stdin' ? : |
|
208
|
3 |
23 |
unless ($self->{'pid'} = fork) |
|
209
|
1 |
2 |
unless defined $self->{'pid'} |
|
211
|
1 |
0 |
if $pty and $options->{'make_slave_controlling_terminal'} // 1 |
|
222
|
0 |
0 |
$@ ? : |
|
223
|
0 |
0 |
if length $err |
|
224
|
0 |
0 |
unless POSIX::_exit($errno) |
|
229
|
10 |
13 |
if $pty |
|
233
|
11 |
58 |
if (&blessed($fh) and $fh->can('set_raw')) { } |
|
234
|
10 |
1 |
if $options->{'close_slave'} // 1 |
|
245
|
14 |
55 |
unless my $fh = $parent{$conduit} |
|
246
|
5 |
50 |
if $uniq{$fh}++ |
|
247
|
324 |
0 |
$self ? : |
|
256
|
0 |
23 |
unless $self |
|
268
|
40 |
16 |
unless length $self->{'buffer'}{$conduit} |
|
269
|
8 |
8 |
unless my $fh = $self->{'fh'}{$conduit} |
|
272
|
8 |
0 |
if (defined $n_bytes) { } |
|
275
|
8 |
0 |
unless length $self->{'buffer'}{$conduit} |
|
280
|
0 |
0 |
if $! == 11 or $! == 4 or $! == 11 |
|
281
|
0 |
0 |
if $! == 104 or $! == 32 |
|
286
|
23 |
0 |
unless ${^GLOBAL_PHASE} eq "DESTRUCT" |