File Coverage

blib/lib/Lingua/UK/Translit.pm

Criterion	Covered	Total	%
statement	28	28	100.0
branch	8	8	100.0
condition	13	15	86.6
subroutine	5	5	100.0
pod	1	1	100.0
total	55	57	96.4

package Lingua::UK::Translit;

use 5.006;
use strict;
use warnings;
use utf8;

require Exporter;

our @ISA = qw(Exporter);

our %EXPORT_TAGS = ( 'all' => [ qw(

) ] );

our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );

our @EXPORT = qw(
	&uk2ascii

);

our $VERSION = '0.10';

my %ua2en = (
	'а' => 'a', 'А' => 'A',
	'б' => 'b', 'Б' => 'B',
	'в' => 'v', 'В' => 'V',
	'г' => 'h', 'Г' => 'H',
	'ґ' => 'g', 'Ґ' => 'G',
	'д' => 'd', 'Д' => 'D',
	'е' => 'e', 'Е' => 'E',
	'є' => 'ie', 'Є' => 'Ie',
	'ж' => 'zh', 'Ж' => 'Zh',
	'з' => 'z', 'З' => 'Z',
	'и' => 'y', 'И' => 'Y',
	'і' => 'i', 'І' => 'I',
	'ї' => 'i', 'Ї' => 'I',
	'й' => 'i', 'Й' => 'I',
	'к' => 'k', 'К' => 'K',
	'л' => 'l', 'Л' => 'L',
	'м' => 'm', 'М' => 'M',
	'н' => 'n', 'Н' => 'N',
	'о' => 'o', 'О' => 'O',
	'п' => 'p', 'П' => 'P',
	'р' => 'r', 'Р' => 'R',
	'с' => 's', 'С' => 'S',
	'т' => 't', 'Т' => 'T',
	'у' => 'u', 'У' => 'U',
	'ф' => 'f', 'Ф' => 'F',
	'х' => 'kh', 'Х' => 'Kh',
	'ц' => 'ts', 'Ц' => 'Ts',
	'ч' => 'ch', 'Ч' => 'Ch',
	'ш' => 'sh', 'Ш' => 'Sh',
	'щ' => 'sch', 'Щ' => 'Sch',
	'ь' => '\'', 'Ь' => '\'',
	'ю' => 'iu', 'Ю' => 'Iu',
	'я' => 'ia', 'Я' => 'Ia'
);

my %ua2enwb = (
	'є' => 'ye', 'Є' => 'Ye',
	'ї' => 'y', 'Ї' => 'Y',
	'й' => 'y', 'Й' => 'Y',
	'ю' => 'yu', 'Ю' => 'Yu',
	'я' => 'ya', 'Я' => 'Ya'
);


sub uk2ascii
{
	my $strin = shift;

	my @words = split ('\b',$strin);

	my $strans = '';

	foreach my $word (@words){

		my @c = split('',$word);

		my $wtrans = '';

		for ( my $i = 0; $i <= $#c; $i++){
			if ( ($i == 0) and (exists $ua2enwb{$c[0]}) ){
				$wtrans .= $ua2enwb{$c[0]};
			} elsif (exists $ua2en{$c[$i]}){
				if ( ($c[$i] eq 'г') and (($c[$i-1] eq 'з') or ($c[$i-1] eq 'З')) ){
					$wtrans .= 'gh';
				} elsif ( ($c[$i] eq 'Г') and (($c[$i-1] eq 'з') or ($c[$i-1] eq 'З')) ){
					$wtrans .= 'Gh';
				} else {
					$wtrans .= $ua2en{$c[$i]};
				}
			} else {
				$wtrans .= $c[$i];
			}
		}
		$strans .= $wtrans;
	}
	return $strans;
}

1;
__END__