File Coverage

blib/lib/HTML/Template/Compiled/Plugin/I18N/DefaultTranslator.pm

Criterion	Covered	Total	%
statement	41	41	100.0
branch	15	16	93.7
condition			n/a
subroutine	7	7	100.0
pod	3	3	100.0
total	66	67	98.5

package HTML::Template::Compiled::Plugin::I18N::DefaultTranslator;

use strict;
use warnings;

use Carp qw(croak);
use HTML::Template::Compiled::Plugin::I18N;

our $VERSION = '1.02';

my $escape_ref = sub {
    my $string = shift;

    defined $string
        and return $string;

    return 'undef';
};

sub set_escape {
    my (undef, $code_ref) = @_;

    ref $code_ref eq 'CODE'
        or croak 'Coderef expected';
    $escape_ref = $code_ref;

    return;
}

sub get_escape {
    return $escape_ref;
}

sub translate {
    my (undef, $attr_ref) = @_;

    if ( exists $attr_ref->{escape} ) {
        my $escape = delete $attr_ref->{escape};
        ESCAPE_SCALAR:
        for ( qw(text plural) ) {
            exists $attr_ref->{$_}
                or next ESCAPE_SCALAR;
            $attr_ref->{$_} = HTML::Template::Compiled::Plugin::I18N->escape(
                $attr_ref->{$_},
                $escape,
            );
        }
        ESCAPE_ARRAYREF:
        for ( qw(maketext) ) {
            exists $attr_ref->{$_}
                or next ESCAPE_ARRAYREF;
            for my $value ( @{ $attr_ref->{$_} } ) {
                $value = HTML::Template::Compiled::Plugin::I18N->escape(
                    $value,
                    $escape,
                );
            }
        }
        ESCAPE_HASHREF:
        for ( qw(gettext) ) {
            exists $attr_ref->{$_}
                or next ESCAPE_HASHREF;
            for my $value ( values %{ $attr_ref->{$_} } ) {
                $value = HTML::Template::Compiled::Plugin::I18N->escape(
                    $value,
                    $escape,
                );
            }
        }
    }

    return join q{;}, map {
        exists $attr_ref->{$_}
        ? (
            "$_="
            . join q{,}, map {
                __PACKAGE__->get_escape()->($_);
            } (
                ref $attr_ref->{$_} eq 'ARRAY'
                ? @{ $attr_ref->{$_} }
                : ref $attr_ref->{$_} eq 'HASH'
                ? do {
                    my $key = $_;
                    map {
                        ( $_, $attr_ref->{$key}->{$_} );
                    } sort keys %{ $attr_ref->{$key} };
                }
                : $attr_ref->{$_}
            )
        )
        : ();
    } qw(
        context text plural count maketext gettext formatter unescaped
    );
}

1;

__END__