Branch Coverage

lib/Text/WagnerFischer/Armenian.pm
Criterion Covered Total %
branch 26 32 81.2


line true false branch
108 104 1754 if ($x eq $y) { }
2 1752 elsif (am_lc($x) eq am_lc($y)) { }
123 1316 436 if ($x eq '-' or $y eq '-') { }
126 108 1208 if (grep(/(\Q$x\E|\Q$y\E)/, @Prefixes) > 0) { }
130 1078 elsif (grep(/(\Q$x\E|\Q$y\E)/, @Suffixes) > 0) { }
135 156 280 if (exists $VocalicEquivalence{$x}) { }
140 8 148 grep(/$y/, @equivs) ? :
176 13 13 if (not @t) { }
0 13 elsif (ref $refcarg ne 'ARRAY') { }
178 13 0 if (ref $refcarg ne 'ARRAY') { }
180 13 0 if (ref $s ne 'ARRAY') { }
234 0 26 unless ($n)
235 0 26 unless ($m)
251 206 336 if $i == $n or $j == $m
275 0 26 if (wantarray) { }
291 158 6854 if ($char =~ /[\x{531}-\x{556}]/)