| line |
true |
false |
branch |
|
60
|
4 |
1 |
unless (ref $self) |
|
67
|
1 |
4 |
if ($opts{'SEXO'}) |
|
84
|
20898 |
1 |
if (@words) { } |
|
85
|
5 |
0 |
if $sgn < 0 and $self->{'NEGATIVO'} |
|
86
|
1 |
20892 |
if $sgn > 0 and $self->{'POSITIVO'} |
|
103
|
10455 |
0 |
unless defined $genf |
|
104
|
10455 |
0 |
unless defined $genm |
|
111
|
7 |
10448 |
if (/%([0-9]*)s/u) |
|
114
|
0 |
7 |
if $1 |
|
116
|
7 |
0 |
$frc ? : |
|
119
|
10447 |
1 |
if (/%([0-9]*)d/u) |
|
133
|
10454 |
1 |
if ($ent) { } |
|
134
|
5 |
10449 |
$sgn < 0 ? : |
|
139
|
10454 |
1 |
if $ent and $frc |
|
151
|
1 |
10447 |
if $sgn < 0 |
|
152
|
0 |
10447 |
if $frc |
|
154
|
0 |
10447 |
if ($ent =~ /^0*$/u) |
|
175
|
24 |
0 |
unless @a |
|
218
|
306 |
142286 |
if $n == 0 |
|
219
|
83959 |
58327 |
if ($n < 30) |
|
221
|
51847 |
6480 |
if $2 |
|
233
|
1588 |
143679 |
if $n == 0 |
|
234
|
1087 |
142592 |
if ($n == 100) |
|
236
|
68834 |
73758 |
if $n >= 100 |
|
247
|
7140 |
76623 |
if $n == 0 |
|
248
|
27314 |
49309 |
if $mag |
|
251
|
50786 |
25837 |
if ($n3) |
|
253
|
49921 |
865 |
if $n3 != 1 or $un_mil |
|
267
|
2 |
34386 |
unless $n |
|
268
|
3 |
34383 |
if length($n) + $exp > $MAX_DIGITS |
|
273
|
3981 |
30402 |
if $group[0] =~ /un$/u |
|
283
|
31853 |
1307 |
$un_mil ? : |
|
284
|
12254 |
20906 |
unless $gen |
|
297
|
0 |
1244 |
unless $mag |
|
298
|
8 |
1236 |
if $mag == 1 |
|
299
|
8 |
1228 |
if $mag == 2 |
|
304
|
198 |
1027 |
unless $mag % 6 |
|
315
|
0 |
1247 |
if $n == 0 |
|
316
|
1240 |
7 |
unless defined $ngen |
|
318
|
3 |
1244 |
if $exp > $MAX_DIGITS |
|
319
|
7 |
1237 |
unless $n =~ /^0*1$/u |
|
346
|
304 |
20222 |
if $n == 0 |
|
347
|
5162 |
15060 |
if ($n < 13) |
|
353
|
7212 |
7848 |
if ($1 <= 2) |
|
354
|
2852 |
3884 |
$1 == 1 ? : |
|
|
0 |
476 |
$1 == 1 ? : |
|
|
6736 |
476 |
$2 ? : |
|
357
|
792 |
6420 |
if $2 == 8 |
|
361
|
6976 |
872 |
if $2 |
|
372
|
108 |
20526 |
if $n == 0 |
|
374
|
14725 |
5801 |
if $n > 99 |
|
385
|
520 |
20634 |
if $n == 0 |
|
386
|
0 |
20634 |
if $mag |
|
389
|
18863 |
1771 |
if ($n3) |
|
390
|
18723 |
140 |
if ($n3 > 1) { } |
|
410
|
1 |
21395 |
unless $n |
|
411
|
1 |
21394 |
if length($n) + $exp > $MAX_DIGITS |
|
416
|
21154 |
240 |
if ($mag == 0) |
|
422
|
4940 |
17580 |
if ($1 == 0) |
|
427
|
540 |
17040 |
if ($1 == 1) { } |
|
437
|
0 |
21394 |
unless ($gen) |
|
453
|
41834 |
5 |
if $dec eq "." |
|
454
|
1 |
41838 |
unless my($sgn, $int, $frc, $exp) = $num =~ /^
([+-]?) (?= \d | $dec\d ) # signo
(\d*) # parte entera
(?: $dec (\d*) )? # parte decimal
(?: [Ee] ([+-]?\d+) )? # exponente
$/ux |
|
461
|
22 |
41816 |
$sgn eq '-' ? : |
|
462
|
41805 |
33 |
unless $exp ||= 0 |
|
468
|
12 |
21 |
if ($exp > 0) { } |
|
469
|
4 |
8 |
if ($exp > length $frc) { } |
|
481
|
4 |
17 |
if (-$exp > length $int) { } |
|
501
|
41794 |
6 |
if ($self->{'ACENTOS'}) { } |
|
502
|
4 |
41790 |
if ($self->{'HTML'}) |
|
510
|
6 |
41794 |
$self->{'MAYUSCULAS'} ? : |