File Coverage

blib/lib/Localizer/Resource.pm

Criterion	Covered	Total	%
statement	51	54	94.4
branch	13	18	72.2
condition	3	5	60.0
subroutine	11	11	100.0
pod	2	2	100.0
total	80	90	88.8

package Localizer::Resource;
use strict;
use warnings;
use utf8;
use 5.010_001;

use Localizer::Style::Gettext;
use Localizer::BuiltinFunctions;
use Localizer::Lexicon;

our $BUILTIN_FUNCTIONS = {
    numf     => \&Localizer::BuiltinFunctions::numf,
    numerate => \&Localizer::BuiltinFunctions::numerate,
    quant    => \&Localizer::BuiltinFunctions::quant,
    sprintf  => \&Localizer::BuiltinFunctions::sprintf,
};

use Class::Accessor::Lite 0.05 (
    rw => [qw(dictionary compiled precompile style functions)],
);

sub new {
    my $class = shift;
    my %args = @_==1 ? %{$_[0]} : @_;

    unless (exists $args{dictionary}) {
        Carp::confess("Missing mandatory parameter: dictionary");
    }

    $args{dictionary} = Localizer::Lexicon->new($args{dictionary})
        if ref($args{dictionary}) eq 'HASH';

    $args{style} ||= Localizer::Style::Gettext->new();

    my $functions = do {
        if (exists $args{functions}) {
            +{
                %$BUILTIN_FUNCTIONS,
                %{delete $args{functions}},
            };
        } else {
            $BUILTIN_FUNCTIONS
        }
    };

    my $self = bless {
        compiled   => +{},
        precompile => 1,
        functions  => $functions,
        %args,
    }, $class;

    # Compile dictionary data to CodeRef or ScalarRef
    if ($self->precompile) {
        for my $msgid ($self->dictionary->msgids) {
            $self->_compile($msgid);
        }
    }

    return $self;
}

sub maketext {
    my ($self, $msgid, @args) = @_;

    my $compiled = $self->_compile($msgid);
    return unless defined $compiled;

    if (ref $compiled eq 'CODE') {
        return $compiled->($self, @args);
    } elsif (ref $compiled eq 'SCALAR') {
        return $$compiled;
    } else {
        die "SHOULD NOT REACH HERE";
    }
}

sub _compile {
    my ($self, $msgid) = @_;

    if (my $code = $self->compiled->{$msgid}) {
        return $code;
    }

    my $fmt = $self->dictionary->msgstr($msgid) || return;
    my $code = $self->style->compile($msgid, $fmt, $self->functions);
    $self->compiled->{$msgid} = $code;
    return $code;
}

1;

__END__