File Coverage

blib/lib/Lingua/EO/Supersignoj.pm

Criterion	Covered	Total	%
statement	41	50	82.0
branch	5	18	27.7
condition	4	10	40.0
subroutine	9	9	100.0
pod	1	1	100.0
total	60	88	68.1

package Lingua::EO::Supersignoj;
use Attribute::Property;
use strict;
use utf8;

our $VERSION = '0.02';

our %cxapeloj = (
    h          => [ qw/ Ch ch Gh gh Hh hh Jh jh Sh sh Uw uw / ],
    H          => [ qw/ CH ch GH gh HH hh JH jh SH sh UW uw / ],
    x          => [ qw/ Cx cx Gx gx Hx hx Jx jx Sx sx Ux ux / ],
    X          => [ qw/ CX cx GX gx HX hx JX jx SX sx UX ux / ],
    poste      => [ qw/ C^ c^ G^ g^ H^ h^ J^ j^ S^ s^ U^ u^ / ],
    fronte     => [ qw/ ^C ^c ^G ^g ^H ^h ^J ^j ^S ^s ^U ^u / ],
    apostrofoj => [ qw/ C' c' G' g' H' h' J' j' S' s' U' u' / ],
    iso        => [ map chr,
                   198, 230, 216, 248, 166, 182, 172, 188, 222, 254, 221, 253 ],
    unikodo    => [ map chr,
                   264, 265, 284, 285, 292, 293, 308, 309, 348, 349, 364, 365 ]
);

sub nova : New;
sub de : Property { exists $cxapeloj{$_} }
sub al : Property { exists $cxapeloj{$_} }
sub u  : Property { $_ = [ $_ ] if not ref $_; ref $_ eq 'ARRAY' or !defined }
sub U  : Property { $_ = [ $_ ] if not ref $_; ref $_ eq 'ARRAY' or !defined }

sub transkodigu {
    my ($mem, @tekstoj) = (@_);
    my ($de, $al, $u, $U) = ($mem->de, $mem->al, $mem->u, $mem->U);
    $U = [ map uc, @$u ] if $u and not $U;
    $u = [ map lc, @$U ] if $U and not $u;
    $de ||= 'X';
    $al ||= 'unikodo';
    my $modelfolio = join '|', map quotemeta,
            $u
            ? (@{ $cxapeloj{$de} }[ 0 .. 9 ], @$u)
            : @{ $cxapeloj{$de} };
    my %transkodotabelo =
        map { ($cxapeloj{$de}[$_] => $cxapeloj{$al}[$_]) } 0 .. 11;
    if ($u) {
        delete @transkodotabelo{ @{ $cxapeloj{$de} }[10, 11] };
        $transkodotabelo{$_} = $cxapeloj{$al}[10] for @$U;
        $transkodotabelo{$_} = $cxapeloj{$al}[11] for @$u;
    }
    @tekstoj = map { $_ =~ s/($modelfolio)/$transkodotabelo{$1}/g; $_ } @tekstoj;
    return wantarray ? @tekstoj : $tekstoj[-1];
}

1;

__END__