There is some pod buried deep in Locale::Maketext::Lexicon::Gettext. You have
to use different syntax in the .po file. If anybody’s interested, the following
simple example does work:
{ package Lexicon;
use base 'Locale::Maketext';
use Locale::Maketext::Lexicon {
fr => ['Gettext' => "hello_fr2.po" ],
};
sub xxx { print "Hello!"; return "hello"; }
1;
}
my $l = Lexicon->get_handle( 'fr' );
print $l->maketext( "Hello" ) . "\n";
print $l->maketext( "Nuts" ) . "\n";
The .po file:
msgid "Hello"
msgstr "Bonjour"
msgid "Goodbye"
msgstr "Au revoir"
msgid "Nuts"
msgstr "Bolts %xxx()"
Output:
Bonjour
Hello!Bolts hello
Regards
Duncan
From: Duncan Garland [mailto:[email protected]]
Sent: 06 October 2011 16:09
To: The elegant MVC web framework
Subject: RE: [Catalyst] Localisation
Hi Chakkit,
Thanks for your reply.
We do have a medium sized Catalyst application which we may well want to
internationalise at some point, but at the moment I’m looking for a solution
which can be applied to some other non-Catalyst applications.
I posted my question here because I got the idea of using Locale::Maketext and
Locale::Maketext::Lexicon from the articles referenced on the Catalyst
localisation man page. Specifically, there is an article by Audrey Tang which
gives an example which seems to do exactly what we want. (Multiple .po files
per language which are searched in order and the ability to include some
functions.) I also got the impression that these modules are commonly used
within the Catalyst community.
Unfortunately, I can’t make the example code work and I can’t find a better
example.
I’ve had the debugger on the code for a while since I made my first post.
The problems are:
1) The square brackets are escaped with a tilde to become ~[ or ~] when
they are read in. That applies to both the msgid and the msgstr.
2) The code which compiles the subroutine does recognise ~ but treats it
as escaping the bracket. Thus the in_group flag is never set and it never
constructs or executes the function. If I use the debugger to remove the
tildes, the function is built and executed.
3) The article implies that you declare a function as fr::xxx and call it
as xxx. In fact, if it is declared as fr::xxx it must be called as fr::xxx.
I’ve run out of ideas.
All the best.
Duncan
From: Chakkit Ngamsom [mailto:[email protected]]
Sent: 06 October 2011 15:06
To: The elegant MVC web framework
Subject: Re: [Catalyst] Localisation
Hi Duncan,
You should use Plugin here:
http://search.cpan.org/dist/Catalyst-Plugin-I18N/lib/Catalyst/Plugin/I18N.pm
Check at configuration section if you want to specify directory for .po files
or elsr.
Regards,
Chakkit
On Oct 6, 2011, at 7:39 PM, Duncan Garland
<[email protected]<mailto:[email protected]>> wrote:
Hi,
Has any anybody got a working example of the use of Locale::Maketext with
Locale::Maketext::Lexicon? I think I’ve missed something simple. My example
code is:
{ package Lexicon;
use base 'Locale::Maketext';
use Locale::Maketext::Lexicon {
fr => ['Gettext' => "hello_fr2.po" ],
};
sub fr::xxx { print "Hello!"; return "hello"; }
1;
}
my $l = Lexicon->get_handle( 'fr' );
print $l->maketext( "Hello" ) . "\n";
print $l->maketext( "Nuts ~[xxx~]" ) . "\n";
The hello_fr2.po contains:
msgid "Hello"
msgstr "Bonjour"
msgid "Goodbye"
msgstr "Au revoir"
msgid "Your search matched [quant,_1,book]"
msgstr "Vous trouvez [ quant, _1, livre ]"
msgid "You are my [ord,_1] something."
msgid "[numf,_1]"
msgstr "[numf,_1]"
msgid "Nuts [xxx]"
msgstr "Bolts [xxx]"
The output is:
Bonjour
Bolts [xxx]
So the simple substitutions work but I can’t get it to call the function.
Furthermore, it puts tilde before each bracket, so I can’t get a match for
anything with a function unless I put tildes in there. I’ve missed something
simple. Any ideas?
Thanks
Duncan
_______________________________________________
List: [email protected]<mailto:[email protected]>
Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst
Searchable archive: http://www.mail-archive.com/[email protected]/
Dev site: http://dev.catalyst.perl.org/
_______________________________________________
List: [email protected]
Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst
Searchable archive: http://www.mail-archive.com/[email protected]/
Dev site: http://dev.catalyst.perl.org/
