| line |
true |
false |
branch |
|
62
|
4 |
1 |
unless (ref $self) |
|
69
|
1 |
4 |
if ($opts{'SEXO'}) |
|
86
|
20898 |
1 |
if (@words) { } |
|
87
|
5 |
20893 |
if $sgn < 0 and $$self{'NEGATIVO'} |
|
88
|
1 |
20897 |
if $sgn > 0 and $$self{'POSITIVO'} |
|
105
|
10455 |
0 |
unless defined $genf |
|
106
|
10455 |
0 |
unless defined $genm |
|
113
|
7 |
10448 |
if (/%([0-9]*)s/) |
|
116
|
0 |
7 |
if $1 |
|
118
|
7 |
0 |
$frc ? : |
|
121
|
10447 |
1 |
if (/%([0-9]*)d/) |
|
135
|
10454 |
1 |
if ($ent) { } |
|
136
|
5 |
10449 |
$sgn < 0 ? : |
|
141
|
10454 |
1 |
if $ent and $frc |
|
153
|
1 |
10447 |
if $sgn < 0 |
|
154
|
0 |
10447 |
if $frc |
|
156
|
0 |
10447 |
if ($ent =~ /^0*$/) |
|
176
|
24 |
0 |
unless @a |
|
219
|
306 |
142286 |
if $n == 0 |
|
220
|
83959 |
58327 |
if ($n < 30) |
|
222
|
51847 |
6480 |
if $2 |
|
234
|
1588 |
143679 |
if $n == 0 |
|
235
|
1087 |
142592 |
if ($n == 100) |
|
237
|
68834 |
73758 |
if $n >= 100 |
|
248
|
7140 |
76623 |
if $n == 0 |
|
249
|
27314 |
49309 |
if $mag |
|
252
|
50786 |
25837 |
if ($n3) |
|
254
|
49921 |
865 |
if $n3 != 1 or $un_mil |
|
268
|
2 |
34386 |
unless $n |
|
269
|
3 |
34383 |
if length($n) + $exp > $MAX_DIGITS |
|
274
|
3981 |
30402 |
if $group[0] =~ /un$/ |
|
284
|
31853 |
1307 |
$un_mil ? : |
|
285
|
12254 |
20906 |
unless $gen |
|
299
|
0 |
1244 |
unless $mag |
|
300
|
8 |
1236 |
if $mag == 1 |
|
301
|
8 |
1228 |
if $mag == 2 |
|
306
|
198 |
1027 |
unless $mag % 6 |
|
317
|
0 |
1247 |
if $n == 0 |
|
318
|
1240 |
7 |
unless defined $ngen |
|
320
|
3 |
1244 |
if $exp > $MAX_DIGITS |
|
321
|
7 |
1237 |
unless $n =~ /^0*1$/ |
|
347
|
304 |
20222 |
if $n == 0 |
|
348
|
5162 |
15060 |
if ($n < 13) |
|
354
|
7212 |
7848 |
if ($1 <= 2) |
|
355
|
2852 |
3884 |
$1 == 1 ? : |
|
|
0 |
476 |
$1 == 1 ? : |
|
|
6736 |
476 |
$2 ? : |
|
358
|
792 |
6420 |
if $2 == 8 |
|
362
|
6976 |
872 |
if $2 |
|
373
|
108 |
20526 |
if $n == 0 |
|
375
|
14725 |
5801 |
if $n > 99 |
|
386
|
520 |
20634 |
if $n == 0 |
|
387
|
0 |
20634 |
if $mag |
|
390
|
18863 |
1771 |
if ($n3) |
|
391
|
18723 |
140 |
if ($n3 > 1) { } |
|
411
|
1 |
21395 |
unless $n |
|
412
|
1 |
21394 |
if length($n) + $exp > $MAX_DIGITS |
|
417
|
21154 |
240 |
if ($mag == 0) |
|
423
|
4940 |
17580 |
if ($1 == 0) |
|
428
|
540 |
17040 |
if ($1 == 1) { } |
|
438
|
0 |
21394 |
unless ($gen) |
|
454
|
41834 |
5 |
if $dec eq '.' |
|
455
|
1 |
41838 |
unless my($sgn, $int, $frc, $exp) = $num =~ /^
([+-]?) (?= \d | $dec\d ) # signo
(\d*) # parte entera
(?: $dec (\d*) )? # parte decimal
(?: [Ee] ([+-]?\d+) )? # exponente
$/x |
|
462
|
22 |
41816 |
$sgn eq '-' ? : |
|
463
|
41805 |
33 |
unless $exp ||= 0 |
|
469
|
12 |
21 |
if ($exp > 0) { } |
|
470
|
4 |
8 |
if ($exp > length $frc) { } |
|
482
|
4 |
17 |
if (-$exp > length $int) { } |
|
502
|
41794 |
6 |
if ($$self{'ACENTOS'}) { } |
|
503
|
4 |
41790 |
if ($$self{'HTML'}) |
|
511
|
6 |
41794 |
$$self{'MAYUSCULAS'} ? : |