3 package Debian::Dgit::I18n;
6 # __ a function which is an alias for gettext
7 # f_ sprintf wrapper that gettexts the format
8 # i_ identify function, but marks string for translation
10 # In perl the sub `_' is a `superglobal', which means there
11 # is only one of it in the whole program and every reference
12 # is to the same one. So it's not really useable in modules.
20 @EXPORT = qw(__ f_ i_);
24 sub __ ($) { gettext @_; }
26 sub f_ ($$;@) { my $f = shift @_; sprintf +(gettext $f), @_; }