Branch Coverage

lib/Crypt/Perl/ECDSA/Math.pm
Criterion Covered Total %
branch 29 36 80.5


line true false branch
23 0 122 if $n->is_zero
25 0 122 if $p->beq(2)
27 0 122 if (jacobi($n, $p) == -1)
32 105 17 if ($p->copy->bmod(4)->beq(3))
45 17 71 if jacobi($Z, $p) == -1
65 295 13561 if $t1->is_one
70 17 278 if $i == 0
105 242 10139 unless $help
120 0 10381 if $a < 0
122 0 10381 if $n <= 0
125 5 10376 if ($a->is_zero)
126 0 5 $n->is_one ? :
130 58 10318 if $a->is_one
144 6574 3744 if (($ki & 1) == 0) { }
150 1913 1831 if ($residue == 1 or $residue == 7) { }
1831 0 elsif ($residue == 3 or $residue == 5) { }
159 2587 7731 if ($n->copy->band(3)->beq(3) and $a1->copy->band(3)->beq(3))
163 179 10139 if $a1->is_one