| line |
true |
false |
branch |
|
18
|
0 |
1 |
if (exists $opts->{'seed'}) { } |
|
|
0 |
1 |
elsif (exists $opts->{'seed4'}) { } |
|
48
|
0 |
1 |
if ($^O eq 'MSWin32') { } |
|
|
1 |
0 |
elsif (-r '/dev/urandom') { } |
|
51
|
0 |
0 |
unless state $rand = "Win32::API"->new("advapi32", "INT SystemFunction036(PVOID RandomBuffer, ULONG RandomBufferLength)") |
|
57
|
0 |
0 |
unless $rand->Call($ret, $count) |
|
59
|
0 |
1 |
unless open my $urandom, "<:raw", "/dev/urandom" |
|
61
|
0 |
1 |
unless sysread $urandom, $ret, $count |
|
66
|
0 |
1 |
if (length $ret != $count) |
|
83
|
7 |
1 |
if $i != $j |
|
92
|
0 |
1 |
unless (@array) |
|
105
|
0 |
2 |
if (not defined $num or $num <= 0) |
|
127
|
0 |
10000 |
if ($non_inclusive) { } |