File Coverage

blib/lib/Locale/TextDomain/OO/Lexicon/File/PO.pm

Criterion	Covered	Total	%
statement	32	32	100.0
branch	5	6	83.3
condition	1	2	50.0
subroutine	7	7	100.0
pod	1	1	100.0
total	46	48	95.8

package Locale::TextDomain::OO::Lexicon::File::PO; ## no critic (TidyCode)

use strict;
use warnings;
use Carp qw(confess);
require Locale::PO;
use Moo;
use MooX::StrictConstructor;
use namespace::autoclean;

our $VERSION = '1.031';

with qw(
    Locale::TextDomain::OO::Lexicon::Role::File
);

sub read_messages {
    my ($self, $filename) = @_;

    $filename ||= q{};
    my $content_ref = Locale::PO->load_file_asarray($filename)
        or confess "File not found $filename";

    return [
        map { ## no critic (ComplexMappings)
            my $po = $_;
            +{
                do {
                    map { ## no critic (ComplexMappings)
                        my $value = $po->$_;
                        defined $value
                            ? ( $_ => $po->dequote($value) )
                            : ();
                    } qw( msgctxt msgid msgid_plural msgstr )
                },
                do {
                    my $msgstr_n = $po->msgstr_n;
                    defined $msgstr_n
                    ? (
                        msgstr_plural => [
                            map {
                                $po->dequote( $msgstr_n->{$_} );
                            } sort keys %{$msgstr_n}
                        ]
                    )
                    : ();
                },
            };
        } @{$content_ref}
    ];
}

1;

__END__