Branch Coverage

blib/lib/Lingua/SU/Nums2Words.pm
Criterion Covered Total %
branch 28 32 87.5


line true false branch
103 24 4 unless $num =~ /^(.+)[Ee](.+)$/ and @words = (_handle_neg_dec $1, $Lingua::SU::Nums2Words::Exp_word, _handle_neg_dec $2)
115 8 24 if $num < 0
118 24 0 unless $num =~ /^(.+)\Q$Lingua::SU::Nums2Words::Dec_char\E(.+)$/o and @words = (_handle_int $1, $Lingua::SU::Nums2Words::Dec_word, _handle_dec $2) or $num =~ /^\Q$Lingua::SU::Nums2Words::Dec_char\E(.+)$/o and @words = ($Lingua::SU::Nums2Words::Digit_words{'0'}, $Lingua::SU::Nums2Words::Dec_word, _handle_dec $1)
127 8 24 if $is_neg
143 38 17 if $t > 0
148 1 31 unless join('', @words) =~ /\S/
161 19 26 if $n3 == 0 and $n2 == 0 and $n1 > 0
165 49 6 unless $n3 == 1 and @words = 'sa-ratus'
168 9 46 if $n2 == 1
174 7 48 if ($n2 > 1)
176 7 0 if $n1 > 0
179 2 8 if $n3 > 0 and $n2 == 0 and $n1 > 0
182 38 17 if $n3 != 0 or $n2 != 0 or $n1 != 0
195 30 0 if exists $Lingua::SU::Nums2Words::Digit_words{$t}
199 0 13 unless join('', @words) =~ /\S/
210 119 10 unless not length $w or $w eq 'se' or not @_