($cell, $title, my $class, $mnem, $entity) = $self->glyphs_html($input);
if ($self->{style} eq 'univer') {
- state $agemap = do 'unicode-age.inc.pl' or die $!;
- my $version = $agemap->{ord $input};
- if (!$version) {
- push @class, 'l1'; # no known unicode assignment
+ if ($input =~ /\p{age=unassigned}/) {
+ # check include for assignments after unicode 6.0 (perl v5.14)
+ state $agemap = do 'unicode-age.inc.pl';
+ my $version = $agemap->{ord $input};
+ push @class, $version ? 'l2' : 'l1';
}
- elsif ($version < 20) {
+ elsif ($input =~ /^\p{in=1.1}*$/) {
push @class, 'l5'; # first release 1993
}
- elsif ($version < 31) {
+ elsif ($input =~ /^\p{in=3.0}*$/) {
push @class, 'l4'; # 20th century
}
- elsif ($version < 50) {
+ elsif ($input =~ /^\p{in=4.1}*$/) {
push @class, 'l4'; # over 10 years ago
}
- elsif ($version < 61) {
+ elsif ($input =~ /^\p{in=6.0}*$/) {
push @class, 'l3'; # before 2012
}
else {