Branch Coverage

blib/lib/Crypt/DSA/Util.pm
Criterion Covered Total %
branch 14 24 58.3


line true false branch
29 1 777 $s eq '' ? :
62 0 2 $size % 8 ? :
88 9 191 if $p2index < 260
93 0 215 if $witness > $n
94 0 215 if $witness == 0
104 0 103040 if $prod == 1 and not $rootone
105 51437 51603 if ($n1bits >= $p2next)
109 215 102825 if $p2next == 1
112 198 17 unless $prod == 1
121 0 0 if $sn =~ /\D/
124 0 0 if $?
136 0 0 unless $perl == $pari