| line |
true |
false |
branch |
|
32
|
0 |
2 |
if $#_ == -1 |
|
34
|
0 |
2 |
if (ref $_[0]) { } |
|
46
|
2 |
0 |
if ($key eq '-words') { } |
|
|
0 |
0 |
elsif ($key eq '-exceptions') { } |
|
|
0 |
0 |
elsif ($key eq '-locale') { } |
|
66
|
0 |
56780 |
if (exists $$exceptions{$_}) |
|
74
|
0 |
56780 |
if $Stem_Caching |
|
76
|
2 |
0 |
if $Stem_Caching < 2 |
|
84
|
0 |
56780 |
if $DEBUG |
|
95
|
0 |
56780 |
if $DEBUG |
|
98
|
0 |
56780 |
if ($Stem_Caching and exists $$Stem_Cache{$word}) |
|
104
|
26 |
56754 |
unless $word |
|
105
|
0 |
56754 |
if $DEBUG |
|
125
|
55420 |
1334 |
if ($RV) |
|
129
|
234 |
55186 |
if (($suffix) = $RV =~ /(?:ándo|iéndo|ár|ér|ír)($pronoun)$/) { } |
|
|
1684 |
53502 |
elsif (($suffix) = $RV =~ /(?:ando|iendo|ar|er|ir)($pronoun)$/) { } |
|
|
0 |
107004 |
elsif (($suffix) = $word =~ /uyendo($pronoun)$/ and $RV =~ /yendo$pronoun$/) { } |
|
139
|
0 |
234 |
if $DEBUG |
|
145
|
0 |
1684 |
if $DEBUG |
|
153
|
0 |
0 |
if $DEBUG |
|
169
|
2346 |
54408 |
if (($suffix) = $R2 =~ /(amientos|imientos|amiento|imiento|anzas|ismos|ables|ibles|istas|
anza|icos|icas|ismo|able|ible|ista|osos|osas|ico|ica|oso|osa)$/x) { } |
|
|
1766 |
52642 |
elsif (($suffix) = $R2 =~ /(aciones|adores|adoras|adora|antes?|ancias?|ación|ador)$/) { } |
|
|
32 |
52610 |
elsif (($suffix) = $R2 =~ /(logías?)$/) { } |
|
|
42 |
52568 |
elsif (($suffix) = $R2 =~ /uci(ones|ón)$/) { } |
|
|
246 |
52322 |
elsif (($suffix) = $R2 =~ /(encias?)$/) { } |
|
|
412 |
51910 |
elsif ($R1 =~ /amente$/) { } |
|
|
256 |
51654 |
elsif ($R2 =~ /mente$/) { } |
|
|
436 |
51218 |
elsif ($R2 =~ /idad(es)?$/) { } |
|
|
500 |
50718 |
elsif (($suffix) = $R2 =~ /(iv[ao]s?)$/) { } |
|
|
114 |
50604 |
elsif ($word =~ /u(yeron|yendo|yamos|yais|ya[ns]?|ye[ns]?|yo|yó)$/ and $RV =~ /(yeron|yendo|yamos|yais|ya[ns]?|ye[ns]?|yo|yó)$/) { } |
|
|
20092 |
30512 |
elsif (($suffix) = $RV =~ /(iésemos|iéramos|iríamos|eríamos|aríamos|ásemos|
áramos|ábamos|isteis|asteis|ieseis|ierais|iremos|iríais|eremos|eríais|aremos|
aríais|aseis|arais|abais|ieses|ieras|iendo|ieron|iesen|ieran|iréis|irías|irían| #ancias?|
eréis|erías|erían|aréis|arías|arían|íamos|imos|amos|idos|ados|íais|ases|aras|idas| #antes?|
adas|abas|ando|aron|asen|aran|aban|iste|aste|iese|iera|iría|irás|irán|ería|erás|erán|
aría|arás|arán|áis|ías|ido|ado|ían|ase|ara|ida|ada|aba|iré|irá|eré|erá|aré|
ará|ís|as|ir|er|ar|ió|an|id|ed|ad|ía)$/x) { } |
|
|
3790 |
26722 |
elsif (($suffix) = $RV =~ /(emos|éis|en|es)$/) { } |
|
180
|
0 |
2346 |
if $DEBUG |
|
189
|
86 |
1680 |
if ($R2 =~ /ic$suffix$/) { } |
|
195
|
0 |
1766 |
if $DEBUG |
|
202
|
0 |
32 |
if $DEBUG |
|
209
|
0 |
42 |
if $DEBUG |
|
216
|
0 |
246 |
if $DEBUG |
|
224
|
120 |
292 |
if (($suffix) = $R2 =~ /(os|ic|ad)amente$/) { } |
|
|
38 |
254 |
elsif (($suffix) = $R2 =~ /((?:at(?=iv))?(?:iv))amente$/) { } |
|
233
|
0 |
412 |
if $DEBUG |
|
240
|
38 |
218 |
if (($suffix) = $R2 =~ /([ai]ble|ante)mente$/) { } |
|
246
|
0 |
256 |
if $DEBUG |
|
253
|
56 |
380 |
if (($suffix) = $R2 =~ /(abil|ic|iv)idad(es)?$/) { } |
|
259
|
0 |
436 |
if $DEBUG |
|
266
|
126 |
374 |
$R2 =~ /at$suffix$/ ? : |
|
267
|
0 |
500 |
if $DEBUG |
|
283
|
0 |
114 |
if $DEBUG |
|
308
|
0 |
20092 |
if $DEBUG |
|
314
|
30 |
3760 |
$word =~ /gu$suffix$/ ? : |
|
317
|
0 |
3790 |
if $DEBUG |
|
330
|
15954 |
40800 |
if (($suffix) = $RV =~ /(os|[aoáíó])$/) { } |
|
|
3900 |
36900 |
elsif ($RV =~ /[eé]$/) { } |
|
335
|
0 |
15954 |
if $DEBUG |
|
341
|
60 |
3840 |
if ($word =~ /gu[eé]$/ and $RV =~ /u[eé]$/) { } |
|
347
|
0 |
3900 |
if $DEBUG |
|
349
|
0 |
56754 |
if $DEBUG |
|
359
|
0 |
56754 |
if $DEBUG |
|
375
|
0 |
56754 |
if $DEBUG |
|
390
|
0 |
56754 |
if $DEBUG |
|
408
|
60844 |
109418 |
if ($word =~ /^.$reconsonants.*?$revowel(.*)$/) { } |
|
|
1542 |
107876 |
elsif ($word =~ /^${revowel}{2,}$reconsonants(.*)$/) { } |
|
|
106422 |
1454 |
elsif ($word =~ /^$reconsonants$revowel.(.*)$/) { } |
|
410
|
0 |
60844 |
if $DEBUG |
|
414
|
0 |
1542 |
if $DEBUG |
|
418
|
0 |
106422 |
if $DEBUG |
|
422
|
0 |
1454 |
if $DEBUG |
|
429
|
0 |
0 |
if (ref $_[0]) { } |
|
436
|
0 |
0 |
if (defined $caching_level) |
|
437
|
0 |
0 |
unless ($caching_level =~ /^[012]$/) |