blib/lib/Algorithm/CheckDigits/M11_004.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
branch | 14 | 24 | 58.3 |
line | true | false | branch |
---|---|---|---|
23 | 4 | 0 | if ($number =~ /^([-\d.]+)(\d\d)$/) |
31 | 2 | 0 | if ($number =~ /^[-\d.]+$/) |
33 | 2 | 0 | unless 0 > $cd |
40 | 2 | 0 | if ($number =~ /^([-\d.]+)(\d\d)$/) |
41 | 2 | 0 | if $2 eq $self->_compute_checkdigit($1) |
48 | 2 | 0 | if ($number =~ /^([-\d.]+)(\d\d)$/) |
49 | 2 | 0 | if $2 eq $self->_compute_checkdigit($1) |
69 | 10 | 10 | if 2 > $sum |
73 | 0 | 10 | unless $number =~ /^[-\d.]+$/ |
76 | 5 | 5 | if ('cpf' eq $self->{'type'}) { } |
5 | 0 | elsif ('titulo_eleitor' eq $self->{'type'}) { } | |
77 | 0 | 5 | unless length $number == 9 |