| blib/lib/Algorithm/CheckDigits/M97_002.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 7 | 14 | 50.0 |
| line | true | false | branch |
|---|---|---|---|
| 34 | 46 | 0 | if (my($checkdigit, $number) = _prepare_number(shift())) |
| 45 | 1 | 0 | if (my($checkdigit, $number) = _prepare_number($incomplete)) |
| 58 | 1 | 0 | if (my($checkdigit, $number) = _prepare_number($unchecked)) |
| 62 | 1 | 0 | if $checkdigit eq _compute_checkdigit($number) |
| 71 | 1 | 0 | if (my($checkdigit, $number) = _prepare_number(shift())) |
| 72 | 1 | 0 | if $checkdigit eq _compute_checkdigit($number) |
| 106 | 49 | 0 | if ($number =~ /^([A-Z]{2})(\d\d)([A-Z\d]{2,30})$/) |