$fontmeta->{file} = $fontid;
my $year = substr $fontmeta->{date}, 0, 4;
$fontmeta->{description} = join(' ',
$fontmeta->{file} = $fontid;
my $year = substr $fontmeta->{date}, 0, 4;
$fontmeta->{description} = join(' ',
(map { "($_)" } $year || ()),
);
push @fontlist, $fontmeta;
(map { "($_)" } $year || ()),
);
push @fontlist, $fontmeta;
if ($chartables) {
while (my ($tablegroup, $grouprow) = each %{$chartables}) {
while (my ($tablename, $chars) = each %{$grouprow}) {
if ($chartables) {
while (my ($tablegroup, $grouprow) = each %{$chartables}) {
while (my ($tablename, $chars) = each %{$grouprow}) {
or warn "Could not include unicode version data: $!";
use Unicode::UCD 'charinfo';
for my $code (0 .. 256**2*2) {
my $charinfo = charinfo($code) or next;
or warn "Could not include unicode version data: $!";
use Unicode::UCD 'charinfo';
for my $code (0 .. 256**2*2) {
my $charinfo = charinfo($code) or next;
push @{ $charlist{$_}->{ $charinfo->{$_} } }, chr $code
for qw( script category block );
push @{ $charlist{version}->{$_} }, (chr $code) x ($agemap->{$code} <= $_)
push @{ $charlist{$_}->{ $charinfo->{$_} } }, chr $code
for qw( script category block );
push @{ $charlist{version}->{$_} }, (chr $code) x ($agemap->{$code} <= $_)