| line |
true |
false |
branch |
|
152
|
0 |
133939 |
unless $opts{'exec'} |
|
156
|
35 |
535721 |
if $opts{"to_$thing"} |
|
157
|
133907 |
401849 |
if $opts{"error_to_$thing"} |
|
158
|
35 |
535721 |
if $opts{"from_$thing"} |
|
160
|
0 |
133939 |
if $to > 1 |
|
162
|
0 |
133939 |
if $error_to > 1 |
|
164
|
0 |
133939 |
if $from > 1 |
|
168
|
0 |
133922 |
if (exists $opts{$param} and !ref($opts{$param}) || ref $opts{$param} ne 'SCALAR') |
|
175
|
0 |
22 |
if (exists $opts{$param} and !ref($opts{$param}) || ref $opts{$param} ne 'SCALAR' && !$opts{$param}->isa('IO::Handle')) |
|
183
|
0 |
2 |
if (exists $opts{'timeout'} and defined $opts{'timeout'} and not $opts{'timeout'} =~ /^\d+$/) |
|
188
|
0 |
133939 |
if (exists $opts{'env'} and ref $opts{'env'} ne 'HASH') |
|
192
|
0 |
133939 |
if (exists $opts{'delete_env'} and ref $opts{'delete_env'} ne 'ARRAY') |
|
196
|
0 |
133939 |
if (exists $opts{'sig'} and ref $opts{'sig'} ne 'HASH') |
|
200
|
0 |
133939 |
if (exists $opts{'delete_sig'} and ref $opts{'delete_sig'} ne 'ARRAY') |
|
213
|
133927 |
12 |
if (ref($opts{'exec'}) =~ /ARRAY/) { } |
|
|
12 |
0 |
elsif (not ref $opts{'exec'}) { } |
|
221
|
10 |
133929 |
if ($opts{'to_string'}) |
|
225
|
133907 |
32 |
if ($opts{'error_to_string'}) |
|
229
|
5 |
133934 |
if ($opts{'from_string'}) |
|
234
|
18 |
133921 |
if ($opts{'from_pipe'}) |
|
235
|
0 |
18 |
unless pipe $opts{'from_handle'}, $input_pipe |
|
240
|
19 |
133920 |
if ($opts{'to_pipe'}) |
|
242
|
0 |
19 |
unless pipe $output_pipe, $opts{'to_handle'} |
|
246
|
133907 |
32 |
if ($opts{'error_to_pipe'}) |
|
248
|
0 |
133907 |
unless pipe $error_pipe, $opts{'error_to_handle'} |
|
254
|
0 |
133939 |
unless defined $pid |
|
255
|
528 |
133411 |
unless ($pid) |
|
257
|
2 |
526 |
if ($opts{'env'}) |
|
262
|
2 |
526 |
if ($opts{'delete_env'}) |
|
266
|
0 |
528 |
if ($opts{'sig'}) |
|
271
|
0 |
528 |
if ($opts{'delete_sig'}) |
|
275
|
2 |
526 |
if ($opts{'chdir'}) |
|
276
|
0 |
2 |
unless chdir $opts{'chdir'} |
|
279
|
3 |
525 |
if ($opts{'from_file'}) { } |
|
|
8 |
517 |
elsif ($opts{'from_handle'}) { } |
|
281
|
0 |
3 |
unless open STDIN, '<', $opts{'from_file'} |
|
284
|
0 |
8 |
unless open STDIN, '<&', $opts{'from_handle'} |
|
289
|
3 |
525 |
if ($opts{'to_file'}) { } |
|
|
8 |
517 |
elsif ($opts{'to_handle'}) { } |
|
291
|
0 |
3 |
unless open STDOUT, '>', $opts{'to_file'} |
|
294
|
0 |
8 |
unless open STDOUT, '>&', $opts{'to_handle'} |
|
299
|
0 |
528 |
if ($opts{'error_to_file'}) { } |
|
|
518 |
10 |
elsif ($opts{'error_to_handle'}) { } |
|
301
|
0 |
0 |
unless open STDERR, '>', $opts{'error_to_file'} |
|
304
|
0 |
518 |
unless open STDERR, '>&', $opts{'error_to_handle'} |
|
311
|
0 |
0 |
unless exec {$prog[0];} @prog |
|
314
|
19 |
133392 |
if exists $opts{'from_handle'} |
|
315
|
15 |
133396 |
if exists $opts{'to_handle'} |
|
316
|
133389 |
22 |
if exists $opts{'error_to_handle'} |
|
318
|
4 |
133407 |
if ($opts{'from_string'}) |
|
322
|
7 |
133404 |
if ($opts{'to_string'}) |
|
326
|
133389 |
22 |
if ($opts{'error_to_string'}) |
|
330
|
133396 |
15 |
if ($opts{'wait_child'}) |
|
332
|
3 |
133393 |
if ($opts{'env'}) |
|
380
|
0 |
133411 |
unless $pid |
|
383
|
3 |
133408 |
if defined $opts{'timeout'} |
|
384
|
0 |
133410 |
unless $pid == waitpid($pid, 0) |
|
385
|
2 |
133408 |
if defined $opts{'timeout'} |
|
387
|
1 |
133410 |
if ($@) |
|
388
|
0 |
1 |
unless $@ eq "alarm\n" |
|
395
|
16 |
133394 |
unless ($opts{'nocheck'}) |
|
396
|
0 |
16 |
if $? |