blib/lib/System/Command/Reaper.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 27 | 37 | 72.9 |
line | l | !l | condition |
---|---|---|---|
65 | 94 | 5 | not $zed || $System::Command::QUIET and 1 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
47 | 64 | 3 | 266 | not &$_is_alive($pid) and exists $self->{'exit'} |
61 | 28 | 39 | 99 | not exists $self->{'exit'} and my $reaped = waitpid($pid, $flags) |
83 | 186 | 0 | 21 | defined &reftype($o->{$_}) and &reftype($o->{$_}) eq 'SCALAR' |
186 | 21 | 0 | defined &reftype($o->{$_}) and &reftype($o->{$_}) eq 'SCALAR' and ${$$o{$_};} = $self->{$_} | |
103 | 30 | 5 | 64 | $in and $in->opened |
104 | 30 | 2 | 67 | $out and $out->opened |
105 | 30 | 2 | 67 | $err and $err->opened |
line | l | !l | condition |
---|---|---|---|
27 | 99 | 0 | $o ||= {} |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
65 | 94 | 0 | 5 | $zed || $System::Command::QUIET |
103 | 64 | 0 | 0 | $in->close or carp("error closing stdin: $!") |
104 | 67 | 0 | 0 | $out->close or carp("error closing stdout: $!") |
105 | 67 | 0 | 0 | $err->close or carp("error closing stderr: $!") |