| blib/lib/Algorithm/CheckDigits/M43_001.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 6 | 12 | 50.0 |
| line | true | false | branch |
|---|---|---|---|
| 39 | 2 | 0 | if ($number =~ /^(.*)(.)$/i) |
| 47 | 1 | 0 | if ($number =~ /^(.*)$/i) |
| 55 | 1 | 0 | if ($number =~ /^(.*)(.)$/i) |
| 56 | 1 | 0 | if uc $2 eq $self->_compute_checkdigit($1) |
| 63 | 1 | 0 | if ($number =~ /^(.*)(.)$/i) |
| 64 | 1 | 0 | if uc $2 eq $self->_compute_checkdigit($1) |