File Coverage

blib/lib/Locale/TextDomain/OO/Plugin/Expand/Maketext.pm

Criterion	Covered	Total	%
statement	30	30	100.0
branch	4	6	66.6
condition			n/a
subroutine	9	9	100.0
pod	2	2	100.0
total	45	47	95.7

package Locale::TextDomain::OO::Plugin::Expand::Maketext; ## no critic (TidyCode)

use strict;
use warnings;
use Locale::Utils::PlaceholderMaketext;
use Moo::Role;

our $VERSION = '1.027';

requires qw(
    translate
    filter
    run_filter
);

has expand_maketext => (
    is      => 'rw',
    default => sub {
        return Locale::Utils::PlaceholderMaketext->new;
    },
);

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

    my $translation = $self->translate(undef, $msgid);
    $translation = $self->expand_maketext->expand_maketext(
        $translation,
        @args,
    );
    $self->filter
        and $self->run_filter(\$translation);

    return $translation;
}

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

    my $translation = $self->translate($msgctxt, $msgid);
    $translation = $self->expand_maketext->expand_maketext(
        $translation,
        @args,
    );
    $self->filter
        and $self->run_filter(\$translation);

    return $translation;
}

BEGIN {
    no warnings qw(redefine); ## no critic (NoWarnings)

    # Dummy methods for string marking.
    my $dummy = sub {
        my (undef, @more) = @_;
        return wantarray ? @more : $more[0];
    };
    *Nmaketext   = $dummy;
    *Nmaketext_p = $dummy;
}

1;

__END__