package Encode::Wingdings;
use 5.014;
+no strict 'refs';
use warnings;
use utf8;
🡪 🡩 🡫 🡬 🡭 🡯 🡮 🡸 🡺 🡹 🡻 🡼 🡽 🡿 🡾 ⇦ ⇨ ⇧ ⇩ ⬄ ⇳ ⬀ ⬁ ⬃ ⬂ 🢬 🢭 🗶 ✔ 🗷 🗹
]);
+our $NOCHAR = '�';
+
sub decode ($$;$) {
my ($self, $input, $check) = @_;
my $output = '';
for (unpack 'C*', $input) {
- $output .= $_ < 33 ? chr : $MAP[$_ - 33];
+ $output .= $_ < 33 ? chr : ${ref($self).'::MAP'}[$_ - 33] // $NOCHAR;
}
return $output;
}