Condition Coverage

blib/lib/Lingua/POL/Num2Word.pm
Criterion Covered Total %
condition 13 69 18.8


and 3 conditions

line !l l&&!r l&&r condition
92 1 0 0 $MiejsceDz > 0 and Right($Numer, 2) ne "00"
110 0 0 1 $Numer > 0 and $currency || !$MiejsceDz
395 0 0 0 defined $number && $number =~ /\A\d+\z/msux

or 2 conditions

line l !l condition
29 0 1 shift() || ''
72 2 1 shift() // 0
114 1 0 Setki(Right('000' . $Numer, 3)) // ""
115 1 0 Dziesiatki(Right('00' . $Numer, 2)) // ""
117 1 0 Jednostki(Right($Numer, 1)) // ""
127 0 1 $zlote // ""

or 3 conditions

line l !l&&r !l&&!r condition
85 1 0 1 $Numer > "9999999999999.99" or $Numer < 0
110 0 1 0 $currency || !$MiejsceDz
0 0 0 $currency or not $MiejsceDz
119 0 0 0 $Licznik == 3 or $Licznik == 4
0 0 0 $Licznik == 3 or $Licznik == 4 or $Licznik == 5
140 1 0 0 not $Numer =~ /^\d+$/u or $Numer > -1
170 0 0 0 $tys == 12 or $tys == 13
0 0 0 $tys == 12 or $tys == 13 or $tys == 14
176 0 0 0 $tys == 2 or $tys == 3
0 0 0 $tys == 2 or $tys == 3 or $tys == 4
209 0 0 0 $mil == 12 or $mil == 13
0 0 0 $mil == 12 or $mil == 13 or $mil == 14
214 0 0 0 $mil == 2 or $mil == 3
0 0 0 $mil == 2 or $mil == 3 or $mil == 4
395 0 0 0 not defined $number && $number =~ /\A\d+\z/msux or $number < 0
0 0 0 not defined $number && $number =~ /\A\d+\z/msux or $number < 0 or $number > 999999999