| line |
true |
false |
branch |
|
135
|
0 |
0 |
unless my $nparse = 'Lingua::EN::NameParse'->new('auto_clean', 1, 'force_case', 1) |
|
139
|
0 |
0 |
$name{'surname_2'} ? : |
|
146
|
0 |
20 |
unless $name0 and $name1 |
|
147
|
1 |
19 |
if $name0 eq $name1 |
|
149
|
1 |
0 |
if $match = fname_eq($name1, $1) |
|
|
1 |
18 |
if ($name0 =~ /\((\w+)\)/) |
|
150
|
0 |
0 |
if $match = fname_eq($name1, $1) |
|
|
0 |
18 |
if ($name0 =~ /"(\w+)"/) |
|
151
|
0 |
0 |
if $match = fname_eq($name0, $1) |
|
|
0 |
18 |
if ($name1 =~ /\((\w+)\)/) |
|
152
|
0 |
0 |
if $match = fname_eq($name0, $1) |
|
|
0 |
18 |
if ($name1 =~ /"(\w+)"/) |
|
156
|
1 |
17 |
if $name0 eq $name1 |
|
158
|
0 |
17 |
if ($name0 =~ /\W/) { } |
|
|
1 |
16 |
elsif ($name1 =~ /\W/) { } |
|
161
|
0 |
0 |
if $match |
|
166
|
1 |
0 |
if $match |
|
171
|
2 |
14 |
if $name0 eq $name1 |
|
173
|
9 |
5 |
if $match = nickname_eq($name0, $name1) |
|
175
|
2 |
3 |
if amatch($name0, $name1) and amatch($name1, $name0) |
|
177
|
0 |
3 |
if $name0 =~ /^$name1|$name1$/ or $name1 =~ /^$name0|$name0$/ |
|
180
|
1 |
0 |
if $name1 =~ /^$_/i |
|
181
|
0 |
0 |
if $name0 =~ /^$_/i |
|
188
|
0 |
34 |
unless $name0 and $name1 |
|
189
|
3 |
31 |
if $name0 eq $name1 |
|
193
|
0 |
31 |
if $name0 eq $name1 |
|
195
|
7 |
24 |
if ($name0 =~ /-/) { } |
|
|
0 |
24 |
elsif ($name1 =~ /-/) { } |
|
198
|
7 |
0 |
if $match |
|
203
|
0 |
0 |
if $match |
|
208
|
12 |
12 |
if $name0 eq $name1 |
|
210
|
3 |
9 |
if Metaphone($name0) eq Metaphone($name1) |
|
212
|
0 |
9 |
if soundex($name0) eq soundex($name1) |
|
214
|
0 |
9 |
if amatch($name0, $name1) and amatch($name1, $name0) |
|
217
|
2 |
7 |
if $name0 =~ s/(\B[A-Z][a-z]+)/-$1/g or $name1 =~ s/(\B[A-Z][a-z]+)/-$1/g |
|
219
|
1 |
6 |
if $name0 =~ /^$name1|$name1$/i or $name1 =~ /^$name0|$name0$/i |
|
225
|
0 |
18 |
@_ < 4 ? : |
|
227
|
1 |
17 |
unless $Lrank = lname_eq($nomL0, $nomL1) |
|
228
|
1 |
16 |
unless $Frank = fname_eq($nomF0, $nomF1) |