| blib/lib/Math/ModInt/Perl.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 42 | 42 | 100.0 |
| line | true | false | branch |
|---|---|---|---|
| 41 | 70 | 16 | if ($inv) { } |
| 4 | 19 | elsif (not defined $inv and $mod <= 256) { } | |
| 43 | 62 | 8 | if defined $i |
| 54 | 4 | 20 | if (1 != $d) { } |
| 5 | 15 | elsif ($i < 0) { } | |
| 60 | 12 | 12 | if ($inv) |
| 62 | 9 | 3 | if ($i) |
| 72 | 2 | 7 | unless $r |
| 80 | 20 | 33 | if ($mod <= $r) |
| 90 | 17 | 25 | if ($r < 0) |
| 105 | 13 | 30 | unless $i |
| 112 | 10 | 71 | unless $exp |
| 113 | 27 | 44 | if ($exp < 0) { } |
| 6 | 38 | elsif (not $r) { } | |
| 115 | 6 | 21 | unless $r |
| 123 | 136 | 65 | if (1 & $exp) |
| 126 | 142 | 59 | if $exp >>= 1 |
| 135 | 5 | 11 | unless $i |
| 142 | 214 | 79 | if ($class) { } |
| 166 | 3 | 1 | if ($mod <= 32768) |
| 181 | 2 | 1 | if (exists $inverses{$mod} and $mod > 256 || !$inverses{$mod}) |