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