|
our $VERSION = version->declare('v0.46.0');
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 => 'conversion',
data => [
{
before => q(),
after => q(),
replace => q(v\→ʌ),
result => q(),
revisit => 0,
},
{
before => q(),
after => q(),
replace => q(i\→ɪ),
result => q(),
revisit => 0,
},
{
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(E\→Ɛ),
result => q(),
revisit => 0,
},
{
before => q(),
after => q(),
replace => q(o\→ɔ),
result => q(),
revisit => 0,
},
{
before => q(),
after => q(),
replace => q(O\→Ɔ),
result => q(),
revisit => 0,
},
{
before => q(),
after => q(),
replace => q(a\→ə),
result => q(),
revisit => 0,
},
{
before => q(),
after => q(),
replace => q(A\→Ə),
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(zh\→ʒ),
result => q(),
revisit => 0,
},
{
before => q(),
after => q(),
replace => q(ZH\→Ʒ),
result => q(),
revisit => 0,
},
{
before => q(),
after => q(),
replace => q(sh\→ʃ),
result => q(),
revisit => 0,
},
{
before => q(),
after => q(),
replace => q(SH\→Ʃ),
result => q(),
revisit => 0,
},
{
before => q(),
after => q(),
replace => q(t\→θ),
result => q(),
revisit => 0,
},
{
before => q(),
after => q(),
replace => q(T\→Θ),
result => q(),
revisit => 0,
},
{
before => q(),
after => q(),
replace => q(ng\→ŋ),
result => q(),
revisit => 0,
},
{
before => q(),
after => q(),
replace => q(NG\→Ŋ),
result => q(),
revisit => 0,
},
{
before => q(),
after => q(),
replace => q(ss\→ß),
result => q(),
revisit => 0,
},
{
before => q(),
after => q(),
replace => q(oe\→œ),
result => q(),
revisit => 0,
},
{
before => q(),
after => q(),
replace => q(OE\→Œ),
result => q(),
revisit => 0,
},
{
before => q(),
after => q(),
replace => q(th\→þ),
result => q(),
revisit => 0,
},
{
before => q(),
after => q(),
replace => q(TH\→Þ),
result => q(),
revisit => 0,
},
{
before => q(),
after => q(),
replace => q(o\'\→ø),
result => q(),
revisit => 0,
},
{
before => q(),
after => q(),
replace => q(O\'\→Ø),
result => q(),
revisit => 0,
},
{
before => q(),
after => q(),
replace => q(d\→ð),
result => q(),
revisit => 0,
},
{
before => q(),
after => q(),
replace => q(D\→Ð),
result => q(),
revisit => 0,
},
{
before => q(),
after => q(),
replace => q(ae\→æ),
result => q(),
revisit => 0,
},
{
before => q(),
after => q(),
replace => q(AE\→Æ),
result => q(),
revisit => 0,
},
{
before => q(),
after => q(),
replace => q(\.\→̣),
result => q(),
revisit => 0,
},
{
before => q(),
after => q(),
replace => q(\'\↛),
result => q(),
revisit => 0,
},
{
before => q(),
after => q(),
replace => q(\,\→̧),
result => q(),
revisit => 0,
},
{
before => q(),
after => q(),
replace => q(\*\→̊),
result => q(),
revisit => 0,
},
{
before => q(),
after => q(),
replace => q(\"\→̈),
result => q(),
revisit => 0,
},
{
before => q(),
after => q(),
replace => q(\-\→̄),
result => q(),
revisit => 0,
},
{
before => q(),
after => q(),
replace => q(\~\→̃),
result => q(),
revisit => 0,
},
{
before => q(),
after => q(),
replace => q(\^\→̂),
result => q(),
revisit => 0,
},
{
before => q(),
after => q(),
replace => q(\'\→́),
result => q(),
revisit => 0,
},
{
before => q(),
after => q(),
replace => q(\`\→̀),
result => q(),
revisit => 0,
},
],
},
{
type => 'transform',
data => [
{
from => q(Any),
to => q(NFC),
},
]
},
] },
);
no Moo;
1;
|