| line |
true |
false |
branch |
|
43
|
1 |
0 |
unless defined $args |
|
60
|
0 |
0 |
if (defined $new and ref $new eq ref []) |
|
88
|
1 |
0 |
if (grep {$_ eq $sType;} @{$sTypes{$sPos};}) |
|
101
|
1 |
3 |
if (grep {$_ eq $key;} keys %sTypes) { } |
|
|
1 |
2 |
elsif (grep {grep {$_ eq $key;} @{$sTypes{$_};};} keys %sTypes) { } |
|
124
|
0 |
2 |
unless ($sPos) |
|
140
|
14 |
36 |
if ($sPos eq 'n' and $sType eq 'plural' or $sPos eq 'v' and $sType eq 'present_3rd_person') { } |
|
|
10 |
26 |
elsif ($sPos eq 'v' and $sType eq 'past_tense' or $sPos eq 'v' and $sType eq 'past_participle') { } |
|
|
11 |
15 |
elsif ($sPos eq 'v' and $sType eq 'present_participle') { } |
|
|
3 |
12 |
elsif ($sPos eq 'adj' and $sType eq 'comparative') { } |
|
|
4 |
16 |
elsif ($sPos eq 'adj' and $sType eq 'superlative') { } |
|
147
|
0 |
14 |
if $self->is_special_cased('sis') |
|
148
|
14 |
0 |
if $self->is_special_cased('s') |
|
149
|
14 |
0 |
if $self->is_special_cased('y') |
|
150
|
14 |
0 |
if $self->is_special_cased('woman') and not $sInf =~ /^[[:upper:]]/ |
|
151
|
14 |
0 |
if $self->is_special_cased('woman') |
|
152
|
14 |
0 |
if $self->is_special_cased('man') and not $sInf =~ /^[[:upper:]]/ |
|
153
|
14 |
0 |
if $self->is_special_cased('man') |
|
154
|
14 |
0 |
if $self->is_special_cased('person') and not $sInf =~ /^[[:upper:]]/ |
|
155
|
14 |
0 |
if $self->is_special_cased('person') |
|
156
|
14 |
0 |
if $self->is_special_cased('child') and not $sInf =~ /^[[:upper:]]/ |
|
157
|
14 |
0 |
if $self->is_special_cased('child') |
|
166
|
10 |
0 |
if $self->is_special_cased('e') |
|
167
|
10 |
0 |
if $self->is_special_cased('y') |
|
175
|
11 |
0 |
if $self->is_special_cased('e') |
|
183
|
0 |
3 |
if ($sW =~ /$three_syllables/) { } |
|
190
|
3 |
0 |
if $self->is_special_cased('e') |
|
191
|
3 |
0 |
if $self->is_special_cased('y') |
|
198
|
1 |
3 |
if ($sW =~ /$three_syllables/) { } |
|
205
|
3 |
0 |
if $self->is_special_cased('y') |
|
206
|
3 |
0 |
if $self->is_special_cased('e') |
|
220
|
0 |
22 |
unless ($sPos) |
|
225
|
2 |
20 |
if defined $$self{'irregular'}{$sW}{$sPos}{$sType} |
|
233
|
20 |
2 |
unless (defined $sInf) |
|
250
|
14 |
10 |
if ($sPos eq 'v') { } |
|
|
0 |
10 |
elsif ($sPos eq 'n' and $sTokens[-1] =~ /^O['\x{2019}]/ and defined $sTokens[-2] and $self->is_special_cased(q[O'])) { } |
|
|
0 |
10 |
elsif ($sPos eq 'n' and $sTokens[-1] =~ /^[Gg]eneral/ and defined $sTokens[-2] and $self->is_special_cased('general')) { } |
|
|
0 |
10 |
elsif ($sPos eq 'n' and $sTokens[-1] =~ /(.*)-in-law/ and $self->is_special_cased('-in-law')) { } |
|
|
0 |
10 |
elsif ($sPos eq 'n' and $sTokens[-1] eq 'law' and defined $sTokens[-2] and $sTokens[-2] eq 'in' and defined $sTokens[-3] and $self->is_special_cased('-in-law')) { } |
|
|
1 |
9 |
elsif ($sPos eq 'n' and defined $sTokens[-3] and $sTokens[-2] =~ /\bof\b/ and $self->is_special_cased('of')) { } |
|
|
0 |
9 |
elsif ($sPos eq 'n' and defined $sTokens[-4] and $sTokens[-3] =~ /\bof\b/ and $sTokens[-2] =~ /\bthe\b/ and $self->is_special_cased('of')) { } |
|
|
0 |
9 |
elsif ($sPos eq 'n' and defined $sTokens[-3] and $sTokens[-2] =~ /\bin\b/ and $self->is_special_cased('in')) { } |
|
|
0 |
9 |
elsif ($sPos eq 'n' and defined $sTokens[-4] and $sTokens[-3] =~ /\bin\b/ and $sTokens[-2] =~ /\bthe\b/ and $self->is_special_cased('in')) { } |
|
|
5 |
4 |
elsif ($sPos eq 'n') { } |
|
|
2 |
2 |
elsif ($sPos eq 'adj' and $#sTokens == 0) { } |
|
|
1 |
1 |
elsif ($sPos eq 'adj' and $$args{'type'} eq 'comparative') { } |
|
|
1 |
0 |
elsif ($sPos eq 'adj' and $$args{'type'} eq 'superlative') { } |
|
324
|
3 |
1 |
if (defined $sPos) { } |
|
347
|
2 |
0 |
unless defined $$args{'w'} |