Branch Coverage

blib/lib/Lingua/MKD/Num2Word.pm
Criterion Covered Total %
branch 32 64 50.0


line true false branch
43 13 21 if exists $token1{$number}
45 6 15 if ($number < 100)
47 4 2 if ($rem == 0)
56 6 9 if ($hund_rem == 0)
63 2 7 if ($hund_rem < 20 or $tens_rem == 0)
79 1 33 if not defined $number && $number =~ /\A\d+\z/msux or $number < 0 or $number > 999999999
85 1 32 if $number == 0
90 5 27 if ($number >= 1000000)
94 2 3 if ($millions == 1) { }
104 10 22 if ($number >= 1000)
108 2 8 if $result ne ""
110 6 4 if ($thousands == 1) { }
1 3 elsif ($thousands == 2) { }
123 26 6 if ($number > 0)
124 7 19 if ($result ne '') { }
127 4 3 if ($number < 100 or $number % 100 == 0) { }
150 0 0 if not defined $number && $number =~ /\A\d+\z/msux or $number < 0 or $number > 999999999
172 0 0 if exists $irregular{$number}
187 0 0 if exists $teens{$number}
215 0 0 if ($number >= 1000000)
218 0 0 if ($remainder == 0)
219 0 0 if ($millions == 1)
224 0 0 $millions == 1 ? :
229 0 0 if ($number >= 1000)
232 0 0 if ($remainder == 0)
233 0 0 if ($thousands == 1)
239 0 0 if ($thousands == 1) { }
0 0 elsif ($thousands == 2) { }
251 0 0 if ($number >= 100)
254 0 0 if ($remainder == 0)
261 0 0 if ($number >= 20)
264 0 0 if ($remainder == 0)