| line |
true |
false |
branch |
|
481
|
1 |
1 |
if ($Lingua::EL::Poly2Mono::OLD_PERL or not is_utf8($_[0])) { } |
|
496
|
10 |
48 |
if ($thischar =~ /^$Lingua::EL::Poly2Mono::diacr$/) { } |
|
498
|
2 |
8 |
$thischar =~ /^$Lingua::EL::Poly2Mono::ui$/ && @lexis && $lexis[$#lexis] =~ /^$Lingua::EL::Poly2Mono::diphpre$/ ? : |
|
505
|
0 |
10 |
if (not $lexis[$#lexis] =~ /^$Lingua::EL::Poly2Mono::gramma$/ && scalar @lexis or $cpos < $#lexis and 2 > scalar @lexis) { } |
|
509
|
4 |
10 |
if ($lexis[$_] =~ /^$Lingua::EL::Poly2Mono::gramma$/ and not $lexis[$_] =~ /^$Lingua::EL::Poly2Mono::conson$/) { } |
|
|
0 |
10 |
elsif (not $lexis[$_] =~ /^$Lingua::EL::Poly2Mono::gramma$/) { } |
|
522
|
8 |
12 |
if ($1 =~ /^$Lingua::EL::Poly2Mono::gramma$/ and not $lll =~ /^$Lingua::EL::Poly2Mono::conson$/) { } |
|
|
2 |
10 |
elsif (not $lll =~ /^$Lingua::EL::Poly2Mono::gramma$/) { } |
|
532
|
2 |
8 |
if ($thischar =~ /^$Lingua::EL::Poly2Mono::psiliaccent_lc$/ and not $fphon and not $fsyl && $lsyl) { } |
|
|
0 |
8 |
elsif ($thischar eq "\341\277\246" and join('', @lexis) =~ /^(?:\316\240|\317\200)\316\277$/ and not $orig =~ /^$Lingua::EL::Poly2Mono::gramma/) { } |
|
|
0 |
8 |
elsif ($thischar eq "\341\277\266" and join('', @lexis) =~ /\316\240|\317\200$/ and $orig =~ /^\317\202(?!$Lingua::EL::Poly2Mono::gramma)/) { } |
|
|
0 |
8 |
elsif ($thischar =~ /^(?:\341\274\242|\341\274\244)/ and not @lexis and $orig =~ /^(?!$Lingua::EL::Poly2Mono::gramma)/) { } |
|
|
0 |
8 |
elsif ($thischar =~ /^(?:\341\275\260|\341\275\261)/ and join('', @lexis) =~ /(?:\316\223|\316\263|\316\240|\317\200)\316\271$/ and $orig =~ /^(?!$Lingua::EL::Poly2Mono::gramma)/) { } |
|
|
0 |
8 |
elsif ($thischar =~ /^(?:\341\275\270|\341\275\271)/ and join('', @lexis) =~ /(?:\316\240|\317\200)\316\271$/ and $orig =~ /^(?!$Lingua::EL::Poly2Mono::gramma)/) { } |
|
|
0 |
8 |
elsif ($fsyl and $lsyl or $prevvowel =~ /$Lingua::EL::Poly2Mono::accent/) { } |
|
|
0 |
8 |
elsif ($thischar =~ /${\join('|', keys %Lingua::EL::Poly2Mono::direm);}/ and not $lexis[$#lexis] =~ /^$Lingua::EL::Poly2Mono::diphpre$/ or $thischar =~ /\317\212|\341\277\223|\341\277\222|\341\277\227|\316\252/ and not $lexis[$#lexis] =~ /\316\221|\316\225|\316\237|\316\245|\316\261|\316\265|\316\277|\317\205/ or $thischar =~ /\317\213|\341\277\243|\341\277\242|\341\277\247|\316\253/ and not $lexis[$#lexis] =~ /\316\221|\316\225|\316\227|\316\237|\316\261|\316\265|\316\267|\316\277/) { } |
|
575
|
50 |
8 |
if ($thischar =~ /^$Lingua::EL::Poly2Mono::gramma$/) { } |