blib/lib/Math/NumSeq/DeletablePrimes.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
branch | 19 | 20 | 95.0 |
line | true | false | branch |
---|---|---|---|
88 | 0 | 34 | unless my(undef, $prime) = $primes_seq->next |
90 | 28 | 6 | if (_prime_is_deletable($self, $prime)) |
107 | 1 | 66 | $radix == 2 ? : |
113 | 24 | 83 | unless is_prime($value) |
114 | 56 | 27 | if ($value < $target) |
120 | 19 | 8 | if ($radix == 10) { } |
121 | 1 | 18 | $value =~ /^.(0+)/ ? : |
125 | 3 | 35 | if $digit eq $prev |
136 | 1 | 20 | if $high < $radix and $prev == 0 |
137 | 7 | 13 | if $digit eq $prev |