| blib/lib/Algorithm/CheckDigits/M16_001.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 8 | 16 | 50.0 |
| line | true | false | branch |
|---|---|---|---|
| 23 | 2 | 0 | if ($number =~ /^([0-9a-f]{15})([0-9a-f])$/i) |
| 31 | 1 | 0 | if ($number =~ /^[0-9a-f]{15}$/i) |
| 39 | 1 | 0 | if ($number =~ /^([0-9a-f]{15})([0-9a-f])$/i) |
| 40 | 1 | 0 | if uc $2 eq $self->_compute_checkdigit($1) |
| 47 | 1 | 0 | if ($number =~ /^([0-9a-f]{15})([0-9a-f])$/i) |
| 48 | 1 | 0 | if uc $2 eq $self->_compute_checkdigit($1) |
| 57 | 5 | 0 | if ($number =~ /^[0-9a-f]{15}$/i) |
| 67 | 0 | 75 | unless $c |