Branch Coverage

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


line true false branch
110 104 1754 if ($x eq $y) { }
2 1752 elsif (am_lc($x) eq am_lc($y)) { }
125 1316 436 if ($x eq '-' or $y eq '-') { }
128 108 1208 if (grep(/(\Q$x\E|\Q$y\E)/, @Prefixes) > 0) { }
130 1078 elsif (grep(/(\Q$x\E|\Q$y\E)/, @Suffixes) > 0) { }
137 156 280 if (exists $VocalicEquivalence{$x}) { }
142 8 148 grep(/$y/, @equivs) ? :
178 13 13 if (not @t) { }
0 13 elsif (ref $refcarg ne 'ARRAY') { }
180 13 0 if (ref $refcarg ne 'ARRAY') { }
182 13 0 if (ref $s ne 'ARRAY') { }
236 0 26 unless ($n)
237 0 26 unless ($m)
253 206 336 if $i == $n or $j == $m
277 0 26 if (wantarray) { }
293 158 6854 if ($char =~ /[\x{531}-\x{556}]/)