Locale::Maketext::Fuzzy 0.02

Locale::Maketext::Fuzzy is a Perl module for Maketext from already interpolated strings.

SYNOPSIS

package MyApp::L10N;
use base Locale::Maketext::Fuzzy; # instead of Locale::Maketext

package MyApp::L10N::de;
use base MyApp::L10N;
our %Lexicon = (
# Exact match should always be preferred if possible
"0 camels were released."
=> "Exact match",

# Fuzzy match candidate
"[quant,_1,camel was,camels were] released."
=> "[quant,_1,Kamel wurde,Kamele wurden] freigegeben.",

# This could also match fuzzily, but is less preferred
"[_2] released[_1]"
=> "[_1][_2] ist frei[_1]",
);

package main;
my $lh = MyApp::L10N->get_handle(de);

# All ->maketext calls below will become ->maketext_fuzzy instead
$lh->override_maketext(1);

# This prints "Exact match"
print $lh->maketext(0 camels were released.);

# "1 Kamel wurde freigegeben." -- quant() gets 1
print $lh->maketext(1 camel was released.);

# "2 Kamele wurden freigegeben." -- quant() gets 2
print $lh->maketext(2 camels were released.);

# "3 Kamele wurden freigegeben." -- parameters are ignored
print $lh->maketext(3 released.);

# "4 Kamele wurden freigegeben." -- normal usage
print $lh->maketext([*,_1,camel was,camels were] released., 4);

# "!Perl ist frei!" -- matches the broader one
# Note that the sequence ([_2] before [_1]) is preserved
print $lh->maketext(Perl released!);