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
23
24
25
26
27
28

package Travelynx::Helper::Locales;

use strict;
use warnings;

#BEGIN { package Locale::Maketext; sub DEBUG() {1} };
#BEGIN { package Locale::Maketext::Guts; sub DEBUG() {1} };

use base qw(Locale::Maketext);

# Uncomment this to show raw strings for untranslated content rather than
# falling back to German.

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

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

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

1;