|
our $VERSION = version->declare('v0.32.0');
use if $^V ge v5.12.0, feature => 'unicode_strings';
BEGIN {
die "Transliteration requires Perl 5.18 or above"
unless $^V ge v5.18.0;
}
no warnings 'experimental::regex_sets';
has 'transforms' => (
is => 'ro',
isa => ArrayRef,
init_arg => undef,
default => sub { [
qr/(?^um:\G.)/,
{
type => 'transform',
data => [
{
from => q(Any),
to => q(NFD),
},
],
},
{
type => 'filter',
data => [
],
},
{
type => 'conversion',
data => [
{
before => q(),
after => q(),
replace => q(\'),
result => q(),
revisit => 0,
},
{
before => q(),
after => q(),
replace => q(e[̂̄]),
result => q(эй),
revisit => 0,
},
{
before => q(),
after => q(),
replace => q(i[̂̄]),
result => q(),
revisit => 2,
},
{
before => q(),
after => q(),
replace => q([̂̄]),
result => q(),
revisit => 0,
},
{
before => q(),
after => q(),
replace => q(a),
result => q(а),
revisit => 0,
},
{
before => q(),
after => q(),
replace => q(i\~e),
result => q(),
revisit => 2,
},
{
before => q(),
after => q(),
replace => q(i),
result => q(и),
revisit => 0,
},
{
before => q(),
after => q(),
replace => q(u\~),
result => q(в),
revisit => 0,
},
{
before => q(),
after => q(),
replace => q(u),
result => q(у),
revisit => 0,
},
{
before => q(),
after => q(),
replace => q(e),
result => q(э),
revisit => 0,
},
{
before => q(),
after => q(),
replace => q(o),
result => q(о),
revisit => 0,
},
{
before => q(),
after => q(),
replace => q(k),
result => q(к),
revisit => 0,
},
{
before => q(),
after => q(),
replace => q(sh),
result => q(),
revisit => 2,
},
{
before => q(),
after => q(),
replace => q(s),
result => q(с),
revisit => 0,
},
{
before => q(),
after => q(),
replace => q(ch),
result => q(),
revisit => 2,
},
{
before => q(),
after => q(ch),
replace => q(c),
result => q(t),
revisit => 0,
},
{
before => q(),
after => q(),
replace => q(te\~),
result => q(),
revisit => 1,
},
{
before => q(),
after => q(),
replace => q(to\~),
result => q(),
revisit => 1,
},
{
before => q(),
after => q(),
replace => q(tsu\~),
result => q(),
revisit => 2,
},
{
before => q(),
after => q(),
replace => q(ts),
result => q(ц),
revisit => 0,
},
{
before => q(),
after => q(),
replace => q(t),
result => q(т),
revisit => 0,
},
{
before => q(),
after => q(),
replace => q(\~tsu),
result => q(),
revisit => 3,
},
{
before => q(),
after => q([bpm]),
replace => q(n),
result => q(м),
revisit => 0,
},
{
before => q(),
after => q(),
replace => q(n\'),
result => q(нъ),
revisit => 0,
},
{
before => q(),
after => q(),
replace => q(n),
result => q(н),
revisit => 0,
},
{
before => q(),
after => q(),
replace => q(h),
result => q(х),
revisit => 0,
},
{
before => q(),
after => q(),
replace => q(fu\~),
result => q(),
revisit => 1,
},
{
before => q(),
after => q(),
replace => q(f),
result => q(ф),
revisit => 0,
},
{
before => q(),
after => q(),
replace => q(m),
result => q(м),
revisit => 0,
},
{
before => q(),
after => q(),
replace => q(ya),
result => q(я),
revisit => 0,
},
{
before => q(),
after => q(),
replace => q(yi),
result => q(и),
revisit => 0,
},
{
before => q(),
after => q(),
replace => q(yu),
result => q(ю),
revisit => 0,
},
{
before => q(),
after => q(),
replace => q(ye),
result => q(е),
revisit => 0,
},
{
before => q(),
after => q(),
replace => q(yo),
result => q(ё),
revisit => 0,
},
{
before => q(),
after => q(),
replace => q(r),
result => q(р),
revisit => 0,
},
{
before => q(),
after => q(),
replace => q(wa),
result => q(ва),
revisit => 0,
},
{
before => q(),
after => q(),
replace => q(w),
result => q(),
revisit => 0,
},
{
before => q(),
after => q(),
replace => q(g),
result => q(г),
revisit => 0,
},
{
before => q(),
after => q(),
replace => q(j),
result => q(),
revisit => 2,
},
{
before => q(),
after => q(),
replace => q(z),
result => q(дз),
revisit => 0,
},
{
before => q(),
after => q(),
replace => q(de\~),
result => q(),
revisit => 1,
},
{
before => q(),
after => q(),
replace => q(dji\~),
result => q(),
revisit => 1,
},
{
before => q(),
after => q(),
replace => q(dj),
result => q(),
revisit => 1,
},
{
before => q(),
after => q(),
replace => q(do\~),
result => q(),
revisit => 1,
},
{
before => q(),
after => q(),
replace => q(dzu\~),
result => q(),
revisit => 1,
},
{
before => q(),
after => q(),
replace => q(dz),
result => q(),
revisit => 1,
},
{
before => q(),
after => q(),
replace => q(d),
result => q(д),
revisit => 0,
},
{
before => q(),
after => q(),
replace => q(b),
result => q(б),
revisit => 0,
},
{
before => q(),
after => q(),
replace => q(vu\~),
result => q(),
revisit => 1,
},
{
before => q(),
after => q(),
replace => q(v),
result => q(в),
revisit => 0,
},
{
before => q(),
after => q(),
replace => q(p),
result => q(п),
revisit => 0,
},
],
},
{
type => 'transform',
data => [
{
from => q(Any),
to => q(NFC),
},
]
},
] },
);
no Moo;
1;
|