File Coverage

blib/lib/Plack/I18N/Lexicon/Gettext.pm

Criterion	Covered	Total	%
statement	57	57	100.0
branch	6	10	60.0
condition	5	8	62.5
subroutine	15	15	100.0
pod	2	2	100.0
total	85	92	92.3

package Plack::I18N::Lexicon::Gettext;

use strict;
use warnings;

use Carp qw(croak);
use List::Util qw(first);
use Locale::Maketext;
use Plack::I18N::Util qw(try_load_class);
use Plack::I18N::Handle;

sub new {
    my $class = shift;
    my (%params) = @_;

    my $self = {};
    bless $self, $class;

    $self->{i18n_class} = $params{i18n_class} || croak 'i18n_class required';
    $self->{default_language} = $params{default_language} || 'en';

    $self->{locale_dir} = $params{locale_dir} || croak 'locale_dir required';

    $self->_init_lexicon;

    return $self;
}

sub _init_lexicon {
    my $self = shift;

    my $i18n_class = $self->{i18n_class};

    if (!try_load_class($i18n_class)) {
        eval <<"EOC" || croak $@;
        package $i18n_class;
        use parent 'Locale::Maketext';
        use Locale::Maketext::Lexicon {
            '*'      => [Gettext => "$self->{locale_dir}/*.po"],
            _auto    => 1,
            _decode  => 1,
            _preload => 1
        };
        1;
EOC
    }
}

sub detect_languages {
    my $self = shift;

    my $path = $self->{locale_dir};

    opendir(my $dh, $path) or croak "Can't opendir $path: $!";
    my @files = grep { /\.p[om]$/ && -e "$path/$_" } readdir($dh);
    closedir $dh;

    my @languages = @files;
    s{\.p[om]$}{} for @languages;

    unshift @languages, $self->{default_language}
      unless first { $_ eq $self->{default_language} } @languages;

    return @languages;
}

1;
__END__