| line |
true |
false |
branch |
|
38
|
5 |
15 |
unless eval {
do {
checkstring($string)
}
} |
|
41
|
3 |
12 |
if ($string =~ /^\p{Letter}\p{NonspacingMark}*$/) { } |
|
51
|
4 |
8 |
$string =~ s/^(\p{Letter}\p{NonspacingMark}*)[\x{0301}\x{030C}]+/$1/g ? : |
|
53
|
3 |
9 |
$string =~ s/(\p{Letter}\p{NonspacingMark}*)[\x{0300}\x{030C}]+(\p{NonspacingMark}*)$/$1$2/g ? : |
|
72
|
1 |
19 |
if ($string eq '') { } |
|
|
1 |
18 |
elsif ($string =~ /^`\p{Letter}$chartypes{'notgrave'}*\x{0300}/ and $string =~ /\p{Letter}$chartypes{'notacute'}*\x{0301}$chartypes{'notacute'}*´$/ or $string =~ /^`\p{Letter}$chartypes{'notcaron'}*\x{030C}$chartypes{'notcaron'}*´$/) { } |
|
|
2 |
16 |
elsif (not $string =~ /^\p{Letter}/) { } |
|
|
1 |
15 |
elsif (not $string =~ /\p{Letter}\p{NonspacingMark}*$/) { } |