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'],
16 data => [qw'writing-phnx.inc.pl'],
20 <h1>Writing systems</h1>
22 <p>Also see <a href="/charset">charsets</a>
23 and <a href="/unicode">common chars</a>.</p>
28 use Shiar_Sheet::FormatChar;
29 my $glyphs = Shiar_Sheet::FormatChar->new;
30 unless (exists $get{v}) {
36 my $scriptname = do 'writing-script.inc.pl';
37 $_ = qq{<a href="/latin">$_</a>} for $scriptname->{latn} || ();
40 [phnx => 'Phoenician'],
44 my ($source, $title) = @$_;
45 my @table = do "writing-$source.inc.pl";
47 print "<h2>$title</h2>\n";
48 printf "<p>Table data not found: <em>%s</em>.</p>\n", $! || $@;
51 $glyphs->print($title => [map {
52 ref $_ eq 'ARRAY' ? @$_ : map { ".>$_" }
53 $scriptname->{$source.'_'.$_} || $scriptname->{$_} || $_