| 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') { } |
|
734
|
0 |
2 |
if ($name->{'properties'}{'type'} eq 'unknown') |
|
739
|
0 |
2 |
unless ($component_order{$name->{'properties'}{'type'}}) |
|
754
|
6 |
4 |
if ($component_vals{$component_key}) |
|
759
|
1 |
1 |
if ($name->{'comps'}{'non_matching'}) |
|
792
|
0 |
0 |
unless ($name->{'properties'}{'type'} eq 'unknown') |
|
794
|
0 |
0 |
unless ($reverse_component_order{$name->{'properties'}{'type'}}) |
|
809
|
0 |
0 |
if ($component_value) |
|
811
|
0 |
0 |
if ($component_key eq 'surname_1') |
|
833
|
0 |
2 |
if (open PREFERENCES_FH, "<$prefs_file_location") |
|
854
|
65 |
43 |
unless ($surname) |
|
861
|
0 |
43 |
if ($Lingua::EN::surname_preferences{lc $surname}) |
|
877
|
4 |
39 |
if ($surname =~ /\bMac[a-z]{2,}[^a|c|i|o|z|j]\b/i) { } |
|
|
0 |
39 |
elsif ($surname =~ /\bMc/i) { } |
|
905
|
1 |
42 |
if ($lc_prefix) |
|
945
|
2 |
1 |
if (%args) |
|
949
|
0 |
2 |
if $current_key eq 'salutation' |
|
950
|
0 |
2 |
if $current_key eq 'sal_default' |
|
951
|
2 |
0 |
if $current_key eq 'sal_type' |
|
961
|
0 |
3 |
if ($name->{'error'} or $name->{'comps'}{'precursor'} and $name->{'comps'}{'precursor'} =~ /ESTATE/) { } |
|
970
|
0 |
0 |
if ($name->{'input_string'} =~ / (AND|&) /) |
|
980
|
1 |
2 |
if ($sal_type eq 'given_name') { } |
|
|
2 |
0 |
elsif ($sal_type eq 'title_plus_surname') { } |
|
982
|
1 |
0 |
if ($component_vals{'given_name_1'}) { } |
|
985
|
0 |
1 |
if ($component_vals{'given_name_2'}) |
|
1000
|
2 |
0 |
if ($name->{'properties'}{'number'} == 1) { } |
|
|
0 |
0 |
elsif ($name->{'properties'}{'number'} == 2) { } |
|
1002
|
1 |
1 |
if ($component_vals{'title_1'}) { } |
|
1018
|
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') { } |
|
1087
|
0 |
0 |
unless ($props{'type'} eq 'unknown') |
|
1090
|
0 |
0 |
if (%comps) |
|
1095
|
0 |
0 |
if ($value and $comps{$value}) |
|
1120
|
0 |
28 |
if ($name->{'input_string'} =~ /\BPTY LTD$|\BLTD$|\BPLC$|ASSOCIATION|DEPARTMENT|NATIONAL|SOCIETY/) |
|
1132
|
0 |
28 |
if ($name->{'input_string'} =~ /^[A-Z]{2,}(\-)?[A-Z]{0,}$/) |
|
1161
|
135 |
257 |
if (defined $parsed_name->{$comp}) |
|
1182
|
109 |
26 |
if ($string) |
|
1198
|
2 |
26 |
if ($comps{'non_matching'}) { } |
|
|
0 |
26 |
elsif ($name->{'input_string'} =~ m[[^A-Za-z\-\'\.,&/ ]]) { } |
|
1211
|
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'})) { } |
|
1242
|
65 |
47 |
if (not $name) { } |
|
|
47 |
0 |
elsif ($name and $name =~ /[AEIOUYJ]|^(NG|TSZ|MD|(C?H|[PTS])NG)$/i) { } |
|
1263
|
67 |
248 |
if ($word) |