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") |