|
our $VERSION = version->declare('v0.29.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(NFC),
},
],
},
{
type => 'conversion',
data => [
{
before => q(),
after => q(),
replace => q((?^u:tlh)),
result => q(t͡ɬ),
revisit => 0,
},
{
before => q(),
after => q(),
replace => q((?^u:aw)),
result => q(aʊ̯),
revisit => 0,
},
{
before => q(),
after => q(),
replace => q((?^u:ew)),
result => q(ɛʊ̯),
revisit => 0,
},
{
before => q(),
after => q(),
replace => q((?^u:Iw)),
result => q(ɪʊ̯),
revisit => 0,
},
{
before => q(),
after => q(),
replace => q((?^u:ay)),
result => q(aɪ̯),
revisit => 0,
},
{
before => q(),
after => q(),
replace => q((?^u:ey)),
result => q(eɪ̯),
revisit => 0,
},
{
before => q(),
after => q(),
replace => q((?^u:Iy)),
result => q(ɪː),
revisit => 0,
},
{
before => q(),
after => q(),
replace => q((?^u:oy)),
result => q(oɪ̯),
revisit => 0,
},
{
before => q(),
after => q(),
replace => q((?^u:uy)),
result => q(uɪ̯),
revisit => 0,
},
{
before => q(),
after => q(),
replace => q((?^u:ch)),
result => q(t͡ʃ),
revisit => 0,
},
{
before => q(),
after => q(),
replace => q((?^u:gh)),
result => q(ɣ),
revisit => 0,
},
{
before => q(),
after => q(),
replace => q((?^u:ng)),
result => q(ŋ),
revisit => 0,
},
{
before => q(),
after => q(),
replace => q((?^u:p)),
result => q(pʰ),
revisit => 0,
},
{
before => q(),
after => q(),
replace => q((?^u:t)),
result => q(tʰ),
revisit => 0,
},
{
before => q(),
after => q(),
replace => q((?^u:q)),
result => q(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((?^u:b)),
result => q(b),
revisit => 0,
},
{
before => q(),
after => q(),
replace => q((?^u:D)),
result => q(ɖ),
revisit => 0,
},
{
before => q(),
after => q(),
replace => q((?^u:Q)),
result => q(q͡χ),
revisit => 0,
},
{
before => q(),
after => q(),
replace => q((?^u:j)),
result => q(d͡ʒ),
revisit => 0,
},
{
before => q(),
after => q(),
replace => q((?^u:S)),
result => q(ʂ),
revisit => 0,
},
{
before => q(),
after => q(),
replace => q((?^u:H)),
result => q(x),
revisit => 0,
},
{
before => q(),
after => q(),
replace => q((?^u:v)),
result => q(v),
revisit => 0,
},
{
before => q(),
after => q(),
replace => q((?^u:m)),
result => q(m),
revisit => 0,
},
{
before => q(),
after => q(),
replace => q((?^u:n)),
result => q(n),
revisit => 0,
},
{
before => q(),
after => q(),
replace => q((?^u:r)),
result => q(r),
revisit => 0,
},
{
before => q(),
after => q(),
replace => q((?^u:w)),
result => q(w),
revisit => 0,
},
{
before => q(),
after => q(),
replace => q((?^u:l)),
result => q(l),
revisit => 0,
},
{
before => q(),
after => q(),
replace => q((?^u:y)),
result => q(j),
revisit => 0,
},
{
before => q(),
after => q(),
replace => q((?^u:a)),
result => q(ɑ),
revisit => 0,
},
{
before => q(),
after => q(),
replace => q((?^u:e)),
result => q(ɛ),
revisit => 0,
},
{
before => q(),
after => q(),
replace => q((?^u:I)),
result => q(ɪ),
revisit => 0,
},
{
before => q(),
after => q(),
replace => q((?^u:o)),
result => q(o),
revisit => 0,
},
{
before => q(),
after => q(),
replace => q((?^u:u)),
result => q(u),
revisit => 0,
},
{
before => q(),
after => q(),
replace => q((?^u:\-)),
result => q(),
revisit => 0,
},
],
},
{
type => 'transform',
data => [
{
from => q(Any),
to => q(NFC),
},
]
},
] },
);
no Moo;
1;
|