Condition Coverage

blib/lib/Lingua/SU/Nums2Words.pm
Criterion Covered Total %
condition 47 63 74.6


and 2 conditions

line l !l condition
123 0 24 $num =~ /^(.+)(?:\Q$Lingua::SU::Nums2Words::Dec_char\E)?$/o and @words = &_handle_int($1)
167 45 4 $n3 > 1 and @words = ($Lingua::SU::Nums2Words::Digit_words{$n3}, 'ratus')

and 3 conditions

line !l l&&!r l&&r condition
104 24 0 4 $num =~ /^(.+)[Ee](.+)$/ and @words = (&_handle_neg_dec($1), $Lingua::SU::Nums2Words::Exp_word, &_handle_neg_dec($2))
123 24 0 8 $num =~ /^(.+)\Q$Lingua::SU::Nums2Words::Dec_char\E(.+)$/o and @words = (&_handle_int($1), $Lingua::SU::Nums2Words::Dec_word, &_handle_dec($2))
24 0 0 $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))
164 17 2 0 $n1 == 1 and $order == 1
19 0 0 $n1 == 1 and $order == 1 and @words = 'sa-'
10 9 36 $n3 == 0 and $n2 == 0
19 17 19 $n3 == 0 and $n2 == 0 and $n1 > 0
167 49 0 6 $n3 == 1 and @words = 'sa-ratus'
172 3 0 6 $n1 == 0 and push @words, 'sa-puluh'
1 0 2 $n1 == 1 and push @words, 'sa-belas'
181 45 7 3 $n3 > 0 and $n2 == 0
52 1 2 $n3 > 0 and $n2 == 0 and $n1 > 0

or 2 conditions

line l !l condition
172 2 1 $n1 == 0 and push @words, 'sa-puluh' or $n1 == 1 and push @words, 'sa-belas' or push @words, $Lingua::SU::Nums2Words::Digit_words{$n1}, 'belas'

or 3 conditions

line l !l&&r !l&&!r condition
123 8 0 24 $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))
164 0 2 0 $n1 == 1 and $order == 1 and @words = 'sa-' or @words = $Lingua::SU::Nums2Words::Digit_words{$n1}
172 6 0 3 $n1 == 0 and push @words, 'sa-puluh' or $n1 == 1 and push @words, 'sa-belas'
183 10 9 36 $n3 != 0 or $n2 != 0
19 19 17 $n3 != 0 or $n2 != 0 or $n1 != 0
211 42 0 129 not length $w or $w eq 'se'
42 10 119 not length $w or $w eq 'se' or not @_