| line |
true |
false |
branch |
|
139
|
0 |
0 |
unless my $nparse = 'Lingua::EN::NameParse'->new('auto_clean', 1, 'force_case', 1) |
|
143
|
0 |
0 |
$name{'surname_2'} ? : |
|
150
|
0 |
20 |
unless $name0 and $name1 |
|
151
|
1 |
19 |
if $name0 eq $name1 |
|
153
|
1 |
0 |
if $match = fname_eq($name1, $1) |
|
|
1 |
18 |
if ($name0 =~ /\((\w+)\)/) |
|
154
|
0 |
0 |
if $match = fname_eq($name1, $1) |
|
|
0 |
18 |
if ($name0 =~ /"(\w+)"/) |
|
155
|
0 |
0 |
if $match = fname_eq($name0, $1) |
|
|
0 |
18 |
if ($name1 =~ /\((\w+)\)/) |
|
156
|
0 |
0 |
if $match = fname_eq($name0, $1) |
|
|
0 |
18 |
if ($name1 =~ /"(\w+)"/) |
|
160
|
1 |
17 |
if $name0 eq $name1 |
|
162
|
0 |
17 |
if ($name0 =~ /\W/) { } |
|
|
1 |
16 |
elsif ($name1 =~ /\W/) { } |
|
165
|
0 |
0 |
if $match |
|
170
|
1 |
0 |
if $match |
|
175
|
2 |
14 |
if $name0 eq $name1 |
|
177
|
9 |
5 |
if $match = nickname_eq($name0, $name1) |
|
179
|
2 |
3 |
if amatch($name0, $name1) and amatch($name1, $name0) |
|
181
|
0 |
3 |
if $name0 =~ /^$name1|$name1$/ or $name1 =~ /^$name0|$name0$/ |
|
184
|
1 |
0 |
if $name1 =~ /^$_/i |
|
185
|
0 |
0 |
if $name0 =~ /^$_/i |
|
192
|
0 |
34 |
unless $name0 and $name1 |
|
193
|
3 |
31 |
if $name0 eq $name1 |
|
197
|
0 |
31 |
if $name0 eq $name1 |
|
199
|
7 |
24 |
if ($name0 =~ /-/) { } |
|
|
0 |
24 |
elsif ($name1 =~ /-/) { } |
|
202
|
7 |
0 |
if $match |
|
207
|
0 |
0 |
if $match |
|
212
|
12 |
12 |
if $name0 eq $name1 |
|
214
|
3 |
9 |
if Metaphone($name0) eq Metaphone($name1) |
|
216
|
0 |
9 |
if soundex($name0) eq soundex($name1) |
|
218
|
0 |
9 |
if amatch($name0, $name1) and amatch($name1, $name0) |
|
221
|
2 |
7 |
if $name0 =~ s/(\B[A-Z][a-z]+)/-$1/g or $name1 =~ s/(\B[A-Z][a-z]+)/-$1/g |
|
223
|
1 |
6 |
if $name0 =~ /^$name1|$name1$/i or $name1 =~ /^$name0|$name0$/i |
|
229
|
0 |
18 |
@_ < 4 ? : |
|
231
|
1 |
17 |
unless $Lrank = lname_eq($nomL0, $nomL1) |
|
232
|
1 |
16 |
unless $Frank = fname_eq($nomF0, $nomF1) |