Branch Coverage

perllib/Arch/RunLimit.pm
Criterion Covered Total %
branch 0 34 0.0


line true false branch
26 0 0 exists $init{'limit'} ? :
0 0 exists $init{'timeout'} ? :
33 0 0 if $$self{'limit'} <= 0 or $$self{'timeout'} <= 0
41 0 0 if defined $$self{'exceeded'}
44 0 0 if $length and $addr
47 0 0 if $hostname =~ /\s/
48 0 0 if $hostip =~ /\s/
61 0 0 if $$self{'exceeded'}
64 0 0 unless (-f $file)
65 0 0 unless open FH, ">$file"
69 0 0 unless open FH, "+<$file"
74 0 0 if $ENV{'DEBUG'} and ("$ENV{'DEBUG'}" & "\cB") ne "\000"
77 0 0 if /^(\d+) (\d+) ([^\s]+)\n/
84 0 0 if ($add_self) { }
85 0 0 if (@content >= $$self{'limit'}) { }
96 0 0 if $ENV{'DEBUG'} and ("$ENV{'DEBUG'}" & "\cB") ne "\000"
107 0 0 unless $$self{'added'} and defined $$self{'exceeded'}