1 package Packages::I18N::Locale;
6 use base 'Locale::Maketext';
7 use Locale::Maketext::Lexicon;
11 our @EXPORT = qw( N_ );
16 Locale::Maketext::Lexicon->import( {
17 'en' => [Gettext => "$podir/pdo.pot",
18 Gettext => "$podir/templates.pot",
19 Gettext => "$podir/langs.pot",
20 Gettext => "$podir/sections.pot",
21 Gettext => "$podir/debtags.pot"],
22 '*' => [Gettext => "$podir/pdo.*.po",
23 Gettext => "$podir/templates.*.po",
24 Gettext => "$podir/langs.*.po",
25 Gettext => "$podir/sections.*.po",
26 Gettext => "$podir/debtags.*.po"],
32 sub N_ { return $_[0]; }
35 my ($self, $format, @args) = @_;
36 my $result = $self->maketext($format, @args);
37 return sprintf($result, @args) if $result =~ /%([su]|[.\d]*f)/;