Branch Coverage

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