4 title => 'writing system inheritance sheet',
7 "Character comparison,",
8 "tracking letters as they evolve from Phoenician to modern scripts.",
9 "Good Unicode test sample.",
12 script glyph unicode writing comparison character alphabet letter
13 history phoenician latin sample test language multilingual
15 stylesheet => [qw'light dark red'],
19 <h1>Writing systems</h1>
21 <p>Also see <a href="/charset">charsets</a>
22 and <a href="/unicode">common chars</a>.</p>
27 use Shiar_Sheet::FormatChar;
28 my $glyphs = Shiar_Sheet::FormatChar->new;
29 unless (exists $get{v}) {
35 [phnx => 'Phoenician'],
39 my ($source, $title) = @$_;
40 my @table = do "writing-$source.inc.pl";
42 print "<h2>$title</h2>\n";
43 printf "<p>Table data not found: <em>%s</em>.</p>\n", $! || $@;
46 $glyphs->print($title => [ map { @$_ } grep { ref $_ eq 'ARRAY' } @table ]);