Locale::Maketext::Fuzzy 0.11

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!');

Product's homepage

Requirements:

· Perl