perllib/Arch/RunLimit.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 0 | 33 | 0.0 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
44 | 0 | 0 | 0 | $length and $addr |
51 | 0 | 0 | 0 | -d '/proc' && -d "/proc/$$" |
74 | 0 | 0 | 0 | $ENV{'DEBUG'} and ("$ENV{'DEBUG'}" & "\cB") ne "\000" |
77 | 0 | 0 | 0 | time - $1 < $$self{'timeout'} and !$$self{'proc_able'} || -d "/proc/$2" |
96 | 0 | 0 | 0 | $ENV{'DEBUG'} and ("$ENV{'DEBUG'}" & "\cB") ne "\000" |
107 | 0 | 0 | 0 | $$self{'added'} and defined $$self{'exceeded'} |
line | l | !l | condition |
---|---|---|---|
26 | 0 | 0 | $init{'file'} || '/please/specify/run-limit-file' |
45 | 0 | 0 | $hostname ||= 'unknown-host' |
46 | 0 | 0 | $hostip ||= '127.0.0.1' |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
33 | 0 | 0 | 0 | $$self{'limit'} <= 0 or $$self{'timeout'} <= 0 |
77 | 0 | 0 | 0 | !$$self{'proc_able'} || -d "/proc/$2" |
0 | 0 | 0 | $3 ne $$self{'host_id'} or time - $1 < $$self{'timeout'} and !$$self{'proc_able'} || -d "/proc/$2" |