lib/Travelynx/Helper/Locales.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

package Travelynx::Helper::Locales;

use strict;
use warnings;

use base qw(Locale::Maketext);

our %Lexicon = (
	_AUTO => 1,
);

use Locale::Maketext::Lexicon {
	_decode => 1,
	'*'     => [ Gettext => 'share/locales/*.po' ],
};

sub init {
	my ($self) = @_;
	return $self->SUPER::init( @_[ 1 .. $#_ ] );
}

1;