| blib/lib/Math/NumSeq/TwinPrimes.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 14 | 16 | 87.5 |
| line | true | false | branch |
|---|---|---|---|
| 120 | 0 | 113 | unless my(undef, $prime) = $primes_seq->next |
| 123 | 55 | 58 | if ($prime == $prev + 2) { } |
| 12 | 46 | elsif ($self->{'twin_both'}) { } | |
| 150 | 66 | 116 | if ((my $pairs = $self->{'pairs'}) eq 'both') { } |
| 157 | 116 | 0 | if (my $mod = $pairs_mod{$pairs}) |
| 158 | 82 | 34 | if ($value >= 6 and $value % 6 != $mod) |
| 195 | 29 | 79 | if ($value < 2) |
| 198 | 4 | 75 | if (defined(my $blog2 = _blog2_estimate($value))) |