| line |
true |
false |
branch |
|
127
|
10 |
1 |
@_ ? : |
|
129
|
4 |
7 |
if (@_ and ref $_[0] eq 'HASH') { } |
|
|
1 |
6 |
elsif (@_) { } |
|
131
|
5 |
3 |
unless exists $_[0]{$_} |
|
134
|
1 |
2 |
ref $_[0]{$_} eq 'ARRAY' ? : |
|
137
|
3 |
1 |
if $found_list |
|
144
|
7 |
4 |
unless ($found_list) |
|
154
|
16 |
1 |
if ($search_inc) { } |
|
160
|
15 |
38 |
if open $fh, $f |
|
163
|
1 |
15 |
unless defined $f |
|
170
|
0 |
1 |
unless open $fh, $file |
|
178
|
159 |
31382 |
if /^\s*(?:#|\z)/ |
|
180
|
0 |
31382 |
unless /^([^;]+);\s*([0-9a-f][0-9a-f\s]+)\z/i |
|
184
|
31382 |
0 |
unless exists $$self{'name2ord'}{$name} |
|
186
|
30813 |
569 |
if (@$codes == 1) { } |
|
188
|
26921 |
3892 |
unless exists $$self{'str2name'}{$key} |
|
192
|
331 |
238 |
unless exists $$self{'str2name'}{$key} |
|
232
|
32 |
122 |
if (exists $$self{'name2ord'}{$_}) { } |
|
|
39 |
83 |
elsif (/^uni(
(?: #non-surrogate codepoints:
[0-9A-CEF][0-9A-F]{3}
|
D[0-7][0-9A-F]{2}
)+
)\z/x) { } |
|
|
39 |
44 |
elsif (/^u(
0{0,2}[0-9A-CEF][0-9A-F]{3}
|
0{0,2}D[0-7][0-9A-F]{2}
|
(?:0?(?!0)|1(?=0))[0-9A-F]{5}
)\z/x) { } |
|
256
|
0 |
44 |
defined $str ? : |
|
260
|
97 |
44 |
defined $str ? : |
|
263
|
3 |
33 |
@ret > 1 ? : |
|
|
36 |
36 |
wantarray ? : |
|
289
|
4 |
38 |
unless $_ |
|
294
|
9 |
41 |
if (exists $$self{'name2ord'}{$_}) { } |
|
|
12 |
29 |
elsif (/^uni(
(?: #non-surrogate codepoints:
[0-9A-CEF][0-9A-F]{3}
|
D[0-7][0-9A-F]{2}
)+
)\z/x) { } |
|
|
12 |
17 |
elsif (/^u(
0{0,2}[0-9A-CEF][0-9A-F]{3}
|
0{0,2}D[0-7][0-9A-F]{2}
|
(?:0?(?!0)|1(?=0))[0-9A-F]{5}
)\z/x) { } |
|
320
|
18 |
6 |
@ret == 1 ? : |
|
347
|
20 |
16 |
if (length $_ > 1) { } |
|
|
12 |
4 |
elsif (length $_) { } |
|
348
|
4 |
16 |
if (exists $$map{$_}) { } |
|
354
|
12 |
32 |
if (exists $$map{$_}) { } |
|
|
4 |
28 |
elsif ((my $ord = ord $_) > 65535) { } |
|
|
16 |
12 |
elsif ($uni_component) { } |
|
377
|
4 |
4 |
$ord > 65535 ? : |
|
|
4 |
8 |
exists $$map{$_} ? : |
|
383
|
18 |
2 |
@ret == 1 ? : |
|
408
|
4 |
4 |
$_ > 65535 ? : |
|
|
4 |
8 |
exists $$map{$char} ? : |
|
413
|
6 |
2 |
@ret == 1 ? : |
|
435
|
4 |
16 |
if exists $$map{$str} |
|
440
|
16 |
28 |
if (exists $$map{$char}) { } |
|
|
6 |
22 |
elsif ($_ > 65535) { } |
|
|
12 |
10 |
elsif ($uni_component) { } |
|
458
|
14 |
2 |
@components ? : |
|
479
|
82 |
62 |
UNIVERSAL::isa($_[0], 'Font::GlyphNames') ? : |