Branch Coverage

blib/lib/Lingua/Zompist/Cadhinor.pm
Criterion Covered Total %
branch 150 168 89.2


line true false branch
204 23 16 if exists $demeric{$verb}
208 16 48 if (substr($stem, -2, 2) eq $ending)
216 6 0 if ($verb =~ /[AEIOU][TDP][IE]R$/ and not exists $borrowed{$verb} and !($verb =~ /ATIR$/) || $verb eq 'CLATIR')
243 4 22 if exists $scrifel{$verb}
247 22 52 if (substr($stem, -2, 2) eq $ending)
255 4 18 if ($verb =~ /[AEIOU][TDP]EC$/ and not exists $borrowed{$verb})
274 2 117 if exists $izhcrifel{$verb}
276 36 81 if ($stem =~ s/$far/FASCER/o or $stem =~ s/([BPDTGKCFVRSZMNL]|[TDK]?H)REC$/$1$1ER/ or $stem =~ s/EC$/ER/) { }
20 61 elsif ($stem =~ s/$kes/KAIVER/o or $stem =~ s/([BPDTGKCFVRSZMNL]|[TDK]?H)RAN$/$1$1ER/ or $stem =~ s/AN$/ER/) { }
20 41 elsif ($stem =~ s/$nen/NESER/o or $stem =~ s/([BPDTGKCFVRSZMNL]|[TDK]?H)REN$/$1$1ER/ or $stem =~ s/EN$/ER/) { }
20 21 elsif ($stem =~ s/([BPDTGKCFVRSZMNL]|[TDK]?H)RER$/$1$1IR/ or $stem =~ s/ER$/IR/) { }
21 0 elsif ($stem =~ s/([BPDTGKCFVRSZMNL]|[TDK]?H)RIR$/$1$1IR/ or $stem =~ /IR$/) { }
315 1 41 if $verb eq 'ESAN'
317 2 39 if ($stem =~ s/$far/FASS/o or $stem =~ s/^CURREC$/CORS/) { }
9 30 elsif ($stem =~ s/^METTAN$/MESS/ or $stem =~ s/^DAN$/DON/ or $stem =~ s/^PU([GH])AN$/PO$1/ or $stem =~ s/^BRIGAN$/BROG/ or $stem =~ s/^SUBRAN$/SOBR/ or $stem =~ s/^LEGAN$/LOG/ or $stem =~ s/^LAUDAN$/LOD/ or $stem =~ s/^KUSAN$/KOSS/) { }
7 23 elsif ($stem =~ s/^([DKL]E|TO)SCEN$/$1SS/ or $stem =~ s/^(DES|FER)IEN$/$1S/ or $stem =~ s/^LEILEN$/LELS/ or $stem =~ s/^KETHEN$/KOTH/) { }
4 19 elsif ($stem =~ s/^([SV])ALTER$/$1ELS/ or $stem =~ s/^STERER$/STERS/ or $stem =~ s/^NOER$/NOS/) { }
5 14 elsif ($stem =~ s/^MERIR$/MERS/ or $stem =~ s/^NURIR$/NORS/ or $stem =~ s/^AMARIR$/AMERS/ or $stem =~ s/^DUCIR$/DOC/ or $stem =~ s/^IUSIR$/IOSS/) { }
6 8 elsif ($stem =~ s/EC$/ET/) { }
2 6 elsif ($stem =~ s/$kes/KAIVEM/o or $stem =~ s/AN$/EM/) { }
2 4 elsif ($stem =~ s/$nen/NESEM/o or $stem =~ s/EN$/EM/) { }
2 2 elsif ($stem =~ s/ER$/ET/) { }
2 0 elsif ($stem =~ s/IR$/ET/) { }
365 1 78 if $verb eq 'ESAN'
367 2 76 if ($stem =~ s/$far/FASS/o or $stem =~ s/^CURREC$/CORS/) { }
9 67 elsif ($stem =~ s/^METTAN$/MESS/ or $stem =~ s/^DAN$/DON/ or $stem =~ s/^PU([GH])AN$/PO$1/ or $stem =~ s/^BRIGAN$/BROG/ or $stem =~ s/^SUBRAN$/SOBR/ or $stem =~ s/^LEGAN$/LOG/ or $stem =~ s/^LAUDAN$/LOD/ or $stem =~ s/^KUSAN$/KOSS/) { }
7 60 elsif ($stem =~ s/^([DKL]E|TO)SCEN$/$1SS/ or $stem =~ s/^(DES|FER)IEN$/$1S/ or $stem =~ s/^LEILEN$/LELS/ or $stem =~ s/^KETHEN$/KOTH/) { }
4 56 elsif ($stem =~ s/^([SV])ALTER$/$1ELS/ or $stem =~ s/^STERER$/STERS/ or $stem =~ s/^NOER$/NOS/) { }
5 51 elsif ($stem =~ s/^MERIR$/MERS/ or $stem =~ s/^NURIR$/NORS/ or $stem =~ s/^AMARIR$/AMERS/ or $stem =~ s/^DUCIR$/DOC/ or $stem =~ s/^IUSIR$/IOSS/) { }
6 45 elsif ($stem =~ /EC$/) { }
2 43 elsif ($stem =~ s/$kes/KAIVIN/o or $stem =~ s/AN$/IN/) { }
2 41 elsif ($stem =~ s/$nen/NESIN/o or $stem =~ s/EN$/IN/) { }
20 21 elsif ($stem =~ s/([BPDTGKCFVRSZMNL]|[TDK]?H)RER$/$1$1IR/ or $stem =~ s/ER$/IR/) { }
21 0 elsif ($stem =~ s/([BPDTGKCFVRSZMNL]|[TDK]?H)RIR$/$1$1IR/ or $stem =~ /IR$/) { }
417 16 18 if ($stem =~ s/$far/FASS/o or $stem =~ s/^CURREC$/CORS/ or $stem =~ s/EC$//) { }
6 12 elsif ($stem =~ s/$kes/KAIV/o or $stem =~ s/^METTAN$/MESS/ or $stem =~ s/^DAN$/DON/ or $stem =~ s/^PU([GH])AN$/PO$1/ or $stem =~ s/^BRIGAN$/BROG/ or $stem =~ s/^SUBRAN$/SOBR/ or $stem =~ s/^LEGAN$/LOG/ or $stem =~ s/^LAUDAN$/LOD/ or $stem =~ s/^KUSAN$/KOSS/ or $stem =~ s/AN$//) { }
4 8 elsif ($stem =~ s/$nen/NES/o or $stem =~ s/^([DKL]E|TO)SCEN$/$1SS/ or $stem =~ s/^(DES|FER)IEN$/$1S/ or $stem =~ s/^LEILEN$/LELS/ or $stem =~ s/^KETHEN$/KOTH/ or $stem =~ s/EN$//) { }
4 4 elsif ($stem =~ s/^([SV])ALTER$/$1ELS/ or $stem =~ s/^STERER$/STERS/ or $stem =~ s/^NOER$/NOS/ or $stem =~ s/ER$//) { }
4 0 elsif ($stem =~ s/^MERIR$/MERS/ or $stem =~ s/^NURIR$/NORS/ or $stem =~ s/^AMARIR$/AMERS/ or $stem =~ s/^DUCIR$/DOC/ or $stem =~ s/^IUSIR$/IOSS/ or $stem =~ s/IR$//) { }
490 117 0 if ($stem =~ s/$far/FASC/o or $stem =~ s/$nen/NES/o or $stem =~ s/$kes/KAIV/o or $stem =~ s/(?:EC|[AE]N|[EI]R)$//) { }
494 64 53 if ($dynmood{$mood} eq 'prilise') { }
53 0 elsif ($dynmood{$mood} eq 'buprilise') { }
495 0 32 unless $dyntense{$tense} eq 'demeric' or $dyntense{$tense} eq 'scrifel' or $dyntense{$tense} eq 'izhcrifel'
498 14 50 if $dyntense{$tense} eq 'scrifel'
499 18 46 if $dyntense{$tense} eq 'izhcrifel'
502 0 23 unless $dyntense{$tense} eq 'demeric' or $dyntense{$tense} eq 'scrifel' or $dyntense{$tense} eq 'befel'
505 30 23 if ($dyntense{$tense} eq 'demeric') { }
12 11 elsif ($dyntense{$tense} eq 'scrifel') { }
11 0 elsif ($dyntense{$tense} eq 'befel') { }
524 36 0 if ($dyntense{$tense} ne 'befel' and $verb =~ /[AEIOU][TDP](?:[IE]R|[AE]N|EC)$/ and not exists $borrowed{$verb} and !($verb =~ /ATIR$/) || $verb eq 'CLATIR')
547 0 11 unless $verb =~ /(?:EC|[AE]N|[EI]R)$/
550 6 5 unless s/EC$/ILES/ or s/IR$/IC/
554 6 5 unless s/E[CR]$/EL/
558 6 5 unless s/E[CR]$/IM/
561 10 1 wantarray ? :
669 0 78 if exists $masc{$noun}
670 34 44 if exists $neut{$noun}
672 22 56 if exists $noun{$noun}
674 2 54 if ($stem =~ s/OS$//) { }
2 52 elsif ($stem =~ s/AS$//) { }
2 50 elsif ($stem =~ s/O$//) { }
2 48 elsif ($stem =~ s/U$//) { }
34 14 elsif ($type eq 'neut' and $stem =~ s/IS$//) { }
2 12 elsif ($stem =~ s/US$//) { }
6 6 elsif ($stem =~ s/A$//) { }
2 4 elsif ($stem =~ s/E$//) { }
2 2 elsif ($type eq 'fem' and $stem =~ s/IS$//) { }
2 0 elsif ($stem =~ /[PBTDHCGKFVSZMNLR]$/) { }
716 2 6 if exists $adj{$adj}
718 2 4 if ($stem =~ s/ES$//) { }
2 2 elsif ($stem =~ s/IS$//) { }
2 0 elsif ($stem =~ /[PBTDHCGKFVSZMNLR]$/) { }
747 2 6 if exists $comp{$adj}
749 2 4 if ($stem =~ s/ES$//) { }
2 2 elsif ($stem =~ s/IS$//) { }
2 0 elsif ($stem =~ /[PBTDHCGKFVSZMNLR]$/) { }
770 2 6 if exists $super{$adj}
772 2 4 if ($stem =~ s/ES$//) { }
2 2 elsif ($stem =~ s/IS$//) { }
2 0 elsif ($stem =~ /[PBTDHCGKFVSZMNLR]$/) { }
793 2 11 if exists $adv{$adj}
795 4 7 if ($stem =~ s/ES$//) { }
4 3 elsif ($stem =~ s/IS$//) { }
3 0 elsif ($stem =~ /[PBTDHCGKFVSZMNLR]$/) { }