Html({
title => 'unicode glyph cheat sheet',
- version => '1.1',
+ version => '1.2',
description => [
"Common Unicode characters with digraph or code point, layed out for quick location.",
"Includes general symbols, arrows, drawing characters, and IPA letters.",
my $tables = do 'unicode-table.inc.pl' or die $@ || $!;
$glyphs->print(map {
- my $_ = /(.*)\?(.*)/ ? ($verbose ? $2 : $1) : $_;
+ $_ = /(.*)\?(.*)/ ? ($verbose ? $2 : $1) : $_;
if (!$_) {
();
}
$group = $1 if s{^([^/]+)/}{};
my @select = s/=(.*)// ? split(/=/, $1) : ();
my $table = $tables->{$group}->{$_}
- or die "Unknown table specified: $group/$_";
+ or Abort("Unknown table specified: $group/$_", 404);
if (@select) {
my $rowlen;