File Coverage

blib/lib/Data/Localize/Localizer.pm

Criterion	Covered	Total	%
statement	28	30	93.3
branch	3	6	50.0
condition			n/a
subroutine	10	10	100.0
pod	2	3	66.6
total	43	49	87.7

package Data::Localize::Localizer;
use utf8;
use Moo;
use Carp ();
use Data::Localize;
use Encode ();

BEGIN {
    if (Data::Localize::DEBUG) {
        require Data::Localize::Log;
        Data::Localize::Log->import
    }
}

has _localizer => (
    is => 'rw',
    weak_ref => 1,
);

has initialized => (
    is => 'rw',
    default => 0,
    init_arg => undef,
);

has formatter => (
    is => 'rw',
    lazy => 1,
    isa => sub { $_[0]->isa('Data::Localize::Format') },
    builder => "_build_formatter",
    required => 1,
    handles => { format_string => 'format' },
);

sub _build_formatter {
    Module::Load::load('Data::Localize::Format::Maketext');
    return Data::Localize::Format::Maketext->new();
}

sub BUILD {
    $_[0]->initialized(1);
}

sub register {
    my ($self, $loc) = @_;
    if ($self->_localizer) {
        Carp::confess("Localizer $self is already attached to another Data::Localize object ($loc)");
    }
    $self->_localizer( $loc );
}

sub localize_for {
    my ($self, %args) = @_;
    my ($lang, $id, $args) = @args{ qw(lang id args) };

    my $value = $self->get_lexicon($lang, $id) or return ();
    if (Data::Localize::DEBUG()) {
        debugf("localize_for - '%s' -> '%s'",
            $id,
            defined($value) ? Encode::encode_utf8($value) : '(null)'
        );
    }
    if ( $value ) {
        return $self->format_string($lang, $value, @$args);
    }
    return ();
}

1;

__END__