Branch Coverage

blib/lib/Algorithm/CheckDigits/MXX_001.pm
Criterion Covered Total %
branch 29 38 76.3


line true false branch
24 1 4 if ("aba_rn" eq $type)
32 2 8 if ('aba_rn' eq $self->{'type'}) { }
34 2 0 if ($number =~ /^(\d{8})(\d)$/)
37 1 1 if $ccd == $pcd
41 2 6 if ($number =~ /^\d{9}(\d).<+\d{6}(\d)<+\d{6}(\d)<+(\d)$/) { }
6 0 elsif ($number =~ /^(\d+)(\d)$/) { }
43 1 1 if $cd[0] == $1 and $cd[1] == $2 and $cd[2] == $3 and $cd[3] == $4
48 3 3 if $2 == $self->_compute($1)
56 1 4 if ($number =~ /^(\d{9}).(.<+\d{6}).(<+\d{6}).(<+).$/) { }
4 0 elsif ($number =~ /^(\d+)$/) { }
68 1 4 if ($number =~ /^(\d{9})(\d)(.<+\d{6})(\d)(<+\d{6})(\d)(<+)(\d)$/) { }
4 0 elsif ($number =~ /^(\d+)(\d)$/) { }
70 1 0 if $cd[0] == $2 and $cd[1] == $4 and $cd[2] == $6 and $cd[3] == $8
76 4 0 if $2 == $self->_compute($1)
83 1 4 if ($number =~ /^\d{9}(\d).<+\d{6}(\d)<+\d{6}(\d)<+(\d)$/) { }
4 0 elsif ($number =~ /^(\d+)(\d)$/) { }
85 1 0 if $cd[0] == $1 and $cd[1] == $2 and $cd[2] == $3 and $cd[3] == $4
103 5 35 if ($self->{'complement'})
112 5 0 if ($number =~ /^(\d{9})..<+(\d{6}).<+(\d{6}).<+.$/)