]> git.deb.at Git - deb/packages.git/blob - lib/Packages/I18N/Locale.pm.sed.in
Use versioned screenshots on binary package pages
[deb/packages.git] / lib / Packages / I18N / Locale.pm.sed.in
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 => "%TOPDIR%/po/pdo.pot",
9              Gettext => "%TOPDIR%/po/templates.pot",
10              Gettext => "%TOPDIR%/po/langs.pot",
11              Gettext => "%TOPDIR%/po/sections.pot",
12              Gettext => "%TOPDIR%/po/debtags.pot"],
13     '*' => [Gettext => "%TOPDIR%/po/pdo.*.po",
14             Gettext => "%TOPDIR%/po/templates.*.po",
15             Gettext => "%TOPDIR%/po/langs.*.po",
16             Gettext => "%TOPDIR%/po/sections.*.po",
17             Gettext => "%TOPDIR%/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]/o;
32     return $result;
33 }
34
35 1;