| line |
true |
false |
branch |
|
162
|
0 |
50 |
unless @_ |
|
174
|
50 |
0 |
if defined $x |
|
178
|
0 |
50 |
$#res || wantarray ? : |
|
188
|
0 |
0 |
if $x |
|
192
|
0 |
0 |
$#res ? : |
|
483
|
0 |
0 |
ref $_[0] eq 'HASH' ? : |
|
509
|
4 |
9 |
if ($_[0] =~ /([aeioô]r)$/) |
|
522
|
0 |
729 |
if $tc > $#tense |
|
523
|
0 |
729 |
unless defined $t |
|
526
|
0 |
729 |
if chomp $_ |
|
529
|
0 |
729 |
if ($_ eq 'model') |
|
530
|
0 |
0 |
unless $_ = shift() |
|
532
|
0 |
0 |
if chomp $_ |
|
539
|
116 |
613 |
if (defined $tense{$_} or "$_" eq ',' or $p == 6) { } |
|
|
4 |
609 |
elsif ($tc == 10 and $p == 1) { } |
|
|
10 |
599 |
elsif ($tc == 9 and $p == 0) { } |
|
|
0 |
599 |
elsif ($_ eq 'etc' and $edg and $p and $x = $res{$t}[$p - 1]) { } |
|
|
0 |
599 |
elsif ($_ eq 'acc' and $root and $edg) { } |
|
542
|
0 |
116 |
!defined($tense{$_}) && "$_" ne ',' ? : |
|
544
|
1 |
115 |
if ($p == 5) |
|
550
|
10 |
106 |
if (defined $tense{$t = $_}) { } |
|
558
|
116 |
0 |
unless $p6 |
|
580
|
0 |
0 |
unless ($x =~ / $reg{$edg}{$t}[$p - 1] $/x) |
|
582
|
0 |
0 |
if ($x =~ / $reg{$e}{$t}[$p - 1] $/x) |
|
591
|
0 |
0 |
unless $p == 3 and $reg{$edg2}{$t}[$p] =~ /^i/ and $x =~ /i([$cons]{1,2}|ç|gu)$/o |
|
605
|
0 |
613 |
unless defined $tense{$t} |
|
609
|
613 |
0 |
if "$_" ne '.' |
|
612
|
0 |
13 |
if ($p == 5) |
|
642
|
0 |
0 |
ref $_[0] eq 'HASH' ? : |
|
661
|
0 |
0 |
unless $v |
|
673
|
0 |
0 |
if ($r =~ /[:=]/) |
|
674
|
0 |
0 |
if ($c eq ':') { } |
|
|
0 |
0 |
elsif ($v =~ /defectivos([1234])?/) { } |
|
684
|
0 |
0 |
unless $_ |
|
689
|
0 |
0 |
$dnum eq '3' ? : |
|
691
|
0 |
0 |
$dnum eq '3' ? : |
|
692
|
0 |
0 |
$dnum eq '3' ? : |
|
696
|
0 |
0 |
if defined $tmpmodel |
|
707
|
0 |
0 |
if (@s) |
|
737
|
0 |
0 |
if ($c eq ':') { } |
|
|
0 |
0 |
elsif ($v =~ /defectivos([1234])?/) { } |
|
742
|
0 |
0 |
unless $_ |
|
773
|
0 |
0 |
ref $_[0] eq 'HASH' ? : |
|
800
|
0 |
0 |
if ($c eq ':') |
|
815
|
0 |
0 |
unless $e =~ /$d2/ |
|
822
|
0 |
0 |
if ($#u >= 0) |
|
825
|
0 |
0 |
if ($#t >= 0) |
|
828
|
0 |
0 |
if ($w) { } |
|
829
|
0 |
0 |
defined $$verb{$v}{'model'} ? : |
|
838
|
0 |
0 |
@s ? : |
|
849
|
0 |
0 |
if "$w" |
|
862
|
0 |
0 |
if $w =~ /g[aou][^g]*$/ |
|
869
|
0 |
0 |
if $w =~ /c[aou][^c]*$/ |
|
876
|
0 |
14 |
if $w =~ /g[ei][^g]*$/ |
|
883
|
0 |
0 |
if $w =~ /c[ei][^c]*$/ |
|
897
|
0 |
0 |
if $w =~ /gu[aou][^g]*$/ |
|
911
|
0 |
0 |
if $p == 3 and $t eq 'pres' or $p == 2 and $t eq 'ivo' |
|
920
|
0 |
0 |
if $t eq 'pres' and $p == 2 || $p == 3 or $t eq 'ivo' and $p == 2 |
|
924
|
0 |
0 |
if $t eq 'imp' or $t eq 'mdp' or $t eq 'perf' and $p != 3 or $t eq 'pres' and $p == 4 |
|
934
|
24 |
0 |
unless exists $$verb{'defectivos'}{$v} |
|
936
|
0 |
0 |
unless ($v =~ /^(.*)([aeioô]r)$/) |
|
944
|
0 |
0 |
if $$verb{'defectivos'}{$v} =~ /[12]/ and defined $reg{$edg}{$t}[$p - 1] and not $reg{$edg}{$t}[$p - 1] =~ /["^$vocs"]*["$vocs"]["^$vocs"]*["$vocs"]/o || $reg{$edg}{$t}[$p - 1] =~ /["^$vocs"]*(["$vocs"])/o && ($1 eq 'i' || $1 eq 'í' || "$$verb{'defectivos'}{$v}" eq '2' && $1 eq 'e') or "$$verb{'defectivos'}{$v}" eq '4' and $p != 3 and $p != 6 or 'precaver' eq $$verb{'defectivos'}{$v} and $t eq 'pres' && $p != 4 || $t =~ /(cpres|ivo)/ or 'adequar' eq $$verb{'defectivos'}{$v} and $t =~ /c?pres/ && $p != 4 || $t eq 'ivo' |
|
975
|
0 |
11 |
ref $_[0] eq 'HASH' ? : |
|
981
|
0 |
10 |
if ($v =~ /[iaeoô]r$/) |
|
989
|
2 |
16 |
if (/q/) { } |
|
|
3 |
13 |
elsif (/v/) { } |
|
|
0 |
13 |
elsif (/r/) { } |
|
|
0 |
13 |
elsif (/c/) { } |
|
|
5 |
8 |
elsif (/s/) { } |
|
|
3 |
5 |
elsif (/h/) { } |
|
|
4 |
1 |
elsif (/l/) { } |
|
|
0 |
1 |
elsif (/o/) { } |
|
|
1 |
0 |
elsif (/x/) { } |
|
|
0 |
0 |
elsif (/i/) { } |
|
1012
|
11 |
0 |
if $v |
|
1015
|
0 |
20 |
if (ref $$cur_verb{$w} eq 'HASH') { } |
|
1021
|
17 |
3 |
($v = shift()) ? : |
|
1026
|
0 |
11 |
unless @t |
|
1036
|
8 |
3 |
if (defined $v and $v =~ /^ [1-6] $/x) { } |
|
1042
|
3 |
8 |
unless @p |
|
1057
|
0 |
11 |
if /[\"\'\^\\\~]/ |
|
1069
|
0 |
11 |
unless ($v =~ /^(.*)([aeioô]r)$/) |
|
1078
|
0 |
11 |
if ($v =~ /g[ei]r$/) { } |
|
|
0 |
11 |
elsif ($v =~ /c[ei]r$/) { } |
|
|
6 |
5 |
elsif ($v =~ /g[ao]r$/) { } |
|
|
0 |
5 |
elsif ($v =~ /çar$/) { } |
|
|
0 |
5 |
elsif ($v =~ /c[ao]r$/) { } |
|
|
0 |
5 |
elsif ($v =~ /gu[ei]r$/) { } |
|
|
0 |
5 |
elsif ($v =~ /[^g]uir$/) { } |
|
|
0 |
5 |
elsif ($v =~ /air$/) { } |
|
|
0 |
5 |
elsif ($v =~ /oer$/) { } |
|
|
0 |
5 |
elsif ($v =~ /oar$/) { } |
|
|
0 |
5 |
elsif ($v =~ /oiar$/ and $v ne 'boiar') { } |
|
|
0 |
5 |
elsif ($v =~ /(uzir|zer)$/) { } |
|
|
0 |
5 |
elsif ($v =~ /ear$/) { } |
|
1085
|
0 |
0 |
unless $v eq 'sair' |
|
1087
|
0 |
0 |
unless $v eq 'moer' |
|
1089
|
0 |
0 |
unless $v eq 'perdoar' |
|
1096
|
0 |
0 |
unless $v eq 'passear' |
|
1104
|
9 |
2 |
if ($verbose) |
|
1107
|
0 |
6 |
defined $$verb{$v}{'model'} ? : |
|
|
6 |
3 |
defined $$verb{$v} ? : |
|
|
0 |
9 |
defined $$verb{'defectivos'}{$v} ? : |
|
1115
|
9 |
0 |
if (@p != @res) |
|
1123
|
8 |
3 |
if (defined $$verb{$v}) { } |
|
1125
|
0 |
1 |
unless ($rr, $vr, $cr) = $root =~ /^ (.*) ($vpat+) ($cpat* \^?) $/ox or $root =~ /^ $cpat* \^? $/ox and $rr = $root || 1 |
|
1134
|
0 |
8 |
if (defined($m = $$verb{$v}{'model'})) |
|
1135
|
0 |
0 |
unless defined $$verb{$m} |
|
1143
|
0 |
0 |
unless (($prefix) = $v =~ /(.*)$m$/) |
|
1145
|
0 |
0 |
unless (length $em > 1 and ($prefix) = $v =~ /(.*)$em$/ and $missing = 1) |
|
1148
|
0 |
0 |
if length $em > 1 and ($prefix) = $v =~ /(.*)$em$/ |
|
1160
|
0 |
14 |
unless defined $reg{'er'}{$t} |
|
1162
|
4 |
6 |
$long ? : |
|
|
10 |
4 |
if $verbose |
|
1167
|
19 |
30 |
($w = $$verb{$v}{$t}[$p - 1]) ? : |
|
1169
|
0 |
30 |
if (not $w and $m and $y = $$verb{$m}{$t}[$p - 1]) |
|
1172
|
0 |
0 |
if ($prefix) { } |
|
1176
|
0 |
0 |
unless ($vy, $cy, $ey) = $y =~ / ($vpat+) ($cpat?) ($endg{$t}[$p - 1]) $/x |
|
1182
|
0 |
0 |
$cm eq $cy ? : |
|
1188
|
0 |
0 |
if (not $w and "$t" eq 'cpres' and ($y = $$verb{$v}{'cpres'}[0]) || $m && ($y = $$verb{$m}{'cpres'}[0])) |
|
1194
|
0 |
0 |
unless ($vy, $cy, $ey) = $y =~ / ($vpat+) ($cpat?) ($endg{'cpres'}[0]) $/x |
|
1198
|
0 |
0 |
!defined($cr) || defined $cy && $cr eq $cy ? : |
|
1210
|
0 |
49 |
if (not $w and "$t" eq 'cimp' || "$t" eq 'cfut' and ($y = $$verb{$v}{'perf'}[0]) || $m && $$verb{$m}{'perf'}[0]) { } |
|
|
0 |
49 |
elsif (not $w and "$t" eq 'ivo' and $p != 1 and $p != 5 and ($y = $$verb{$v}{'cpres'}[$p - 1]) || $m && $$verb{$m}{'cpres'}[$p - 1]) { } |
|
|
0 |
49 |
elsif (not $w and "$t" eq 'ivo' and $p != 1 and $p == 5) { } |
|
1214
|
0 |
0 |
unless ($y) |
|
1216
|
0 |
0 |
if ($prefix) { } |
|
1221
|
0 |
0 |
unless ($vy, $cy, $ey) = $y =~ / ($vpat+) ($cpat?)($endg{'perf'}[0]) $/x |
|
1225
|
0 |
0 |
$cr eq $cy ? : |
|
1231
|
0 |
0 |
if ($y =~ s/([$vocs])$//ox) |
|
1234
|
0 |
0 |
unless $z =~ s/^([\'\^\"])([$vocs])([\'\^\"]?)([$vocs])/$1$2/ox |
|
1250
|
0 |
0 |
unless ($y) |
|
1251
|
0 |
0 |
if ($prefix) { } |
|
1258
|
0 |
0 |
if ($p != 5) { } |
|
1260
|
0 |
0 |
unless ($vy, $cy, $ey) = $y =~ / ([$vocs]) ($cpat?) ($endg{'cpres'}[$p - 1]) $/x |
|
1267
|
0 |
0 |
unless ($vy, $cy) = $y =~ / ([$vocs]) ($cpat) /x |
|
1283
|
16 |
33 |
if not $w and defined $reg{$edg}{$t}[$p - 1] |
|
1286
|
14 |
2 |
if $w and not $ex and $modif |
|
1289
|
28 |
21 |
unless ($regexp or not defined $w) |
|
1294
|
0 |
49 |
if ($$verb{'defectivos'}{$v}) |
|
1304
|
0 |
0 |
if is_defectivo($verb, $v, $t, $p) |
|
1307
|
35 |
14 |
if $w |
|
1318
|
0 |
6 |
unless defined $reg{'er'}{$t} |
|
1320
|
4 |
2 |
$long ? : |
|
|
6 |
0 |
if $verbose |
|
1326
|
24 |
0 |
if (defined($s = $reg{$edg}{$t}[$p - 1])) |
|
1328
|
0 |
24 |
if $modif |
|
1330
|
0 |
24 |
if is_defectivo($verb, $v, $t, $p) |
|
1340
|
0 |
11 |
unless ($isoacc) |
|
1342
|
0 |
0 |
if ($rc ne 'h') { } |
|
1349
|
4 |
7 |
if ($rc eq 'c') { } |
|
|
0 |
7 |
elsif ($rc eq 'r') { } |
|
|
4 |
3 |
elsif ($rc eq 's') { } |
|
|
3 |
0 |
elsif ($rc eq 'h') { } |
|
1364
|
11 |
0 |
ref $_[0] eq 'HASH' ? : |
|
1369
|
5 |
6 |
if not $v or defined $$verb{$v} |
|
1373
|
0 |
6 |
if defined $$verb{$v} |
|
1376
|
3 |
3 |
if ($vlist =~ / \b$v \s* : \s* ( [^=:]+ [=:]? ) /mx) |
|
1387
|
0 |
0 |
if ($vlist =~ / \b$v \s* ([^\s=:]|\Z) /x and $` =~ / ([^\s\n]*)\s* ( = [^\:\=]*) \Z/x and not $1 =~ /^defectivos[1234]?$/) |
|
1397
|
0 |
6 |
if ($vlist =~ / defectivos([1234])?\s* ( = [^\:\=]*) \b$v \s*
([^\s=:]|\Z) /x) |
|
1402
|
0 |
0 |
$1 eq '3' ? : |
|
1404
|
0 |
0 |
$1 eq '3' ? : |
|
1419
|
0 |
4 |
unless defined $sep |
|
1422
|
0 |
4 |
unless $ncols |
|
1423
|
0 |
4 |
if $ncols < 0 |
|
1432
|
22 |
30 |
if defined $_ and $mx[$i] < ($a = length $_) |
|
1439
|
46 |
6 |
defined $_ ? : |
|
1441
|
10 |
42 |
unless $i |
|
1443
|
0 |
4 |
unless $res =~ /\n$/ |
|
1450
|
0 |
0 |
unless defined $sep |
|
1452
|
0 |
0 |
$#$l + 1 > $nrows ? : |
|
1454
|
0 |
0 |
unless $nrows |
|
1455
|
0 |
0 |
if $nrows < 0 |
|
1462
|
0 |
0 |
unless defined $_ |
|
1463
|
0 |
0 |
if defined $_ and $mx[$j] < ($a = length $_) |
|
1465
|
0 |
0 |
unless $i |
|
1472
|
0 |
0 |
unless $i |
|
1483
|
0 |
0 |
if (exists $ENV{$v} and defined $ENV{$v}) |