| line |
true |
false |
branch |
|
210
|
6 |
1 |
unless (ref $self) |
|
217
|
1 |
6 |
if ($opts{'SEXO'}) |
|
261
|
10569 |
1 |
if (@words) { } |
|
262
|
11 |
10558 |
if $sgn < 0 and $$self{'NEGATIVO'} |
|
263
|
2 |
10567 |
if $sgn > 0 and $$self{'POSITIVO'} |
|
324
|
121 |
0 |
unless defined $genf |
|
325
|
121 |
0 |
unless defined $genm |
|
332
|
18 |
103 |
if (/%([0-9]*)s/) |
|
335
|
0 |
18 |
if $1 |
|
337
|
18 |
0 |
$frc ? : |
|
340
|
102 |
1 |
if (/%([0-9]*)d/) |
|
354
|
121 |
0 |
if ($ent) { } |
|
355
|
11 |
110 |
$sgn < 0 ? : |
|
360
|
120 |
1 |
if $ent and $frc |
|
400
|
1 |
10450 |
if $sgn < 0 |
|
401
|
1 |
10449 |
if $frc |
|
403
|
2 |
10448 |
if ($ent =~ /^0*$/) |
|
460
|
41 |
16 |
unless @_ |
|
542
|
204 |
110186 |
if $n == 0 |
|
543
|
65078 |
45108 |
if ($n < 30) |
|
545
|
40098 |
5010 |
if $2 |
|
584
|
1491 |
111388 |
if $n == 0 |
|
585
|
998 |
110390 |
if ($n == 100) |
|
587
|
52176 |
58214 |
if $n >= 100 |
|
638
|
5670 |
57916 |
if $n == 0 |
|
639
|
18774 |
39142 |
if $mag |
|
642
|
37116 |
20800 |
if ($n3) |
|
644
|
36240 |
876 |
if $n3 != 1 or $un_mil |
|
698
|
2 |
24079 |
unless $n |
|
699
|
3 |
24076 |
if length($n) + $exp > $MAX_DIGITS |
|
705
|
10562 |
13514 |
if ($gen eq 'a') |
|
712
|
3069 |
21007 |
if $group[0] =~ /un$/ |
|
768
|
21535 |
1307 |
$un_mil ? : |
|
769
|
12254 |
10588 |
unless $gen |
|
831
|
0 |
1255 |
unless $mag |
|
832
|
8 |
1247 |
if $mag == 1 |
|
833
|
8 |
1239 |
if $mag == 2 |
|
838
|
198 |
1038 |
unless $mag % 6 |
|
899
|
0 |
1258 |
if $n == 0 |
|
900
|
1240 |
18 |
unless defined $ngen |
|
902
|
3 |
1255 |
if $exp > $MAX_DIGITS |
|
903
|
18 |
1237 |
unless $n =~ /^0*1$/ |
|
963
|
304 |
20223 |
if $n == 0 |
|
964
|
5163 |
15060 |
if ($n < 13) |
|
970
|
7212 |
7848 |
if ($1 <= 2) |
|
971
|
2852 |
3884 |
$1 == 1 ? : |
|
|
0 |
476 |
$1 == 1 ? : |
|
|
6736 |
476 |
$2 ? : |
|
974
|
792 |
6420 |
if $2 == 8 |
|
978
|
6976 |
872 |
if $2 |
|
1017
|
108 |
20527 |
if $n == 0 |
|
1019
|
14725 |
5802 |
if $n > 99 |
|
1061
|
520 |
20635 |
if $n == 0 |
|
1062
|
0 |
20635 |
if $mag |
|
1065
|
18863 |
1772 |
if ($n3) |
|
1066
|
18723 |
140 |
if ($n3 > 1) { } |
|
1130
|
1 |
21396 |
unless $n |
|
1131
|
1 |
21395 |
if length($n) + $exp > $MAX_DIGITS |
|
1136
|
21155 |
240 |
if ($mag == 0) |
|
1142
|
4940 |
17580 |
if ($1 == 0) |
|
1147
|
540 |
17040 |
if ($1 == 1) { } |
|
1157
|
0 |
21395 |
unless ($gen) |
|
1237
|
21170 |
10 |
if $dec eq '.' |
|
1238
|
2 |
21178 |
unless my($sgn, $int, $frc, $exp) = $num =~ /^
([+-]?) (?= \d | $dec\d ) # signo
(\d*) # parte entera
(?: $dec (\d*) )? # parte decimal
(?: [Ee] ([+-]?\d+) )? # exponente
$/x |
|
1245
|
34 |
21144 |
$sgn eq '-' ? : |
|
1246
|
21139 |
39 |
unless $exp ||= 0 |
|
1252
|
15 |
24 |
if ($exp > 0) { } |
|
1253
|
4 |
11 |
if ($exp > length $frc) { } |
|
1265
|
4 |
20 |
if (-$exp > length $int) { } |
|
1301
|
8 |
21009 |
if $$self{'MAYUSCULAS'} |
|
1302
|
21007 |
10 |
if ($$self{'ACENTOS'}) { } |
|
1303
|
6 |
21001 |
if ($$self{'HTML'}) |