Branch Coverage

blib/lib/Lingua/AFR/Numbers.pm
Criterion Covered Total %
branch 26 48 54.1


line true false branch
61 0 1 if ($number =~ /\d+/u)
78 1 2 if not defined $number && $number =~ /\A\d+\z/msux or $number < 0 or $number > '99999999999'
84 0 2 if (defined $numbers->{$number}) { }
93 0 2 if (defined $digits->[10] and $digits->[10] != 0) { }
0 4 elsif (defined $digits->[9] and $digits->[9] != 0) { }
102 0 2 if (defined $digits->[8] and $digits->[8] != 0)
103 0 0 if ($digits->[7] == 0 and $digits->[6] == 0) { }
112 0 2 if (defined $digits->[7] and $digits->[7] != 0) { }
0 4 elsif (defined $digits->[6] and $digits->[6] != 0) { }
121 0 2 if (defined $digits->[5] and $digits->[5] != 0)
122 0 0 if ($digits->[4] == 0 and $digits->[3] == 0) { }
131 1 1 if (defined $digits->[4] and $digits->[4] != 0) { }
0 2 elsif (defined $digits->[3] and $digits->[3] != 0) { }
140 2 0 if (defined $digits->[2] and $digits->[2] != 0)
167 0 2 if ($size == 1) { }
2 0 elsif ($size > 1) { }
175 3 2 if (defined $ret_array->[$i])
176 1 2 if ($ret_array->[$i] =~ /(miljoen|duisend)/u) { }
185 0 2 if ($digits->[0] == 0 and $digits->[1] == 0) { }
0 2 elsif ($digits->[0] == 0 or $digits->[1] == 0 or $digits->[1] == 1) { }
189 0 0 if ($large_nums)
212 0 3 unless ($units or $tens)
216 0 3 if ($tens == 0) { }
1 2 elsif ($tens == 1 or $units == 0) { }