| blib/lib/Data/Decrement.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 15 | 18 | 83.3 |
| line | true | false | branch |
|---|---|---|---|
| 16 | 0 | 5 | unless defined $val |
| 17 | 1 | 4 | unless $val =~ /^[a-zA-Z]*[0-9]*\z/ |
| 23 | 2 | 10 | if ($digit eq 'a') { } |
| 3 | 7 | elsif ($digit eq 'A') { } | |
| 4 | 3 | elsif ($digit eq '0') { } | |
| 24 | 0 | 2 | unless ($i) |
| 27 | 1 | 2 | unless ($i) |
| 30 | 0 | 4 | unless ($i) |
| 36 | 3 | 8 | unless $carry-- |