our $VERSION = '1.00';
my %info = (
+ # prepare presentational string for some control(lish) entries
"\xAD" => {string => '-'},
"\x{200E}" => {string => '→'},
"\x{200F}" => {string => '←'},
+ "\x{200B}" => {string => '␣'},
+ "\x{200C}" => {string => '|'}, # ISO-9995-7-081 lookalike (alt: ∣ ⊺ ⟙)
+ "\x{200D}" => {string => '⁀'}, # join (alt: ∤ |ͯ ⨝)
);
$info{chr $_} //= {} for 32 .. 126;
}
# output perl code of hash
+say "# automatically generated by $0";
say 'use utf8;';
say '+{';
for my $cp (sort keys %info) {