| blib/lib/Math/ModInt/Perl.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 42 | 42 | 100.0 |
| line | true | false | branch |
|---|---|---|---|
| 45 | 70 | 16 | if ($inv) { } |
| 4 | 19 | elsif (not defined $inv and $mod <= 256) { } | |
| 47 | 62 | 8 | if defined $i |
| 58 | 4 | 20 | if (1 != $d) { } |
| 5 | 15 | elsif ($i < 0) { } | |
| 64 | 12 | 12 | if ($inv) |
| 66 | 9 | 3 | if ($i) |
| 76 | 2 | 7 | unless $r |
| 84 | 20 | 33 | if ($mod <= $r) |
| 94 | 17 | 25 | if ($r < 0) |
| 109 | 13 | 30 | unless $i |
| 116 | 10 | 71 | unless $exp |
| 117 | 27 | 44 | if ($exp < 0) { } |
| 6 | 38 | elsif (not $r) { } | |
| 119 | 6 | 21 | unless $r |
| 127 | 136 | 65 | if (1 & $exp) |
| 130 | 142 | 59 | if $exp >>= 1 |
| 139 | 5 | 11 | unless $i |
| 146 | 214 | 79 | if ($class) { } |
| 170 | 3 | 1 | if ($mod <= 32768) |
| 185 | 2 | 1 | if (exists $inverses{$mod} and $mod > 256 || !$inverses{$mod}) |