$info->{class}->{Xa}++ if $info->{block} eq 'Basic Latin';
$info->{class}->{Xl}++ if $info->{block} eq 'Latin-1 Supplement';
- given ($cp) {
- when ($info->{string}) {
+ {
+ if ($info->{string}) {
# keep predefined presentational string
}
- when ($info->{combining}) {
+ elsif ($info->{combining}) {
# overlay combining accents
$info->{string} = chr(9676) . $chr;
}
- when (($cp & ~0b1001_1111) == 0 or $cp == 127) {
+ elsif (($cp & ~0b1001_1111) == 0 or $cp == 127) {
# control characters (first 32 chars from 0 and 128)
# rename to something more descriptive
$info->{name} = $info->{unicode10}