|
our $VERSION = version->declare( 'v0.44.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 => [
],
},
{
type => 'conversion' ,
data => [
{
before => q() ,
after => q() ,
replace => q(წ) ,
result => q(tsʼ) ,
revisit => 0,
},
{
before => q() ,
after => q() ,
replace => q(კ) ,
result => q(kʼ) ,
revisit => 0,
},
{
before => q() ,
after => q() ,
replace => q(პ) ,
result => q(pʼ) ,
revisit => 0,
},
{
before => q() ,
after => q() ,
replace => q(ჟ) ,
result => q(zh) ,
revisit => 0,
},
{
before => q() ,
after => q() ,
replace => q(ტ) ,
result => q(tʼ) ,
revisit => 0,
},
{
before => q() ,
after => q() ,
replace => q(ღ) ,
result => q(gh) ,
revisit => 0,
},
{
before => q() ,
after => q() ,
replace => q(ყ) ,
result => q(qʼ) ,
revisit => 0,
},
{
before => q() ,
after => q() ,
replace => q(შ) ,
result => q(sh) ,
revisit => 0,
},
{
before => q() ,
after => q() ,
replace => q(ჭ) ,
result => q(chʼ) ,
revisit => 0,
},
{
before => q() ,
after => q() ,
replace => q(ჩ) ,
result => q(ch) ,
revisit => 0,
},
{
before => q() ,
after => q() ,
replace => q(ც) ,
result => q(ts) ,
revisit => 0,
},
{
before => q() ,
after => q() ,
replace => q(ძ) ,
result => q(dz) ,
revisit => 0,
},
{
before => q() ,
after => q() ,
replace => q(ხ) ,
result => q(kh) ,
revisit => 0,
},
{
before => q() ,
after => q() ,
replace => q(ჳ) ,
result => q(ŭi) ,
revisit => 0,
},
{
before => q() ,
after => q() ,
replace => q(ა) ,
result => q(a) ,
revisit => 0,
},
{
before => q() ,
after => q() ,
replace => q(ბ) ,
result => q(b) ,
revisit => 0,
},
{
before => q() ,
after => q() ,
replace => q(გ) ,
result => q(g) ,
revisit => 0,
},
{
before => q() ,
after => q() ,
replace => q(დ) ,
result => q(d) ,
revisit => 0,
},
{
before => q() ,
after => q() ,
replace => q(ე) ,
result => q(e) ,
revisit => 0,
},
{
before => q() ,
after => q() ,
replace => q(ვ) ,
result => q(v) ,
revisit => 0,
},
{
before => q() ,
after => q() ,
replace => q(ზ) ,
result => q(z) ,
revisit => 0,
},
{
before => q() ,
after => q() ,
replace => q(თ) ,
result => q(t) ,
revisit => 0,
},
{
before => q() ,
after => q() ,
replace => q(ი) ,
result => q(i) ,
revisit => 0,
},
{
before => q() ,
after => q() ,
replace => q(ლ) ,
result => q(l) ,
revisit => 0,
},
{
before => q() ,
after => q() ,
replace => q(მ) ,
result => q(m) ,
revisit => 0,
},
{
before => q() ,
after => q() ,
replace => q(ნ) ,
result => q(n) ,
revisit => 0,
},
{
before => q() ,
after => q() ,
replace => q(ო) ,
result => q(o) ,
revisit => 0,
},
{
before => q() ,
after => q() ,
replace => q(რ) ,
result => q(r) ,
revisit => 0,
},
{
before => q() ,
after => q() ,
replace => q(ს) ,
result => q(s) ,
revisit => 0,
},
{
before => q() ,
after => q() ,
replace => q(უ) ,
result => q(u) ,
revisit => 0,
},
{
before => q() ,
after => q() ,
replace => q(ფ) ,
result => q(p) ,
revisit => 0,
},
{
before => q() ,
after => q() ,
replace => q(ქ) ,
result => q(k) ,
revisit => 0,
},
{
before => q() ,
after => q() ,
replace => q(ჯ) ,
result => q(j) ,
revisit => 0,
},
{
before => q() ,
after => q() ,
replace => q(ჰ) ,
result => q(h) ,
revisit => 0,
},
{
before => q() ,
after => q() ,
replace => q(ჴ) ,
result => q(q) ,
revisit => 0,
},
]
},
] },
);
no Moo;
1;
|