blib/lib/Algorithm/CheckDigits/MXX_002.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
branch | 8 | 14 | 57.1 |
line | true | false | branch |
---|---|---|---|
24 | 6 | 0 | if ($number =~ /^(\d{1,7}-?\d{2}-?)(\d)$/) |
25 | 3 | 3 | if $2 == $self->_compute_checkdigit($1) |
32 | 3 | 0 | if ($number =~ /^\d{1,7}-?\d{2}-?$/) |
40 | 3 | 0 | if ($number =~ /^(\d{1,7}-?\d{2}-?)(\d)$/) |
41 | 3 | 0 | if $2 == $self->_compute_checkdigit($1) |
48 | 3 | 0 | if ($number =~ /^(\d{1,7}-?\d{2}-?)(\d)$/) |
49 | 3 | 0 | if $2 == $self->_compute_checkdigit($1) |