- if ($input =~ /\p{age=unassigned}/) {
- # check include for assignments after unicode 6.0 (perl v5.14)
- state $agemap = do 'data/unicode-age.inc.pl';
- my $version = $agemap->{$codepoint};
- push @class, $version ? 'l2' : 'l1';
- }
- elsif ($input =~ /^\p{in=1.1}*$/) {
- push @class, 'l5'; # first release 1993
- }
- elsif ($input =~ /^\p{in=3.0}*$/) {
- push @class, 'l4'; # 20th century
- }
- elsif ($input =~ /^\p{in=4.1}*$/) {
- push @class, 'l4'; # over 10 years ago
- }
- elsif ($input =~ /^\p{in=6.0}*$/) {
- push @class, 'l3'; # before 2012
- }
- else {
- push @class, 'l2'; # more recent
- }