| blib/lib/Algorithm/CheckDigits/MXX_003.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 10 | 16 | 62.5 |
| line | true | false | branch |
|---|---|---|---|
| 51 | 2 | 0 | if ($number =~ /^([ADGKLNSUYZ]{2}\d{7}[ADGKLNSUYZ])(\d)$/i) |
| 52 | 1 | 1 | if $2 == $self->_compute_checkdigit(uc $1) |
| 59 | 1 | 0 | if ($number =~ /^[ADGKLNSUYZ]{2}\d{7}[ADGKLNSUYZ]$/i) |
| 67 | 1 | 0 | if ($number =~ /^([ADGKLNSUYZ]{2}\d{7}[ADGKLNSUYZ])(\d)$/i) |
| 68 | 1 | 0 | if $2 == $self->_compute_checkdigit(uc $1) |
| 75 | 1 | 0 | if ($number =~ /^([ADGKLNSUYZ]{2}\d{7}[ADGKLNSUYZ])(\d)$/i) |
| 76 | 1 | 0 | if $2 == $self->_compute_checkdigit(uc $1) |
| 95 | 5 | 5 | unless $dieder->[$rd][$j] |