Branch Coverage

blib/lib/Lingua/EN/NameParse.pm
Criterion Covered Total %
branch 58 106 54.7


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') { }
1078 0 0 if ($name->case_all_reversed) { }
1097 0 0 unless ($props{'type'} eq 'unknown')
1100 0 0 if (%comps)
1105 0 0 if ($value and $comps{$value})
1130 0 28 if ($name->{'input_string'} =~ /\BPTY LTD$|\BLTD$|\BPLC$|ASSOCIATION|DEPARTMENT|NATIONAL|SOCIETY/)
1142 0 28 if ($name->{'input_string'} =~ /^[A-Z]{2,}(\-)?[A-Z]{0,}$/)
1171 135 257 if (defined $parsed_name->{$comp})
1192 109 26 if ($string)
1208 2 26 if ($comps{'non_matching'}) { }
0 26 elsif ($name->{'input_string'} =~ m[[^A-Za-z\-\'\.,&/ ]]) { }
1221 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'})) { }
1252 65 47 if (not $name) { }
47 0 elsif ($name and $name =~ /[AEIOUYJ]|^(NG|TSZ|MD|(C?H|[PTS])NG)$/i) { }
1273 67 248 if ($word)