File Coverage

blib/lib/Template/Plugin/Filter/I18N.pm

Criterion	Covered	Total	%
statement	18	31	58.0
branch			n/a
condition	0	11	0.0
subroutine	6	8	75.0
pod	0	2	0.0
total	24	52	46.1

package Template::Plugin::Filter::I18N;

use strict;
use warnings;
use Template::Plugin::Filter;
use base qw( Template::Plugin::Filter );
use Locale::gettext;
use POSIX;

our $VERSION = '0.01';

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

	my $conf = $args[0];

	my $domain 	= $self->{_CONFIG}{domain} 	|| $conf->{domain}	|| $self->{_CONTEXT}->throw(__PACKAGE__, 'undefined domain');
	my $locale 	= $self->{_CONFIG}{locale} 	|| $conf->{locale}	|| $self->{_CONTEXT}->throw(__PACKAGE__, 'undefined locale');
	my $dir 	= $self->{_CONFIG}{dir} 	|| $conf->{dir};
	my $filter 	= $self->{_CONFIG}{filter} 	|| $conf->{filter}	|| 'i18n';

	setlocale(LC_MESSAGES, $locale);

	$self->{domain} = Locale::gettext->domain($domain);

	$self->{domain}->dir($dir);

    $self->install_filter($filter);

    return $self;
}

sub filter {
    my ($self, $text, $params) = @_;
	return $self->{domain}->get($text);
}

1;

__END__