Branch Coverage

blib/lib/Crypt/DSA/Util.pm
Criterion Covered Total %
branch 17 32 53.1


line true false branch
23 1 439 $s eq '' ? :
55 9 0 if (sysopen my $fh, '/dev/random', O_RDONLY()) { }
0 0 elsif (require Data::Random) { }
59 0 9 unless $got
60 0 9 if $got == -1
73 0 9 $size % 8 ? :
99 1 106 if $p2index < 260
104 0 122 if $witness > $n
105 0 122 if $witness == 0
115 0 58240 if $prod == 1 and not $rootone
116 29252 28988 if ($n1bits >= $p2next)
120 122 58118 if $p2next == 1
123 105 17 unless $prod == 1
132 0 0 if $sn =~ /\D/
135 0 0 if $?
147 0 0 unless $perl == $pari