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 ? : |