'],
stylesheet => [qw'light dark mono circus red'],
data => [qw( unicode-cover.inc.pl ttfsupport unicode-char.inc.pl )],
'],
stylesheet => [qw'light dark mono circus red'],
data => [qw( unicode-cover.inc.pl ttfsupport unicode-char.inc.pl )],
return $_ if m{^[0-9 +-]+$};
my ($cat, $name) = split m{/}, $_, 2 or die "invalid query\n";
return $_ if m{^[0-9 +-]+$};
my ($cat, $name) = split m{/}, $_, 2 or die "invalid query\n";