| lib/Crypt/Perl/RSA/Generate.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 9 | 12 | 75.0 |
| line | true | false | branch |
|---|---|---|---|
| 58 | 0 | 50 | unless $mod_bits |
| 62 | 0 | 50 | unless (grep {$exp eq $_;} (65537, 3)) |
| 68 | 50 | 0 | unless ref $exp |
| 79 | 13 | 50 | if $p1->copy->bmod($exp)->is_zero |
| 88 | 31 | 50 | if $q1->copy->bmod($exp)->is_zero or $q->beq($p) |
| 92 | 19 | 31 | if ($p->blt($q)) |