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     'en' => [Gettext => '/home/djpig/debian/www.d.o/packages/po/pdo.pot',
   9              Gettext => '/home/djpig/debian/www.d.o/packages/po/templates.pot',
  10              Gettext => '/home/djpig/debian/www.d.o/packages/po/langs.pot',
  11              Gettext => '/home/djpig/debian/www.d.o/packages/po/sections.pot',
  12              Gettext => '/home/djpig/debian/www.d.o/packages/po/debtags.pot'],
  13     '*' => [Gettext => '/home/djpig/debian/www.d.o/packages/po/pdo.*.po',
  14             Gettext => '/home/djpig/debian/www.d.o/packages/po/templates.*.po',
  15             Gettext => '/home/djpig/debian/www.d.o/packages/po/langs.*.po',
  16             Gettext => '/home/djpig/debian/www.d.o/packages/po/sections.*.po',
  17             Gettext => '/home/djpig/debian/www.d.o/packages/po/debtags.*.po'],
  18     _auto   => 1,
  19     _style  => 'gettext',
  20 };
  21
  22 use base 'Exporter';
  23
  24 our @EXPORT = qw( N_ );
  25
  26 sub N_ { return $_[0]; }
  27
  28 sub g {
  29     my ($self, $format, @args) = @_;
  30     my $result = $self->maketext($format, @args);
  31     return sprintf($result, @args) if $result =~ /%([su]|[.\d]*f)/;
  32     return $result;
  33 }
  34
  35 1;