| blib/lib/Algorithm/CheckDigits/M10_004.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 13 | 20 | 65.0 |
| line | true | false | branch |
|---|---|---|---|
| 33 | 12 | 0 | if ($number =~ /^([0-9 -]+)([0-9])$/) |
| 41 | 4 | 0 | if ($number =~ /^[0-9 -]+$/) |
| 49 | 4 | 0 | if ($number =~ /^([0-9 -]+)([0-9])$/) |
| 50 | 4 | 0 | if $2 == $self->_compute_checkdigit($1) |
| 57 | 4 | 0 | if ($number =~ /^([0-9 -]+)([0-9])$/) |
| 58 | 4 | 0 | if $2 == $self->_compute_checkdigit($1) |
| 67 | 24 | 0 | if ($number =~ /^([0-9]*)$/) |
| 68 | 12 | 12 | if ($$valid_prefix{$self->{'type'}}) |
| 70 | 1 | 11 | unless ($$valid_prefix{$self->{'type'}}{$prefix}) |
| 78 | 123 | 123 | if ($even) { } |