| line |
true |
false |
branch |
|
51
|
11 |
38 |
defined $c ? : |
|
52
|
10 |
0 |
$m ? : |
|
72
|
0 |
3 |
unless my $count = keys %soss |
|
73
|
0 |
3 |
if 1 < $count |
|
77
|
2 |
5 |
if $$chars{$_} |
|
92
|
4 |
7 |
if $target eq $source |
|
97
|
3 |
7 |
unless $$chars{$char} |
|
99
|
3 |
4 |
if $nok |
|
103
|
2 |
3 |
if 1 == @soss - $sum |
|
115
|
0 |
146 |
unless defined $script |
|
132
|
0 |
36 |
unless my $info = charinfo(ord $char) |
|
135
|
8 |
28 |
unless length $num |
|
150
|
15 |
2 |
unless defined $non_id_regex |
|
152
|
1 |
16 |
if $str =~ /$non_id_regex/ |
|
153
|
2 |
14 |
unless $str =~ /\P{ASCII}/ |
|
157
|
1 |
13 |
if 1 == keys %soss |
|
163
|
7 |
6 |
if $highly_restrictive{$soss} |
|
165
|
6 |
0 |
if (1 == keys %soss) |
|
167
|
2 |
4 |
if $recommended_script{$script} || $aspirational_script{$script} and not $soss{'Cyrillic'} || $soss{'Greek'} |