line |
true |
false |
branch |
67
|
202 |
174 |
if ref $_[1] eq "CODE" |
|
6 |
40 |
if ref $_[1] eq "CODE" |
73
|
3 |
23 |
unless $self->read_stream |
|
17 |
29 |
unless $self->read_stream |
79
|
0 |
1 |
unless $$ == $me |
|
19 |
27 |
unless $$ == $me |
80
|
0 |
1 |
unless defined $self->_status |
|
24 |
21 |
unless defined $self->_status |
101
|
3 |
0 |
if $self->verbose |
|
16 |
0 |
if $self->verbose |
107
|
0 |
23 |
unless $self |
|
16 |
0 |
unless $self |
109
|
23 |
0 |
unless defined $self->_status |
|
0 |
0 |
unless defined $self->_status |
127
|
21 |
20 |
$self->separate_err ? : |
129
|
7 |
33 |
unless defined $pid |
134
|
2 |
31 |
unless $self->set_pipes |
138
|
19 |
12 |
$self->separate_err ? : |
145
|
8 |
451 |
if $_[0]->pidfile |
155
|
2 |
60 |
unless defined $self->_status |
156
|
1 |
10 |
if $self->execute |
157
|
4 |
6 |
if $self->code |
166
|
1 |
226 |
unless $self |
173
|
226 |
0 |
unless defined $self->_status |
177
|
168 |
58 |
if ($self->_internal_return) |
178
|
0 |
173 |
$self->_internal_return->isa('IO::Pipe::End') ? : |
182
|
0 |
173 |
unless "IO::Select"->new($return_reader)->can_read(10) |
188
|
149 |
23 |
$rt ? : |
|
2 |
171 |
$self->serialize ? : |
192
|
169 |
57 |
if ($self->_internal_err) |
193
|
6 |
168 |
$self->_internal_err->isa('IO::Pipe::End') ? : |
197
|
1 |
173 |
unless "IO::Select"->new($internal_err_reader)->can_read(10) |
202
|
58 |
115 |
if @result_error |
215
|
7 |
206 |
unless ref $code eq "CODE" |
224
|
172 |
51 |
if ($self->set_pipes) |
225
|
2 |
172 |
unless $input_pipe = "IO::Pipe"->new |
227
|
19 |
155 |
unless $output_pipe = "IO::Pipe"->new |
229
|
2 |
170 |
unless $output_err_pipe = "IO::Pipe"->new |
231
|
157 |
15 |
if ($self->channels) |
232
|
2 |
170 |
unless $channel_in = "IO::Pipe"->new |
234
|
6 |
166 |
unless $channel_out = "IO::Pipe"->new |
238
|
206 |
15 |
if ($self->internal_pipes) |
239
|
2 |
217 |
unless my $internal_err = "IO::Pipe"->new |
241
|
2 |
217 |
unless my $internal_return = "IO::Pipe"->new |
256
|
15 |
208 |
unless defined $pid |
258
|
20 |
186 |
if ($pid == 0) |
265
|
20 |
0 |
if ($self->internal_pipes) |
266
|
19 |
1 |
if ($self->_internal_err) |
267
|
0 |
19 |
$self->_internal_err->isa('IO::Pipe::End') ? : |
274
|
19 |
1 |
if ($self->_internal_return) { } |
275
|
0 |
19 |
$self->_internal_return->isa('IO::Pipe::End') ? : |
287
|
19 |
1 |
if ($self->set_pipes) |
292
|
18 |
1 |
if $output_pipe |
293
|
17 |
1 |
$output_err_pipe ? : |
|
1 |
18 |
!$self->separate_err ? : |
297
|
18 |
1 |
if $input_pipe |
298
|
0 |
18 |
unless open STDERR, ">&", $stderr or not !$internal_err->write($!) |
301
|
0 |
18 |
unless open STDOUT, ">&", $stdout or not !$internal_err->write($!) |
304
|
0 |
18 |
unless open STDIN, ">&", $stdin or not !$internal_err->write($!) |
311
|
18 |
0 |
if ($self->channels) |
313
|
18 |
0 |
if $channel_in |
314
|
18 |
0 |
if $channel_out |
327
|
0 |
0 |
if ($internal_err) |
328
|
0 |
0 |
if $@ |
329
|
0 |
0 |
if not $@ and $! |
331
|
0 |
0 |
if not $self->serialize and ref $rt eq "ARRAY" and scalar @$rt == 1 |
333
|
0 |
0 |
if $self->serialize and $return |
335
|
0 |
0 |
if $return |
340
|
48 |
138 |
unless $self->set_pipes |
342
|
137 |
1 |
if $output_pipe |
343
|
131 |
1 |
$output_err_pipe ? : |
|
6 |
132 |
!$self->separate_err ? : |
346
|
137 |
1 |
if $input_pipe |
348
|
138 |
0 |
if ($self->set_pipes) |
349
|
138 |
0 |
if ($self->channels) |
350
|
137 |
1 |
if $channel_in |
351
|
137 |
1 |
if $channel_out |
385
|
8 |
19 |
!!@{(shift())->error;} ? : |
388
|
2 |
20 |
$st & 128 ? : |
391
|
33 |
16 |
defined $_[0]->_status ? : |
|
3 |
49 |
defined $_[0]->_status && $_[0]->quirkiness ? : |
397
|
17 |
28 |
$_[0]->is_running ? : |
403
|
1192 |
273 |
$self->process_id ? : |
408
|
43 |
233 |
if $pidfile |
409
|
18 |
224 |
unless $self->pid |
410
|
219 |
19 |
unless $self->pidfile |
419
|
1 |
54 |
unless $stream |
424
|
22 |
108 |
unless "IO::Select"->new($_[0])->can_read(10) |
429
|
28 |
25 |
unless "IO::Select"->new($_[0])->can_read(10) |
430
|
2 |
4 |
wantarray ? : |
455
|
1 |
7 |
unless $_[0]->separate_err |
461
|
0 |
15 |
unless $_[0]->separate_err |
467
|
0 |
266 |
if $self->is_running |
468
|
3 |
218 |
if not $self->execute and not $self->code |
473
|
6 |
46 |
ref $self->args eq 'ARRAY' ? : |
|
52 |
206 |
defined $self->args ? : |
477
|
45 |
213 |
if $self->subreaper |
486
|
246 |
1 |
if $old_emit_from_sigchld |
489
|
218 |
40 |
if ($self->code) { } |
|
40 |
0 |
elsif ($self->execute) { } |
507
|
28 |
223 |
unless $self->kill_whole_group or $self->is_running |
517
|
3 |
232 |
unless defined $pid |
518
|
179 |
52 |
unless $self->is_running |
527
|
6 |
54 |
if $self->kill_whole_group |
538
|
222 |
14 |
if ($send_signal) |
543
|
38 |
198 |
if $ret == $pid or $ret == -1 |
545
|
231 |
5 |
if ($sleep_time) |
550
|
33 |
22 |
if defined $self->_status |
552
|
22 |
0 |
if $self->kill_sleeptime |
554
|
16 |
6 |
if ($self->blocking_stop) { } |
561
|
15 |
1 |
if $ret == $pid or $ret == -1 |
573
|
0 |
225 |
unless $self->pid |
581
|
63 |
162 |
if $wait and not defined $self->_status |
583
|
71 |
146 |
unless defined $self->_status |
585
|
82 |
132 |
if $self->error and $self->error->size > 0 |