| 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 |