| line |
true |
false |
branch |
|
577
|
1 |
27 |
if ($name->{'allow_reversed'} and $input_string =~ /,/) |
|
595
|
28 |
0 |
unless ($name->{'error'}) |
|
597
|
9 |
19 |
if ($name->{'auto_clean'}) |
|
636
|
0 |
35 |
if ($name->{'properties'}{'type'} eq 'unknown') { } |
|
648
|
70 |
420 |
if ($current_key =~ /initials/) { } |
|
|
105 |
315 |
elsif ($current_key =~ /surname|suffix/) { } |
|
|
0 |
315 |
elsif ($current_key eq 'type') { } |
|
735
|
0 |
2 |
if ($name->{'properties'}{'type'} eq 'unknown') |
|
740
|
0 |
2 |
unless ($component_order{$name->{'properties'}{'type'}}) |
|
755
|
6 |
4 |
if ($component_vals{$component_key}) |
|
760
|
1 |
1 |
if ($name->{'comps'}{'non_matching'}) |
|
793
|
0 |
0 |
unless ($name->{'properties'}{'type'} eq 'unknown') |
|
795
|
0 |
0 |
unless ($reverse_component_order{$name->{'properties'}{'type'}}) |
|
810
|
0 |
0 |
if ($component_value) |
|
812
|
0 |
0 |
if ($component_key eq 'surname_1') |
|
834
|
0 |
2 |
if (open PREFERENCES_FH, "<$prefs_file_location") |
|
855
|
65 |
43 |
unless ($surname) |
|
862
|
0 |
43 |
if ($Lingua::EN::surname_preferences{lc $surname}) |
|
878
|
4 |
39 |
if ($surname =~ /\bMac[a-z]{2,}[^a|c|i|o|z|j]\b/i) { } |
|
|
0 |
39 |
elsif ($surname =~ /\bMc/i) { } |
|
906
|
1 |
42 |
if ($lc_prefix) |
|
946
|
2 |
1 |
if (%args) |
|
950
|
0 |
2 |
if $current_key eq 'salutation' |
|
951
|
0 |
2 |
if $current_key eq 'sal_default' |
|
952
|
2 |
0 |
if $current_key eq 'sal_type' |
|
962
|
0 |
3 |
if ($name->{'error'} or $name->{'comps'}{'precursor'} and $name->{'comps'}{'precursor'} =~ /ESTATE/) { } |
|
971
|
0 |
0 |
if ($name->{'input_string'} =~ / (AND|&) /) |
|
981
|
1 |
2 |
if ($sal_type eq 'given_name') { } |
|
|
2 |
0 |
elsif ($sal_type eq 'title_plus_surname') { } |
|
983
|
1 |
0 |
if ($component_vals{'given_name_1'}) { } |
|
986
|
0 |
1 |
if ($component_vals{'given_name_2'}) |
|
1001
|
2 |
0 |
if ($name->{'properties'}{'number'} == 1) { } |
|
|
0 |
0 |
elsif ($name->{'properties'}{'number'} == 2) { } |
|
1003
|
1 |
1 |
if ($component_vals{'title_1'}) { } |
|
1019
|
0 |
0 |
if ($type eq 'Mr_&Ms_A_Smith' or $type eq 'Mr_A_&Ms_B_Smith' or $type eq 'Mr_&Ms_A_&B_Smith') { } |
|
|
0 |
0 |
elsif ($type eq 'Mr_A_Smith_&Ms_B_Jones' or $type eq 'Mr_John_Smith_&Ms_Mary_Jones') { } |
|
1088
|
0 |
0 |
unless ($props{'type'} eq 'unknown') |
|
1091
|
0 |
0 |
if (%comps) |
|
1096
|
0 |
0 |
if ($value and $comps{$value}) |
|
1121
|
0 |
28 |
if ($name->{'input_string'} =~ /\BPTY LTD$|\BLTD$|\BPLC$|ASSOCIATION|DEPARTMENT|NATIONAL|SOCIETY/) |
|
1133
|
0 |
28 |
if ($name->{'input_string'} =~ /^[A-Z]{2,}(\-)?[A-Z]{0,}$/) |
|
1162
|
135 |
257 |
if (defined $parsed_name->{$comp}) |
|
1183
|
109 |
26 |
if ($string) |
|
1199
|
2 |
26 |
if ($comps{'non_matching'}) { } |
|
|
0 |
26 |
elsif ($name->{'input_string'} =~ m[[^A-Za-z\-\'\.,&/ ]]) { } |
|
1212
|
0 |
28 |
if (not _valid_name($comps{'given_name_1'})) { } |
|
|
0 |
28 |
elsif (not _valid_name($comps{'middle_name'})) { } |
|
|
0 |
28 |
elsif (not _valid_name($comps{'surname_1'})) { } |
|
|
0 |
28 |
elsif (not _valid_name($comps{'surname_2'})) { } |
|
1243
|
65 |
47 |
if (not $name) { } |
|
|
47 |
0 |
elsif ($name and $name =~ /[AEIOUYJ]|^(NG|TSZ|MD|(C?H|[PTS])NG)$/i) { } |
|
1264
|
67 |
248 |
if ($word) |