| blib/lib/Perl/Lint/Policy/ValuesAndExpressions/RequireNumberSeparators.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 10 | 10 | 100.0 |
| line | true | false | branch |
|---|---|---|---|
| 16 | 2 | 5 | if (my $this_policies_arg = $args->{'require_number_separators'}) |
| 24 | 60 | 250 | if ($token_type == 170 or $token_type == 171) |
| 32 | 26 | 34 | if (defined $fractional_part) { } |
| 39 | 22 | 38 | if ((eval $joined // -$min_value - 1) < $min_value) |
| 45 | 28 | 35 | if (eval $part >= 1000) |