blib/lib/Algorithm/CheckDigits/M10_003.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
branch | 9 | 16 | 56.2 |
line | true | false | branch |
---|---|---|---|
23 | 4 | 0 | if ($number =~ /^M([0-9-]*)([0-9])$/i) |
31 | 1 | 0 | if ($number =~ /^M([0-9-]*[0-9])(-*)$/i) |
39 | 1 | 0 | if ($number =~ /^M([0-9-]*[0-9])(-*)([0-9])$/i) |
40 | 1 | 0 | if $self->is_valid($number) |
47 | 1 | 0 | if ($number =~ /^M([0-9-]*)([0-9])$/i) |
48 | 1 | 0 | if $self->is_valid($number) |
57 | 5 | 0 | if ($number =~ /^([0-9]*)$/) |
62 | 20 | 20 | if ($even) { } |