| line |
true |
false |
branch |
|
129
|
26 |
0 |
defined $params{'verb'} ? : |
|
135
|
2 |
24 |
defined $params{'modal'} ? : |
|
136
|
1 |
25 |
defined $params{'passive'} ? : |
|
137
|
3 |
23 |
defined $params{'allow_contractions'} ? : |
|
138
|
1 |
25 |
defined $params{'no_pronoun'} ? : |
|
141
|
0 |
26 |
unless ($modal =~ /$modal_re/) |
|
146
|
2 |
24 |
defined $params{'question'} ? : |
|
147
|
8 |
18 |
defined $params{'negation'} ? : |
|
151
|
0 |
24 |
if (ref $params{'pronoun'} or ref $params{'tense'} or not defined $params{'pronoun'} or not defined $params{'tense'}) |
|
158
|
0 |
0 |
defined $params{'tense'} ? : |
|
|
2 |
0 |
ref $params{'tense'} ? : |
|
168
|
0 |
2 |
defined $params{'pronoun'} ? : |
|
|
2 |
2 |
ref $params{'pronoun'} ? : |
|
171
|
0 |
18 |
unless defined _conj($inf, $t, $p) |
|
176
|
1 |
1 |
if (wantarray) { } |
|
202
|
2 |
76 |
if (match_any($inf, ('should', 'could', 'would', 'can', 'shall', 'will', 'may', 'might', 'must'))) |
|
203
|
1 |
1 |
unless $tense eq 'present' |
|
205
|
58 |
19 |
unless ($inf =~ /$modal_re/) |
|
206
|
1 |
2 |
if ($tense eq 'present' and defined $negation || $question and not defined $passive) |
|
209
|
2 |
4 |
if ($tense eq 'past' and defined $negation || $question and not defined $passive) |
|
214
|
0 |
77 |
if ($tense eq 'conjunctive_present' and defined $negation) |
|
219
|
1 |
76 |
$passive ? : |
|
221
|
0 |
77 |
unless my $pattern = $Lingua::EN::Conjugate::tense_patterns{$active_passive}{$tense}[$question] |
|
223
|
1 |
76 |
if ($no_pronoun) |
|
230
|
0 |
77 |
if ($pattern eq 'N/A') |
|
238
|
10 |
67 |
if ($pattern =~ /PRESENT/) { } |
|
|
1 |
66 |
elsif ($pattern =~ /IMPERATIVE/) { } |
|
|
6 |
60 |
elsif ($pattern =~ /PAST/) { } |
|
|
25 |
35 |
elsif ($pattern =~ /INF/) { } |
|
239
|
0 |
10 |
unless my $p = PRESENT($inf, $s_form, $pronoun) |
|
243
|
0 |
1 |
unless my $i = IMPERATIVE($inf, $negation, $pronoun) |
|
248
|
0 |
6 |
$inf =~ /^be$/ ? : |
|
252
|
0 |
25 |
unless defined $inf |
|
256
|
8 |
69 |
if ($negation) { } |
|
258
|
5 |
3 |
if ($negation eq 'n_t') |
|
266
|
2 |
75 |
if ($allow_contractions) |
|
280
|
0 |
1 |
if ($pronoun =~ /we/i) { } |
|
|
1 |
0 |
elsif ($pronoun =~ /you/i) { } |
|
282
|
0 |
0 |
if (defined $negation) |
|
289
|
1 |
0 |
if ($negation) { } |
|
305
|
27 |
775 |
if $a =~ /\b$_\b/i |
|
315
|
7 |
3 |
if ($inf =~ /^be$/i) |
|
316
|
1 |
2 |
if ($inf =~ /^have$/i) |
|
317
|
1 |
1 |
if (defined $s_form and match_any($pronoun, ('he', 'she', 'it'))) |
|
325
|
3 |
9 |
if ($pronoun eq 'I') |
|
327
|
6 |
3 |
if (match_any($pronoun, ('he', 'she', 'it'))) |
|
334
|
15 |
13 |
if (match_any($pronoun, ('I', 'he', 'she', 'it'))) |
|
341
|
2 |
0 |
if (match_any($pronoun, ('he', 'she', 'it'))) |
|
347
|
1 |
0 |
if (match_any($pronoun, ('he', 'she', 'it'))) |
|
358
|
0 |
0 |
ref $params{'pronoun'} ? : |
|
|
0 |
0 |
defined $params{'pronoun'} ? : |
|
368
|
0 |
0 |
$tense < scalar @_tenses ? : |
|
371
|
0 |
0 |
if defined $t2 |
|
375
|
0 |
0 |
defined $$conjugs{$t1}{$pronoun} ? : |
|
379
|
0 |
0 |
defined $t2 && defined $$conjugs{$t2}{$pronoun} ? : |
|
392
|
0 |
0 |
unless defined $fill |
|
410
|
20 |
86 |
if ($stem =~ /[bcdfghjklmnpqrstvwxyz][aeiou][bcdfghjklmnpqrstv]$/) |
|
419
|
8 |
12 |
unless $Lingua::EN::Conjugate::no_double{$stem} |
|
428
|
64 |
28 |
if defined $Lingua::EN::Conjugate::irreg{$inf} |
|
445
|
65 |
14 |
if defined $Lingua::EN::Conjugate::irreg{$inf} |
|
467
|
13 |
69 |
if ($inf eq 'be') { } |
|
|
1 |
68 |
elsif ($inf eq 'do') { } |
|
|
3 |
65 |
elsif ($inf eq 'have') { } |
|
|
4 |
61 |
elsif ($inf =~ /$modal_re/) { } |
|
|
46 |
15 |
elsif ($inf =~ /[ho]$|ss$/) { } |
|
|
1 |
14 |
elsif ($inf =~ /[bcdfghjklmnpqrstvwxyz]y$/) { } |
|
736
|
0 |
354 |
unless /\w/ |