lib/Packages/I18N/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( _g N_ );
  18
  19 sub _g { return $_[0]; }
  20 sub N_ { return $_[0]; }
  21
  22 sub g {
  23     my ($self, $format, @args) = @_;
  24     my $result = $self->maketext($format, @args);
  25     return sprintf($result, @args) if $result =~ /%[su]/;
  26     return $result;
  27 }
  28
  29 1;