Branch Coverage

blib/lib/Random/Simple.pm
Criterion Covered Total %
branch 14 30 46.6


line true false branch
44 0 11 if ($debug)
58 0 10 if ($^O eq 'MSWin32') { }
10 0 elsif (-r '/dev/urandom') { }
61 0 0 unless state $rand = "Win32::API"->new("advapi32", "INT SystemFunction036(PVOID RandomBuffer, ULONG RandomBufferLength)")
67 0 0 unless $rand->Call($ret, $count)
69 0 10 unless open my $urandom, "<:raw", "/dev/urandom"
71 0 10 unless sysread $urandom, $ret, $count
76 0 10 if (length $ret != $count)
116 0 9 if (length $bytes != 16)
132 0 9 if ($debug)
136 0 9 if ($seed1 == 0 and $seed2 == 0)
174 0 100008 if ($max < $min)
187 10000 0 if ($has_64bit) { }
235 2 2 unless ($seed)
262 30029 0 if ($has_64bit) { }