Branch Coverage

blib/lib/Lingua/NameUtils.pm
Criterion Covered Total %
branch 102 102 100.0


line true false branch
729 8631 2 @_ ? :
730 2944 5689 @_ ? :
734 6 8627 unless defined $name
753 7743 884 if ($mode ne "given")
776 6681 1062 if $mode eq "family" or index($name, ",") != -1
777 312 7431 if $name =~ / v$apostrophe| ha$hyphen(?:Kohein|Levi|Rav)\b/u
779 583 7160 if ($mode eq "full" and %namecase_exceptions_full)
782 234 349 if exists $namecase_exceptions_full{$kcfull}
785 108 1804 if ($mode eq "family" and defined $given_names and %fnamecase_exceptions_full)
788 50 58 if exists $fnamecase_exceptions_full{$kcfull}
795 5831 2796 if ($mode eq "full")
798 4803 1028 if $has_comma
799 1028 4803 unless $has_comma
804 36 8591 if ($need_case_update)
819 884 2 @_ ? :
828 1824 2 @_ ? :
839 4 36 unless defined $name
842 2 34 unless length $name
847 26 8 if ($has_comma) { }
885 3867 2 @_ ? :
889 2 3867 unless defined $name
890 6 3861 unless length $name
899 125 3736 if exists $namesplit_exceptions{$kcname}
903 1825 2036 if index($name, ",") != -1
907 2 2034 unless %split_starter
908 2 2034 unless $split_starter_re
912 2 2034 unless (scalar %family_names_ck)
921 2 2034 unless (scalar %family_names_ck_roman)
931 2 2034 unless (scalar %family_names_v_roman)
940 56 1980 if defined $g
943 16 1964 if defined $g
948 96 1868 if @words < 2 and not $name =~ /^[\p{Han}\p{Hangul}\p{Hiragana}\p{Katakana}]+$/u
953 702 1378 unless exists $split_starter{$kcstarter}
954 24 1354 if $kcstarter eq $kcben and not $name =~ / v$apostrophe| ha$hyphen(?:Kohein|Levi|Rav)\b/iu
955 12 1342 if $kcstarter eq $kcbean and not $name =~ /\b$kcbean (?:U\355|Ui|Mhic)\b/iu
956 12 1330 if $i == $#words
958 24 1306 if $i > 1 and $kcstarter =~ /^[yi]$/iu
966 44 494 if defined $g
979 28 466 if defined $g
982 12 454 if defined $g
986 34 420 if ($name =~ /^[\p{Han}\p{Hiragana}\p{Katakana}]+$/u)
988 1 33 unless ($ja_loaded)
1010 4 43 unless defined $name
1013 2 41 unless length $name
1016 2 39 unless $has_comma
1020 7 32 if ("$f$g" =~ /^[\p{Han}\p{Hangul}\p{Hiragana}\p{Katakana}]+$/u) { }
1044 1769 2 @_ ? :
1046 8 1763 unless defined $name and length $name
1055 12585 2 @_ ? :
1057 2 12585 unless defined $name
1079 9 2 if defined $keys_namecase_exceptions