| blib/lib/IPC/Run/Debug.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 5 | 23 | 21.7 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 102 | 0 | 0 | 0 | defined $debug_name && length $debug_name |
| 0 | 0 | 0 | defined $op and UNIVERSAL::isa($op, 'IO::Pty') | |
| 0 | 0 | 0 | defined $kid && defined $kid->{'DEBUG_FD'} && $op->{'KFD'} == $kid->{'DEBUG_FD'} | |
| 204 | 0 | 73726 | $IPC::Run::cur_self and ($IPC::Run::cur_self->{'debug'} || 0) >= $level |
| line | l | !l | condition |
|---|---|---|---|
| 102 | 73930 | 0 | shift() || 1 |
| 0 | 73726 | $IPC::Run::cur_self->{'debug'} || 0 | |
| 0 | 73726 | $IPC::Run::cur_self->{'debug'} || 0 | |
| 0 | 0 | $ENV{'IPCRUNDEBUG'} || '' |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 102 | 0 | 0 | 0 | $warned ||= warn("Unknown debug level $ENV{'IPCRUNDEBUG'}, assuming 'basic' (1)\n") |