blob: 9c474eefb9c4df9132c1653aaaa9d35ddcd61482 (
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
# f_ 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(__ f_);
}
sub __ ($) { gettext @_; }
sub f_ ($$;@) { my $f = shift @_; sprintf +(gettext $f), @_; }
1;
|