| line |
true |
false |
branch |
|
173
|
11 |
1101 |
if $Lingua::Slavic::Numbers::DEBUG |
|
181
|
0 |
148 |
unless (exists $Lingua::Slavic::Numbers::ORDINALS{$lang}) |
|
189
|
2 |
146 |
unless ($number >= 0) |
|
195
|
0 |
146 |
unless (int $number == $number) |
|
201
|
137 |
9 |
if exists $$hash{$number} |
|
204
|
0 |
9 |
if ($number > $max) |
|
210
|
9 |
0 |
if ($lang eq 'bg') |
|
245
|
275 |
0 |
if ($t =~ /$Lingua::Slavic::Numbers::RE{'num'}{'real'}{join $;, -'sep', '[,.]?'}{-'keep'}/) { } |
|
262
|
0 |
275 |
if (exists $$hash{$canon}) { } |
|
|
88 |
187 |
elsif ($t == 0) { } |
|
268
|
0 |
88 |
if (scalar @$tri == 1) { } |
|
292
|
84 |
103 |
if ($pow) |
|
298
|
62 |
22 |
if ($pow eq 3) |
|
318
|
32 |
50 |
if ($decompose_num == 1 and scalar @n == 1 or $decompose_num == 2 and scalar @n == 1 and $n[0] == 0) |
|
325
|
57 |
301 |
unless $decompose_num |
|
330
|
186 |
45 |
if ($some_left and $decompose_num <= 20 && scalar @n == 0 || scalar @n == 2 && $n[0] == 0 && $n[1] == 0) |
|
346
|
84 |
103 |
if $inflexion |
|
355
|
187 |
0 |
if (defined $inter) { } |
|
359
|
182 |
5 |
unless $$options{'noconj'} |
|
360
|
84 |
103 |
if $qualifier |
|
387
|
50 |
4622 |
if exists $$options{$gender} and exists $Lingua::Slavic::Numbers::INFLEXIONS{$lang}{$gender}{$number} |
|
392
|
2152 |
156 |
if exists $$hash{$number} |
|
405
|
2 |
188 |
unless ($number =~ /^$Lingua::Slavic::Numbers::RE{'num'}{'int'}$/ or $number =~ /^$Lingua::Slavic::Numbers::RE{'num'}{'real'}$/) |
|
412
|
0 |
1256 |
unless (exists $Lingua::Slavic::Numbers::NUMBER_NAMES{$lang}) |
|
421
|
1 |
1255 |
if ($number > $max) |
|
427
|
1101 |
154 |
if defined find_known($lang, $hash, $number, $options) |
|
429
|
9 |
145 |
if $number =~ /-\s*(.*)/ |
|
432
|
145 |
0 |
if ($number =~ /$Lingua::Slavic::Numbers::RE{'num'}{'real'}{join $;, -'sep', '[,.]?'}{-'keep'}/) |
|
436
|
1 |
144 |
if ($power) |
|
444
|
0 |
1 |
if defined find_known($lang, $hash, $number, $options) |
|
454
|
0 |
1 |
if defined find_known($lang, $hash, $number, $options) |
|
460
|
145 |
0 |
if ('bg' eq $lang) |
|
493
|
0 |
0 |
if $opt_string |
|
509
|
0 |
0 |
if ($_[0]) |
|
513
|
0 |
0 |
if ($_[1]) |