1 package Packages::I18N::Locale;
6 use base 'Locale::Maketext';
7 use Locale::Maketext::Lexicon {
8 '*' => [Gettext => '/home/djpig/debian/www.d.o/packages/po/pdo.*.po',
9 Gettext => '/home/djpig/debian/www.d.o/packages/po/templates.*.po',
10 Gettext => '/home/djpig/debian/www.d.o/packages/po/langs.*.po'],
17 our @EXPORT = qw( _g N_ );
19 sub _g { return $_[0]; }
20 sub N_ { return $_[0]; }
23 my ($self, $format, @args) = @_;
24 my $result = $self->maketext($format, @args);
25 return sprintf($result, @args) if $result =~ /%[su]/;