use base 'Exporter';
-our @EXPORT = qw( _g N_ );
+our @EXPORT = qw( N_ );
-sub _g { return $_[0]; }
sub N_ { return $_[0]; }
sub g {
my ($self, $format, @args) = @_;
my $result = $self->maketext($format, @args);
- return sprintf($result, @args) if $result =~ /%[su]/;
+ return sprintf($result, @args) if $result =~ /%([su]|[.\d]*f)/;
return $result;
}