Branch Coverage

blib/lib/Crypt/DSA/Util.pm
Criterion Covered Total %
branch 16 30 53.3


line true false branch
29 1 174 $s eq '' ? :
62 0 0 $size % 8 ? :
76 0 2 unless ref $n eq "Math::BigInt"
77 0 2 unless $n > 0
109 0 149 if $n < 2
110 0 149 if $n < 4
111 0 149 unless $n % 2
125 142 7 if $p2index < 260
143 0 30112 if $prod == 1 and not $rootone
144 14907 15205 if ($n1bits >= $p2next)
148 164 29948 if $p2next == 1
151 147 17 unless $prod == 1
160 0 0 if $sn =~ /\D/
163 0 0 if $?
175 0 0 unless $perl == $pari