(common.inc.plp)><:
my $source = lc $Request || 'phnx';
$source =~ s/^brah\Kmi$//;
my $include = "writing-$source";
my $info = eval { Data($include) } || {};
Html({
title => $info->{pagetitle} || "$info->{title} scripts comparison sheet",
version => $info->{version} || '0.1',
description => $info->{description},
keywords => [@{ $info->{keywords} // []}, qw(
writing script glyph unicode character letter comparison history
alphabet sample test language multilingual
)],
stylesheet => [qw'light circus dark red mono'],
data => ["$include.inc.pl"],
});
my $rows = $info->{list} or Abort(
"Requested script parent $source
not available",
'404 request not found',
);
say "
$_
" for $info->{intro} || (); say '