| blib/lib/Math/ModInt/Perl.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 42 | 42 | 100.0 |
| line | true | false | branch |
|---|---|---|---|
| 47 | 70 | 16 | if ($inv) { } |
| 4 | 19 | elsif (not defined $inv and $mod <= 256) { } | |
| 49 | 62 | 8 | if defined $i |
| 60 | 4 | 20 | if (1 != $d) { } |
| 5 | 15 | elsif ($i < 0) { } | |
| 66 | 12 | 12 | if ($inv) |
| 68 | 9 | 3 | if ($i) |
| 78 | 2 | 7 | unless $r |
| 86 | 20 | 33 | if ($mod <= $r) |
| 96 | 17 | 25 | if ($r < 0) |
| 111 | 13 | 30 | unless $i |
| 118 | 10 | 71 | unless $exp |
| 119 | 27 | 44 | if ($exp < 0) { } |
| 6 | 38 | elsif (not $r) { } | |
| 121 | 6 | 21 | unless $r |
| 129 | 136 | 65 | if (1 & $exp) |
| 132 | 142 | 59 | if $exp >>= 1 |
| 141 | 5 | 11 | unless $i |
| 148 | 214 | 79 | if ($class) { } |
| 172 | 3 | 1 | if ($mod <= 32768) |
| 187 | 2 | 1 | if (exists $inverses{$mod} and $mod > 256 || !$inverses{$mod}) |