blob: c6f9e1663543b1cf201902c322cff2a00c962c73 (
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
|
# -*- perl -*-
package Debian::Dgit::I18n;
# This module provides
# __ a function which is an alias for gettext
# ___ sprintf wrapper that gettexts the format
#
# 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(__ ___);
}
sub __ { gettext @_; }
sub ___ { my $f = shift @_; sprintf +(gettext $f), @_; }
1;
|