blob: e8068ff366bcb4e3170c85e05073addef87c885e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
# -*- perl -*-
package Debian::Dgit::I18n;
# This module provides
# __ a function which is an alias for gettext
# f_ sprintf wrapper that gettexts the format
# i_ identify function, but marks string for translation
#
# In perl the sub `_' is a `superglobal', which means there
# is only one of it in the whole program and every reference
# is to the same one. So it's not really useable in modules.
# Hence __.
use Locale::gettext;
BEGIN {
use Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(__ f_ i_);
}
sub __ ($) { gettext @_; }
sub i_ ($) { $_[0]; }
sub f_ ($$;@) { my $f = shift @_; sprintf +(gettext $f), @_; }
1;
|