<:
use Shiar_Sheet::FormatChar;
my $glyphs = Shiar_Sheet::FormatChar->new;
unless (exists $get{v}) {
$glyphs->{unicode}--;
$glyphs->{digraph}--;
}
my %scriptname = (
latn => 'Latin',
latfsuet => 'Sütterlin',
ase => '
ASL shapes',
brai => 'Braille',
morse => 'Morse',
);
my @table = do 'writing-latn.inc.pl';
if ($! or $@) {
printf "
Table data not found: %s.
\n", $! || $@;
}
else {
print $glyphs->table([map {
ref $_ ne 'ARRAY' ? ".>$scriptname{$_}"
: exists $get{uc} ? map {uc} @$_ : @$_
} @table]);
}
print "