| line |
true |
false |
branch |
|
39
|
0 |
30 |
unless ($cls or $cmd) |
|
43
|
5 |
25 |
if ($cls) |
|
51
|
0 |
30 |
unless my($parent, $child) = &AnyEvent::Util::portable_socketpair() |
|
60
|
6 |
24 |
if ($pid == 0) |
|
66
|
0 |
6 |
if (tied *STDOUT) |
|
70
|
0 |
6 |
if (tied *STDERR) |
|
76
|
2 |
4 |
if ($args{'priority'} and $args{'priority'} =~ /^-?\d+$/) |
|
82
|
0 |
6 |
unless open STDIN, '<&' . fileno($parent) |
|
87
|
0 |
6 |
unless open STDOUT, '>&' . fileno($parent) |
|
92
|
0 |
6 |
unless open STDERR, '>&' . fileno($parent) |
|
121
|
0 |
6 |
if (ref $cmd eq 'CODE') |
|
131
|
0 |
0 |
if grep {$_ == $fd;} @fd_keep |
|
188
|
3 |
3 |
if (ref $cmd eq 'ARRAY') { } |
|
190
|
0 |
0 |
unless exec @{$cmd;}, @{$args{'args'};} |
|
193
|
0 |
0 |
unless exec join(' ', $cmd, @{$args{'args'};}) |
|
246
|
0 |
2 |
unless (setpriority 0, $$, $pri) |
|
250
|
0 |
2 |
if $@ |
|
262
|
24 |
0 |
if ($$self{'child_pid'}) |