Branch Coverage

blib/lib/Lingua/Zompist/Cuezi.pm
Criterion Covered Total %
branch 47 250 18.8


line true false branch
1390 0 0 if ($verb eq 'esc')
1412 0 0 unless defined $table
1416 0 0 if $orig eq 'esc'
1420 0 0 unless $$info{'mood'} eq 'definite' and $$info{'tense'} eq 'present' || $$info{'tense'} eq 'past'
1439 0 0 if $verb eq 'esc'
1449 0 0 unless defined $table
1475 0 0 unless defined $table
1478 0 0 if ($$info{'voice'} eq 'active') { }
0 0 elsif ($$info{'voice'} eq 'passive') { }
1499 0 0 if $verb eq 'esc'
1509 0 0 unless defined $table
1514 0 0 unless s/^(?:[aeiou]|\304\201|\304\223|\304\253|\305\215|\305\253|\303\242|\303\252|\303\256|\303\264|\303\273)/o/
1518 0 0 if $verb eq "xu\303\252si"
1529 0 0 if ($verb eq 'esc')
1546 0 0 if ($$info{'aspect'} eq 'perfect') { }
0 0 elsif ($$info{'aspect'} eq 'imperfect') { }
1548 0 0 if ($verb eq "ogon\303\256" or $verb eq "om\303\256" or $verb eq "on\303\256") { }
1576 0 0 unless defined $table
1578 0 0 if ($$info{'aspect'} eq 'perfect') { }
0 0 elsif ($$info{'aspect'} eq 'imperfect') { }
1581 0 0 if ($$info{'voice'} eq 'active')
1588 0 0 if ($$info{'voice'} eq 'active') { }
0 0 elsif ($$info{'voice'} eq 'passive') { }
1614 0 0 unless $verb eq "ogon\303\256" or $verb eq "om\303\256" or $verb eq "on\303\256" or $verb eq "\304\223xl\303\273rt\303\273"
1622 0 0 if ($verb ne "\304\223xl\303\273rt\303\273")
1624 0 0 unless s/^(?:[aeiou]|\304\201|\304\223|\304\253|\305\215|\305\253|\303\242|\303\252|\303\256|\303\264|\303\273)/o/
1626 0 0 if /(?:\304\201|\304\223|\304\253|\305\215|\305\253)/
1628 0 0 if $verb eq "xu\303\252si" or $verb eq "baxu\303\252si"
1633 0 0 if ($verb eq 'esc') { }
0 0 elsif ($verb eq "\304\223xl\303\273rt\303\273") { }
1640 0 0 if /(?:\304\201|\304\223|\304\253|\305\215|\305\253)/
1646 0 0 if ($verb ne "\304\223xl\303\273rt\303\273" and $verb ne "ogon\303\256" and $verb ne "om\303\256" and $verb ne "on\303\256")
1658 0 0 if ($verb ne "\304\223xl\303\273rt\303\273")
1660 0 0 unless s/^ogon\303\256$/obagon\303\256/ or s/^om\303\256$/obam\303\256/ or s/^on\303\256$/oban\303\256/
1665 0 0 if /(?:\304\201|\304\223|\304\253|\305\215|\305\253)/
1667 0 0 if $verb eq "xu\303\252si" or $verb eq "baxu\303\252si"
1671 0 0 wantarray ? :
1689 0 0 if $verb eq 'esc'
1691 0 0 if ($verb eq "ogon\303\256" or $verb eq "om\303\256" or $verb eq "on\303\256" or $verb eq "\304\223xl\303\273rt\303\273") { }
1702 0 0 unless s/^b/amb/ or s/^e/\304\223/ or s/^\303\252/\304\223/
1704 0 0 if (/$altere(?:eto)$/o and not /(?:$vcirc|$consonant)(?:$altere)(?:eto)$/o)
1714 0 0 if ($verb eq "\304\223xl\303\273rt\303\273" or $verb eq 'esc') { }
1719 0 0 unless s/^(?:[aeiou]|\304\201|\304\223|\304\253|\305\215|\305\253|\303\242|\303\252|\303\256|\303\264|\303\273)/o/
1722 0 0 if (/$altere(?:elo)$/o and not /(?:$vcirc|$consonant)(?:$altere)(?:elo)$/o)
1727 0 0 if $verb eq "xu\303\252si" or $verb eq "baxu\303\252si"
1731 0 0 if ($verb eq "ogon\303\256" or $verb eq "om\303\256" or $verb eq "on\303\256" or $verb eq "\304\223xl\303\273rt\303\273") { }
1742 0 0 unless s/^b/amb/ or s/^e/\304\223/ or s/^\303\252/\304\223/
1749 0 0 if ($$agent[0] =~ /([syc])(?:as)$/ and exists $rootchange{$1}{$verb})
1755 0 0 if ($$agent[1] =~ /$altere(?:ei)$/o and not $$agent[1] =~ /(?:$vcirc|$consonant)(?:$altere)(?:ei)$/o)
1761 0 0 if ($verb eq "ogon\303\256" or $verb eq "om\303\256" or $verb eq "on\303\256") { }
1771 0 0 unless s/^b/amb/ or s/^e/\304\223/ or s/^\303\252/\304\223/ or s/^\304\223/\304\223/
1773 0 0 if (/([syc])(?:\305\253zo)$/ and exists $rootchange{$1}{$verb})
1781 0 0 wantarray ? :
1865 0 9 if exists $masc{$noun} or exists $aetas{$noun}
1866 0 9 if exists $neut{$noun}
1868 6 3 if exists $noun{$noun}
1871 1 2 if ($stem =~ /[pbtdcgfvzxmnlr]$/) { }
0 2 elsif ($type eq 'masc' and $stem =~ s/re$//) { }
0 2 elsif ($type eq 'masc' and $stem =~ s/([nld])?e$/$1/) { }
0 2 elsif ($type eq 'masc' and $stem =~ s/\304\223$//) { }
0 2 elsif ($stem =~ s/os$//) { }
0 2 elsif (exists $aetas{$noun} and $stem =~ s/as$//) { }
0 2 elsif (exists $aetas{$noun} and $stem =~ s/\304\201s$//) { }
0 2 elsif ($stem =~ s/as$//) { }
0 2 elsif ($stem =~ s/iu$//) { }
0 2 elsif ($stem =~ s/\304\201u$//) { }
1 1 elsif ($stem =~ s/u$//) { }
0 1 elsif ($stem =~ s/o$//) { }
1 0 elsif ($stem =~ s/a$//) { }
0 0 elsif ($stem =~ s/\303\242$//) { }
0 0 elsif ($stem =~ s/\304\201$//) { }
0 0 elsif ($type eq 'fem' and $stem =~ s/e$//) { }
0 0 elsif ($type eq 'fem' and $stem =~ s/\303\252$//) { }
0 0 elsif ($type eq 'fem' and $stem =~ s/\304\223$//) { }
0 0 elsif ($stem =~ s/i$//) { }
1932 1 2 if ($type eq 'masc') { }
1 1 elsif ($type eq 'neut') { }
1 0 elsif ($type eq 'fem') { }
1936 0 12 if (/$alteri(?:i(?:\304\223|i|[nt]u|co)?)$/o and not /(?:$vlong|$vcirc|$consonant)(?:$alteri)(?:i(?:\304\223|i|[nt]u|co)?)$/o)
1940 0 12 if (/$altere(?:ex)$/o and not /(?:$vlong|$vcirc|$consonant)(?:$altere)(?:ex)$/o)
1947 0 1 if ($noun =~ /vas$/)
1954 0 1 if ($noun =~ /zos$/)
1971 0 12 if (/$alteri(?:\304\253(?:[nt]a|co)?)$/o and not /(?:$vlong|$vcirc|$consonant)(?:$alteri)(?:\304\253(?:[nt]a|co)?)$/o)
1975 0 12 if (/$altere(?:ex)$/o and not /(?:$vlong|$vcirc|$consonant)(?:$altere)(?:ex)$/o)
1983 0 1 if ($noun =~ /iu$/)
1988 0 0 if (/($altered)(?:u\304\223|\305\253(?:[nt]a|co)?)$/o and exists $rootchange{$1}{$noun})
1996 1 0 if ($noun =~ /a$/) { }
0 0 elsif ($noun =~ /i$/) { }
1998 0 6 if (/$altere(?:e\304\223|\304\223(?:[nl]u|di)?)$/o and not /(?:$vlong|$vcirc|$consonant)(?:$altere)(?:e\304\223|\304\223(?:[nl]u|di)?)$/o)
2011 0 0 if (/($altered)(?:a\304\223|\304\201(?:[nl]u|di)?)$/o and exists $rootchange{$1}{$noun})
2030 0 0 if exists $masc{$noun}
2031 0 0 if exists $neut{$noun}
2033 0 0 if exists $root{$noun}
2036 0 0 if ($stem =~ /[pbtdcgfvzxmnlr]$/) { }
0 0 elsif ($type eq 'masc' and $stem =~ s/e$//) { }
0 0 elsif ($stem =~ s/os$//) { }
0 0 elsif (exists $aetas{$noun} and $stem =~ s/as$//) { }
0 0 elsif ($stem =~ s/as$//) { }
0 0 elsif ($stem =~ s/iu$//) { }
0 0 elsif ($stem =~ s/u$//) { }
0 0 elsif ($stem =~ s/o$//) { }
0 0 elsif ($stem =~ s/\304\201u$//) { }
0 0 elsif ($stem =~ s/a$// or $stem =~ s/\303\242$// or $stem =~ s/\304\201$//) { }
0 0 elsif ($type eq 'fem' and $stem =~ s/e$//) { }
0 0 elsif ($stem =~ s/i$//) { }
2075 0 0 if (/$alteri(?:i-)$/o and not /(?:$vcirc|$consonant)(?:$alteri)(?:i-)$/o)
2079 0 0 if (/$altere(?:e-)$/o and not /(?:$vcirc|$consonant)(?:$altere)(?:e-)$/o)
2085 0 0 if (/([syc])[aou]-$/ and exists $rootchange{$1}{$noun})
2103 0 1 if exists $adj{$adj}
2105 1 0 if ($stem =~ s/o$//) { }
0 0 elsif ($stem =~ s/e$//) { }
0 0 elsif ($stem =~ s/\303\252$//) { }
0 0 elsif ($stem =~ s/i$//) { }
2139 0 9 if exists $comp{$adj}
2141 3 6 if ($stem =~ s/o$//) { }
3 3 elsif ($stem =~ s/e$//) { }
3 0 elsif ($stem =~ s/i$//) { }
2142 2 1 if ($stem =~ /$vlong/o) { }
2148 2 1 if ($stem =~ /$vlong/o) { }
2154 1 2 if ($stem =~ /$vlong/o) { }
2174 0 0 if exists $comb{$adj}
2176 0 0 if ($stem =~ /o$/) { }
0 0 elsif ($stem =~ s/e$//) { }
0 0 elsif ($stem =~ /i$/) { }
2202 0 0 unless ref $_[0]