| blib/lib/Number/Spice.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 7 | 12 | 58.3 |
| line | true | false | branch |
|---|---|---|---|
| 65 | 20 | 0 | if ($str =~ /^\s*($Number::Spice::RE_NUMBER)($Number::Spice::RE_SPICE_SUFFIX?)\s*$/) { } |
| 69 | 0 | 0 | wantarray ? : |
| 78 | 14 | 136 | if $suffix =~ /$$_[0]/ |
| 89 | 0 | 20 | unless defined $spice_number |
| 92 | 0 | 20 | unless my($number, $suffix) = split_spice_number($spice_number) |
| 117 | 17 | 108 | if ($abs_number >= $$_[0]) |