use 5.014;
use warnings;
+use utf8;
+{
default => [qw( u+0-27F utf8+realsize iso-8859-1 iso-8859-15 cp1252 cp437 cp850 )],
11 => 'thai',
'ascii' => {inherit => ['' => '00-7F']},
- 'cp437' => {inherit => ['cp850' => 0, 'ascii' => '00-1F+80']}, # ascii range overridden later
+ 'cp437' => {
+ inherit => ['cp850' => 0, 'ascii' => '00-1F+80'], # ascii range overridden later
+ replace => {
+ 0 => ' ☺☻♥♦♣♠•◘○◙♂♀♪♫☼►◄↕‼¶§▬↨↑↓→←∟↔▲▼', # visible variants of control characters
+ 0xED => 'ϕ', # non-greek usage and appearance
+ },
+ },
'gsm0338' => {inherit => ['ascii' => '00-7F']},
'dingbats' => {inherit => ['' => '20-7F+A0']},
'macdingbats' => {inherit => ['dingbats' => '80-9F']},
'adobezdingbat'=> {inherit => ['MacDingbats' => '80-9F']}, # should be identical but maps to private use
- 'symbol' => {inherit => ['' => '20-7F+A0']},
+ 'symbol' => {
+ inherit => ['' => '20-7F+A0'],
+ replace => {
+ 0x60 => '│', # replace radical extender by closest unicode equivalent
+ 0xBD => '⏐⎯', # arrow extenders
+ 0xD2 => '®©™', # serif variants
+ 0xE0 => '◊', # replace lookalike, should match AdobeSymbol
+ 0xE2 => '®©™', # sans-serif variants
+ 0xE6 => '⎛⎜⎝⎡⎢⎣⎧⎨⎩⎪',
+ 0xF0 => '€',
+ 0xF4 => '⎮⌡⎞⎟⎠⎤⎥⎦⎫⎬⎭',
+ },
+ },
'adobesymbol' => {inherit => ['symbol' => '20-7F+A0', '' => '20-7F+A0']}, # minor differences, irrelevant except for different '€'
'wingdings' => {inherit => ['' => '20'], setup => sub {require Encode::Wingdings}},
'wingdings2' => {inherit => ['' => '20'], setup => sub {require Encode::Wingdings2}},