| blib/lib/Algorithm/CheckDigits/MXX_004.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 9 | 16 | 56.2 |
| line | true | false | branch |
|---|---|---|---|
| 23 | 2 | 0 | if ($number =~ /^(?:AT)?U?(\d{7})(\d)$/i) |
| 31 | 1 | 0 | if ($number =~ /^(?:AT)?U?(\d{7})$/i) |
| 39 | 1 | 0 | if ($number =~ /^(AT)?(U)?(\d{7})(\d)$/i) |
| 42 | 1 | 0 | if $4 == $self->_compute_checkdigit($3) |
| 49 | 1 | 0 | if ($number =~ /^(?:AT)?U?(\d{7})(\d)$/i) |
| 50 | 1 | 0 | if $2 == $self->_compute_checkdigit($1) |
| 59 | 5 | 0 | if ($number =~ /^\d{7}$/) |
| 64 | 20 | 15 | if ($even) { } |