| line |
true |
false |
branch |
|
85
|
0 |
7 |
if not /[a-z]/ and length $_ > 2 |
|
86
|
2 |
5 |
if $Lingua::EN::Nickname::match{$_} |
|
88
|
4 |
1 |
if exists $Lingua::EN::Nickname::root{$_} |
|
90
|
0 |
1 |
unless @root |
|
101
|
2 |
183 |
if $dest eq $step |
|
106
|
159 |
34 |
$Lingua::EN::Nickname::akin{$_} ? : |
|
108
|
3 |
180 |
if $match |
|
115
|
0 |
34 |
unless /[a-z]/ |
|
116
|
0 |
17 |
if $a eq $b |
|
117
|
1 |
16 |
if exists $Lingua::EN::Nickname::root{$b} and $a eq $Lingua::EN::Nickname::root{$b} |
|
118
|
2 |
14 |
if exists $Lingua::EN::Nickname::root{$a} and $b eq $Lingua::EN::Nickname::root{$a} |
|
119
|
7 |
7 |
if $regex = &nickroot($b) and $a =~ /^($regex)$/ or $regex = &nickroot($a) and $b =~ /^($regex)$/ |
|
121
|
0 |
7 |
unless $regex = nickmatch $a |
|
122
|
4 |
3 |
if $b =~ /$regex/ |
|
123
|
2 |
1 |
if $match = nickfollow($a, $b) || nickfollow($b, $a) |
|
130
|
0 |
211 |
if not /[a-z]/ and length $_ > 2 |
|
131
|
164 |
47 |
if $Lingua::EN::Nickname::match{$_} |
|
133
|
19 |
28 |
if exists $Lingua::EN::Nickname::root{$_} |
|
135
|
5 |
5 |
wantarray ? : |
|
|
10 |
18 |
if $Lingua::EN::Nickname::multi{$_} |