blib/lib/IPC/Run/Debug.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 5 | 26 | 19.2 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
103 | 0 | 0 | 0 | defined $IPC::Run::cur_self && defined $IPC::Run::cur_self->{'ID'} |
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 | 81425 | $IPC::Run::cur_self and ($IPC::Run::cur_self->{'debug'} || 0) >= $level |
line | l | !l | condition |
---|---|---|---|
103 | 81629 | 0 | shift() || 1 |
0 | 81425 | $IPC::Run::cur_self->{'debug'} || 0 | |
0 | 81425 | $IPC::Run::cur_self->{'debug'} || 0 | |
0 | 0 | $ENV{'IPCRUNDEBUG'} || '' |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
103 | 0 | 0 | 0 | $warned ||= warn("Unknown debug level $ENV{'IPCRUNDEBUG'}, assuming 'basic' (1)\n") |