| line |
true |
false |
branch |
|
7
|
0 |
2 |
$^O eq 'VMS' ? : |
|
8
|
0 |
2 |
$^O eq 'MSWin32' ? : |
|
9
|
0 |
2 |
$^O eq 'hpux' ? : |
|
46
|
0 |
2 |
if ($@) { } |
|
148
|
1 |
0 |
unless can_load('modules', {'IPC::Run', '0.55'}, 'verbose', $IPC::Cmd::WARN && $verbose) |
|
176
|
0 |
141 |
unless can_load('modules', {map({$_, '0.0';} 'IPC::Open3', 'IO::Select', 'Symbol')}, 'verbose', $IPC::Cmd::WARN && $verbose) |
|
193
|
0 |
200 |
if $IPC::Cmd::USE_IPC_RUN and $self->can_use_ipc_run |
|
194
|
100 |
100 |
if $IPC::Cmd::USE_IPC_OPEN3 and $self->can_use_ipc_open3 |
|
229
|
0 |
7 |
if ($^O eq 'VMS') |
|
232
|
0 |
0 |
if scalar $syms->getsym(uc $command) |
|
240
|
1 |
6 |
if ('File::Spec'->file_name_is_absolute($command)) { } |
|
248
|
6 |
48 |
unless $dir and -d $dir |
|
250
|
5 |
43 |
if $abs = 'MM'->maybe_command($abs) |
|
253
|
0 |
0 |
if wantarray and $IPC::Cmd::INSTANCES |
|
359
|
160 |
240 |
if @_ > 1 |
|
370
|
6603 |
0 |
if ($IPC::Cmd::HAVE_MONOTONIC) { } |
|
383
|
6383 |
0 |
if $IPC::Cmd::HAVE_MONOTONIC |
|
387
|
0 |
0 |
unless $previous |
|
396
|
0 |
0 |
if ($time_diff > 5 or $time_diff < 0) |
|
398
|
0 |
0 |
if (defined $$ref_var) |
|
406
|
108 |
0 |
unless defined $IPC::Cmd::{'__old_signals'} |
|
421
|
0 |
0 |
unless defined $available_signals{$s} |
|
422
|
0 |
0 |
if not ref $handler_code or ref $handler_code ne 'CODE' |
|
426
|
0 |
0 |
unless defined $IPC::Cmd::{'__old_signals'} |
|
450
|
0 |
0 |
if ($called_sig_name eq $signal_name) |
|
456
|
0 |
0 |
if (ref $previous_handler) |
|
472
|
2 |
2 |
unless $opts |
|
473
|
2 |
2 |
unless defined $opts->{'wait_time'} |
|
474
|
2 |
2 |
unless $opts->{'first_kill_type'} |
|
475
|
2 |
2 |
unless $opts->{'final_kill_type'} |
|
477
|
2 |
2 |
if ($opts->{'first_kill_type'} eq 'just_process') { } |
|
|
2 |
0 |
elsif ($opts->{'first_kill_type'} eq 'process_group') { } |
|
497
|
0 |
8 |
if ($now > $wait_start_time + $opts->{'wait_time'}) |
|
504
|
4 |
4 |
if ($waitpid eq -1) |
|
513
|
0 |
4 |
if (not $child_finished) |
|
514
|
0 |
0 |
if ($opts->{'final_kill_type'} eq 'just_process') { } |
|
|
0 |
0 |
elsif ($opts->{'final_kill_type'} eq 'process_group') { } |
|
526
|
0 |
0 |
unless $opts |
|
545
|
0 |
0 |
if ($opts->{'parent_info'}) |
|
550
|
0 |
0 |
if ($child_in and $child_out->opened and $opts->{'child_stdin'}) |
|
592
|
0 |
0 |
if $s eq '__WARN__' or $s eq '__DIE__' |
|
610
|
0 |
0 |
if (getppid != $original_ppid) |
|
628
|
0 |
0 |
if ($waitpid ne 0 and $waitpid ne -1) |
|
633
|
0 |
0 |
if ($waitpid eq -1) |
|
646
|
0 |
0 |
unless $str |
|
651
|
0 |
0 |
if ($count) { } |
|
|
0 |
0 |
elsif ($count eq 0) { } |
|
652
|
0 |
0 |
if ($str->{'parent_socket'}) { } |
|
668
|
0 |
0 |
if $child_finished |
|
677
|
0 |
0 |
if ($opts->{'parent_info'}) |
|
681
|
0 |
0 |
if ($real_exit & 127) |
|
688
|
0 |
0 |
if ($opts->{'parent_stdout'} or $opts->{'parent_stderr'}) { } |
|
827
|
0 |
108 |
unless (can_use_run_forked()) |
|
835
|
1 |
107 |
if (ref $cmd eq 'ARRAY') |
|
839
|
0 |
108 |
unless ($cmd) |
|
844
|
104 |
4 |
unless $opts |
|
845
|
106 |
2 |
unless $opts->{'timeout'} |
|
846
|
108 |
0 |
unless defined $opts->{'terminate_wait_time'} |
|
849
|
108 |
0 |
unless defined $opts->{'clean_up_children'} |
|
863
|
0 |
108 |
unless socketpair $child_stdout_socket, $parent_stdout_socket, &Socket::AF_UNIX, &Socket::SOCK_STREAM, &Socket::PF_UNSPEC |
|
865
|
0 |
108 |
unless socketpair $child_stderr_socket, $parent_stderr_socket, &Socket::AF_UNIX, &Socket::SOCK_STREAM, &Socket::PF_UNSPEC |
|
867
|
0 |
108 |
unless socketpair $child_info_socket, $parent_info_socket, &Socket::AF_UNIX, &Socket::SOCK_STREAM, &Socket::PF_UNSPEC |
|
881
|
108 |
0 |
if ($pid = fork) { } |
|
894
|
0 |
108 |
unless fcntl $child_stdout_socket, 4, $flags |
|
898
|
0 |
108 |
unless fcntl $child_stderr_socket, 4, $flags |
|
902
|
0 |
108 |
unless fcntl $child_info_socket, 4, $flags |
|
946
|
0 |
108 |
if ($opts->{'terminate_on_signal'}) |
|
960
|
0 |
6375 |
if ($opts->{'terminate_on_parent_sudden_death'}) |
|
962
|
0 |
0 |
if ($now > $last_parent_check + 5) |
|
963
|
0 |
0 |
if (getppid eq '1') |
|
977
|
293 |
6082 |
if ($opts->{'timeout'}) |
|
978
|
2 |
291 |
if ($now > $start_time + $opts->{'timeout'}) |
|
991
|
203 |
6172 |
if ($got_sig_child) |
|
992
|
0 |
203 |
if ($now > $got_sig_child + 10) |
|
999
|
0 |
6375 |
if ($got_sig_quit) |
|
1011
|
106 |
6269 |
if ($waitpid ne 0 and $waitpid ne -1) |
|
1015
|
108 |
6267 |
if ($waitpid eq -1) |
|
1027
|
0 |
7546 |
unless $str |
|
1032
|
7222 |
324 |
if ($count) { } |
|
|
324 |
0 |
elsif ($count eq 0) { } |
|
1034
|
7222 |
0 |
if ($data =~ /(.+\n)([^\n]*)/so) { } |
|
1046
|
0 |
324 |
if ($str->{'scalar_buffer'}) |
|
1057
|
322 |
7224 |
if ($str->{'protocol'} eq 'info') |
|
1058
|
107 |
215 |
if ($data =~ /^spawned ([0-9]+?)\n(.*?)/so) |
|
1062
|
105 |
217 |
if ($data =~ /^reaped ([0-9]+?)\n(.*?)/so) |
|
1066
|
2 |
320 |
if ($data =~ /^[\d]+ killed with ([0-9]+?)\n(.*?)/so) |
|
1073
|
0 |
322 |
if ($data) |
|
1077
|
7113 |
433 |
if ($str->{'protocol'} eq 'stdout') |
|
1078
|
7109 |
4 |
unless ($opts->{'discard_output'}) |
|
1083
|
2 |
7111 |
if ($opts->{'stdout_handler'} and ref $opts->{'stdout_handler'} eq 'CODE') |
|
1087
|
111 |
7435 |
if ($str->{'protocol'} eq 'stderr') |
|
1088
|
108 |
3 |
unless ($opts->{'discard_output'}) |
|
1093
|
2 |
109 |
if ($opts->{'stderr_handler'} and ref $opts->{'stderr_handler'} eq 'CODE') |
|
1105
|
1274 |
6272 |
if $child_finished |
|
1108
|
0 |
6375 |
if ($opts->{'wait_loop_callback'} and ref $opts->{'wait_loop_callback'} eq 'CODE') |
|
1127
|
2 |
106 |
if ($child_child_pid) |
|
1144
|
108 |
0 |
if ($opts->{'clean_up_children'}) |
|
1158
|
2 |
106 |
$child_timedout ? : |
|
1167
|
2 |
106 |
if ($o->{'exit_code'}) |
|
1170
|
2 |
106 |
if ($o->{'timeout'}) |
|
1173
|
0 |
108 |
if ($o->{'parent_died'}) |
|
1176
|
103 |
5 |
if ($o->{'stdout'} and not $opts->{'non_empty_stdout_ok'}) |
|
1179
|
2 |
106 |
if ($o->{'stderr'}) |
|
1182
|
2 |
106 |
if ($o->{'killed_by_signal'}) |
|
1187
|
0 |
108 |
if ($orig_sig_child) { } |
|
1199
|
0 |
0 |
unless defined $pid |
|
1207
|
0 |
0 |
unless POSIX::setsid() |
|
1209
|
0 |
0 |
if ($opts->{'child_BEGIN'} and ref $opts->{'child_BEGIN'} eq 'CODE') |
|
1221
|
0 |
0 |
if (not ref $cmd) { } |
|
|
0 |
0 |
elsif (ref $cmd eq 'CODE') { } |
|
1253
|
0 |
0 |
if ($opts->{'child_END'} and ref $opts->{'child_END'} eq 'CODE') |
|
1276
|
40 |
40 |
unless not ref $_[0] |
|
1281
|
0 |
80 |
unless (check($tmpl, \%hash, $IPC::Cmd::VERBOSE)) |
|
1290
|
0 |
80 |
if ($IPC::Cmd::ALLOW_NULL_ARGS) { } |
|
1291
|
0 |
0 |
if ref $cmd |
|
1294
|
144 |
0 |
if defined $_ |
|
|
40 |
40 |
if ref $cmd |
|
1297
|
40 |
40 |
ref $cmd ? : |
|
1298
|
0 |
80 |
if $verbose |
|
1312
|
0 |
32 |
unless defined $buf |
|
1314
|
0 |
32 |
if $verbose |
|
1322
|
0 |
8 |
unless defined $buf |
|
1324
|
0 |
8 |
if $verbose |
|
1331
|
40 |
40 |
$self->can_capture_buffer ? : |
|
1346
|
0 |
80 |
if $timeout |
|
1347
|
80 |
0 |
unless alarm $timeout |
|
1350
|
0 |
80 |
if ($IPC::Cmd::USE_IPC_RUN and $self->can_use_ipc_run(1)) { } |
|
|
40 |
40 |
elsif ($IPC::Cmd::USE_IPC_OPEN3 and $self->can_use_ipc_open3(1)) { } |
|
1353
|
0 |
0 |
if $IPC::Cmd::DEBUG |
|
1362
|
0 |
40 |
if $IPC::Cmd::DEBUG |
|
1376
|
0 |
40 |
if $IPC::Cmd::DEBUG |
|
1386
|
80 |
0 |
if $self->_fds |
|
1389
|
0 |
80 |
unless ($ok) |
|
1391
|
0 |
0 |
if ($@ and ref $@ and $@->isa('IPC::Cmd::TimeOut')) { } |
|
1401
|
40 |
40 |
if @buffer |
|
1406
|
20 |
20 |
$have_buffer ? : |
|
|
40 |
40 |
wantarray ? : |
|
1423
|
0 |
0 |
unless socketpair $_[0], $_[1], &Socket::AF_UNIX, &Socket::SOCK_STREAM, &Socket::PF_UNSPEC |
|
1435
|
0 |
0 |
unless &$pipe(*TO_CHLD_R, *TO_CHLD_W) |
|
1436
|
0 |
0 |
unless &$pipe(*FR_CHLD_R, *FR_CHLD_W) |
|
1437
|
0 |
0 |
unless &$pipe(*FR_CHLD_ERR_R, *FR_CHLD_ERR_W) |
|
1444
|
0 |
0 |
if defined $_ |
|
|
0 |
0 |
if ref $cmd |
|
1447
|
0 |
0 |
ref $cmd ? : |
|
1469
|
0 |
0 |
if (not $bytes_read) { } |
|
1484
|
0 |
0 |
if ($?) { } |
|
1531
|
12 |
28 |
ref $cmd ? : |
|
1540
|
0 |
40 |
if ($@ and $@ =~ /^open3:/) |
|
1556
|
40 |
0 |
if UNIVERSAL::can($kidout, 'autoflush') |
|
1557
|
40 |
0 |
if UNIVERSAL::can($kiderror, 'autoflush') |
|
1573
|
0 |
120 |
unless (defined $len) |
|
1581
|
32 |
88 |
if $len and $h == $kidout |
|
1582
|
8 |
112 |
if $len and $h == $kiderror |
|
1586
|
40 |
80 |
if $h == $kidout and $len == 0 |
|
1587
|
40 |
80 |
if $h == $kiderror and $len == 0 |
|
1588
|
40 |
80 |
if $stdout_done and $stderr_done |
|
1600
|
0 |
40 |
if ($?) { } |
|
1645
|
0 |
0 |
if (ref $cmd) { } |
|
1648
|
0 |
0 |
if ($item =~ /$re/) { } |
|
1658
|
0 |
0 |
if ($_ =~ /$re/) { } |
|
1662
|
0 |
0 |
/[ ]/ ? : |
|
1696
|
0 |
0 |
if ($ok) { } |
|
1705
|
0 |
0 |
if ($@ and not UNIVERSAL::isa($@, 'IPC::Cmd::TimeOut')) { } |
|
|
0 |
0 |
elsif ($@) { } |
|
1731
|
0 |
40 |
$verbose ? : |
|
1737
|
12 |
28 |
ref $cmd ? : |
|
|
0 |
40 |
unless (system(ref $cmd ? @$cmd : $cmd) == 0) |
|
1745
|
0 |
40 |
unless $self->ok |
|
1757
|
16 |
64 |
if (ref $cmd and grep {$sc_lookup{$_};} @$cmd) |
|
1762
|
8 |
80 |
/ / ? : |
|
1764
|
0 |
16 |
if $IPC::Cmd::DEBUG and $fixed |
|
1786
|
0 |
0 |
scalar @args == 1 && UNIVERSAL::isa($args[0], 'ARRAY') ? : |
|
1791
|
0 |
0 |
unless $got_arrayref or scalar @args > 1 |
|
1793
|
0 |
0 |
$got_arrayref ? : |
|
1796
|
0 |
0 |
if (m[^[^/\"]]) |
|
1801
|
0 |
0 |
$got_arrayref ? : |
|
1805
|
0 |
0 |
$got_arrayref ? : |
|
1807
|
0 |
0 |
$got_arrayref ? : |
|
1827
|
0 |
0 |
unless defined $_ and length $_ |
|
1837
|
0 |
0 |
if ($ch eq '\\' and $next_ch eq '"') { } |
|
|
0 |
0 |
elsif ($ch eq '\\' and $next_ch eq '\\') { } |
|
|
0 |
0 |
elsif ($ch eq '"' and $next_ch eq '"' and $quote_mode) { } |
|
|
0 |
0 |
elsif ($ch eq '"' and $next_ch eq '"' and not $quote_mode and $i + 2 == length $_ || substr($_, $i + 2, 1) eq ' ') { } |
|
|
0 |
0 |
elsif ($ch eq '"') { } |
|
|
0 |
0 |
elsif ($ch eq ' ' and not $quote_mode) { } |
|
1857
|
0 |
0 |
if defined $arg and length $arg |
|
1867
|
0 |
0 |
if defined $arg and length $arg |
|
1887
|
0 |
80 |
if $IPC::Cmd::DEBUG |
|
1890
|
0 |
120 |
unless my($redir, $fh, $glob) = @{$Map{$name};} |
|
1896
|
0 |
120 |
unless open $glob, $redir . fileno($fh) |
|
1905
|
80 |
40 |
if ($redir eq '>&') |
|
1906
|
0 |
80 |
unless open $fh, '>' . 'File::Spec'->devnull |
|
1921
|
0 |
80 |
if $IPC::Cmd::DEBUG |
|
1924
|
0 |
120 |
unless my($redir, $fh, $glob) = @{$Map{$name};} |
|
1930
|
0 |
120 |
unless open $fh, $redir . fileno($glob) |
|
1945
|
0 |
0 |
unless my $msg = shift() |
|
1956
|
0 |
0 |
unless my $cmd = shift() |
|
1957
|
0 |
0 |
unless my $ce = shift() |
|
1958
|
0 |
0 |
ref $cmd ? : |
|
1962
|
0 |
0 |
if ($ce == -1) { } |
|
|
0 |
0 |
elsif ($ce & 127) { } |
|
1970
|
0 |
0 |
$ce & 128 ? : |
|
1978
|
0 |
0 |
if $IPC::Cmd::DEBUG |