# add custom categories for certain blocks
$info->{class}->{Xa}++ if $info->{block} eq 'Basic Latin';
# add custom categories for certain blocks
$info->{class}->{Xa}++ if $info->{block} eq 'Basic Latin';
say '+{';
for my $cp (sort keys %info) {
$info{$cp}->{classstr} = join(' ', sort keys %{ $info{$cp}->{class} });
say '+{';
for my $cp (sort keys %info) {
$info{$cp}->{classstr} = join(' ', sort keys %{ $info{$cp}->{class} });