Locale.pm

   1 package Packages::I18N::Locale;
   2
   3 use strict;
   4 use warnings;
   5
   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'],
  11     _auto   => 1,
  12     _style  => 'gettext',
  13 };
  14
  15 use base 'Exporter';
  16
  17 our @EXPORT = qw( N_ );
  18
  19 sub N_ { return $_[0]; }
  20
  21 sub g {
  22     my ($self, $format, @args) = @_;
  23     my $result = $self->maketext($format, @args);
  24     return sprintf($result, @args) if $result =~ /%([su]|[.\d]*f)/;
  25     return $result;
  26 }
  27
  28 1;