| line |
true |
false |
branch |
|
56
|
20 |
255 |
unless my($code, $ucode) = / 0x ([0-9A-F]{2}) \s+ 0x ([0-9A-F]{4}) /msx |
|
63
|
255 |
12033 |
if exists $codepage{$chr} |
|
64
|
16 |
12017 |
if exists $CMAP{$chr} |
|
67
|
11487 |
530 |
unless exists $codepage{$nfd} |
|
79
|
2 |
8 |
if exists $codepage{$char} |
|
80
|
5 |
3 |
if exists $CMAP{$char} |
|
81
|
1 |
2 |
if $INCOMPATIBLE_CHAR_MODE eq 'skip' |
|
82
|
1 |
1 |
if $INCOMPATIBLE_CHAR_MODE eq 'default_char' |
|
83
|
0 |
1 |
if $INCOMPATIBLE_CHAR_MODE eq 'pass' |
|
85
|
1 |
0 |
if (my $name = charnames::viacode(ord $char)) |
|
113
|
7 |
0 |
print({$handle;} $out) ? : |