use Text::Unidecode qw( unidecode );
use Shiar_Sheet::FormatChar;
-our $VERSION = '1.00';
+our $VERSION = '1.01';
our @EXPORT = qw( kbchars kbmodes );
my $uc = Shiar_Sheet::FormatChar->new;
my $class = 'g'.(
!defined $v || $c eq $v ? 1 # identical
: $v =~ /\A\p{Mn}+\z/ ? 9 # combining accent
- : $v =~ /\A[\p{Sk}\p{Lm}]+\z/ ? 8 # modifier symbol
- : $v =~ /\A[\pM\pP]+\z/ ? 7 # mark
: NFKD($v) =~ /\Q$c/ ? 2 # decomposed equivalent
: unidecode($v) =~ /\Q$c\E+/i ? 4 # transliterated
+ : $v =~ /\A[\p{Sk}\p{Lm}]+\z/ ? 8 # modifier symbol
+ : $v =~ /\A[\pM\pP]+\z/ ? 7 # mark
: $v =~ /^\p{Latin}/ ? 5 # latin script
: 6
);