File Coverage

blib/lib/Locale/TextDomain/OO/Lexicon/Role/GettextToMaketext.pm

Criterion	Covered	Total	%
statement	23	23	100.0
branch	2	2	100.0
condition			n/a
subroutine	6	6	100.0
pod	1	1	100.0
total	32	32	100.0

package Locale::TextDomain::OO::Lexicon::Role::GettextToMaketext; ## no critic (TidyCode)

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

our $VERSION = '1.000';

sub gettext_to_maketext {
    my ($self, $messages_ref) = @_;

    my $formatter = Locale::Utils::PlaceholderMaketext->new;
    for my $value ( @{$messages_ref} ) {
        for ( qw( msgid msgstr ) ) {
            if ( exists $value->{$_} ) {
                $value->{$_}
                    = $formatter->gettext_to_maketext( $value->{$_} );
            }
        }
    }

    return $self;
}

1;

__END__