for my $row (@request) {
printf '<li><table class="glyphs%s">', !$row->{cell} && ' charmap';
printf '<caption>%s</caption>', $row->{set};
- print '<col>';
+ print '<col>' x 17;
for my $section (qw{thead}) {
print "<$section><tr><th>↱";
print '<th>', $_ for @nibble;
if (defined (my $mnem = $di{ord $glyph})) {
$info = $diinfo->{$mnem};
}
+ else {
+ require Unicode::UCD;
+ my $fullinfo = Unicode::UCD::charinfo(ord $glyph);
+ $info = [@$fullinfo{qw/code name category script string/}] if $fullinfo;
+ }
my ($codepoint, $name, $prop, $script, $string) = @$info;
$glyph = quote($string || $glyph);