Branch Coverage

lib/Lingua/EN/Contraction.pm
Criterion Covered Total %
branch 30 40 75.0


line true false branch
87 16 6 if ($_phrase =~ /\b($modal_re|$verbs_re) ?(not)\b/i)
90 16 0 if (my $m2 = N_T($m, $n))
94 6 16 if ($_phrase =~ /($modal_re|$verbs_re) ($pronoun_re) (not)\b/i)
97 6 0 if (my $m2 = N_T($m, $n))
101 3 19 if $orig_phrase eq $_phrase
125 1 16 if $w1 =~ /$modal_re/
127 0 16 unless my $ctrct_after = $list{lc $w3}
128 1 15 unless match_any($w2, @$ctrct_after)
131 0 15 if $w3b eq $w3
135 0 15 if $_phrase eq $orig_phrase
146 15 58 if $a =~ /\b$_\b/i
155 0 22 unless $not =~ /not/i
160 0 22 $not =~ /N[oO]T/ ? :
163 3 19 if (lc $modal eq 'am') { }
1 18 elsif (lc $modal eq 'will') { }
2 16 elsif (lc $modal eq 'can') { }
0 16 elsif (lc $modal eq 'shall') { }
184 7 0 $modal eq ucfirst $modal ? :
0 7 $modal eq uc $modal ? :
12 7 $modal eq lc $modal ? :