Branch Coverage

blib/lib/Lingua/PT/Conjugate.pm
Criterion Covered Total %
branch 131 356 36.8


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})