# -*- 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;
