Branch Coverage

blib/lib/IPC/System/Simple.pm
Criterion Covered Total %
branch 38 44 86.3


line true false branch
167 60 38 if (@args)
227 39 14 if (@args)
243 1 13 if ($wantarray)
383 0 56 unless pipe my $read_fh, my $write_fh
389 0 56 if (not defined $pid) { }
15 41 elsif (not $pid) { }
423 5 36 if ($error)
434 7 29 if ($wantarray)
505 300 23 unless ${^TAINT}
508 5 45 if (&tainted($var))
513 5 65 if (&tainted($ENV{$var}))
540 184 0 if ($] >= 5.01 and not $NATIVE_WCOREDUMP)
544 8 176 if ($child_error == -1) { }
175 1 elsif (WIFEXITED($child_error)) { }
1 0 elsif (WIFSIGNALED($child_error)) { }
556 0 1 $coredump ? :
574 2 175 if (@$valid_returns == 1 and $valid_returns->[0] == -1)
578 45 130 unless (defined &first(sub { $_ == $exitval; } , @$valid_returns))
592 5 308 unless (@_)
596 116 192 if (ref $_[0] eq 'ARRAY')
600 5 303 unless (@_)
606 0 303 unless (defined $command)