| line |
true |
false |
branch |
|
30
|
1 |
15 |
if @args == 1 and ref $args[0] eq 'HASH' |
|
39
|
5 |
11 |
if (defined $args{'seed'}) |
|
41
|
0 |
5 |
unless length $args{'seed'} == 1024 |
|
45
|
11 |
5 |
unless (defined $seed) |
|
46
|
0 |
11 |
if ($is_windows) { } |
|
49
|
0 |
0 |
unless length $seed == 1024 |
|
53
|
0 |
11 |
unless open $fh, '<:raw', '/dev/urandom' |
|
54
|
0 |
11 |
unless defined $fh |
|
57
|
0 |
11 |
unless (defined $fh) |
|
61
|
0 |
11 |
unless sysread($fh, $seed, 1024) == 1024 |
|
68
|
10 |
6 |
defined $args{'alphabet'} ? : |
|
69
|
2 |
14 |
if ref $alphabet eq 'ARRAY' |
|
71
|
0 |
16 |
if length $alphabet < 2 or length $alphabet > 256 |
|
78
|
0 |
16 |
if defined $args{'length'} and defined $args{'entropy'} |
|
82
|
4 |
12 |
if (defined $args{'length'}) { } |
|
83
|
0 |
4 |
unless $args{'length'} =~ /^\d+$/ and $args{'length'} > 0 |
|
87
|
0 |
12 |
unless $entropy > 0 |