| blib/lib/Sort/Key/Natural.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 4 | 16 | 25.0 |
| line | true | false | branch |
|---|---|---|---|
| 35 | 0 | 117 | @_ ? : |
| 37 | 0 | 117 | if ((caller 0)[8] & $locale::hint_bits) { } |
| 46 | 81 | 135 | if (/^\d/) |
| 66 | 0 | 0 | @_ ? : |
| 68 | 0 | 0 | if ((caller 0)[8] & $locale::hint_bits) { } |
| 77 | 0 | 0 | if (my($sign, $number, $dec) = /^([+-]?)(\d+)(?:\.(\d*))?$/) |
| 79 | 0 | 0 | unless defined $dec |
| 85 | 0 | 0 | if ($sign eq '-' and $_ ne '0') |