Catalyst::Plugin::I18N と Catalyst::Plugin::Charsets::Japanese の競合

Catalyst で、国際化に必須な I18N と Template-Toolkit で EUC などの日本語を文字コードを使うための Charsets::Japanese を一緒に使おうとすると、テンプレートの日本語が化けるようです。どちらかのモジュールがメソッドをオーバーライドしてしまっているか、stash の汚染が起きている可能性があります。

とりあえず、Catalyst::Plugin::I18N と競合しないモジュールを書いてみました。名前が微妙なので(笑)、なにかいい名前があったら教えてください。


package Catalyst::Plugin::MakeText;

use strict;
use warnings;
use FindBin;
use Locale::Maketext::Simple(
    Export => "_loc", 
    Path   => "$FindBin::Bin/../I18N"

our $VERSION = '0.02';

=head1 NAME

Catalyst::Plugin::MakeText - Internationalization Plugin for Catalyst


  use Catalyst qw/MakeText/

  sub hoge {
      my ($self, $c) = @_;
      $c->languages( ['ja'] );
      $c->stash->{'body_title'} = $c->localize( 'Register' );


It works Locale::Maketext::Simple wrapper.

At least, please prepare MyApp/I18N/some.po or MyApp/I18N/

By the way, because the language resource file is loaded at the Catalyst 
is started, it is necessary to restart the server to reflect the 
change in the resource. 

MyApp/I18N/en.po example

    # Comment
    msgid "Register"
    msgstr "Register"

    msgid "Next"
    msgstr "Next"

making MyApp/I18N/

    msgfmt en.po -o

=head1 METHODS

=head2 languages($c, $locale_array_ref)

set language locale.


sub languages {
    my ( $c, $locale_array_ref ) = @_;
    if ( defined $locale_array_ref ) {
        my $locale = $locale_array_ref->[0];
        if ($c->can('session')) {
            $c->session->{'locale'} = $locale;
        } else {
            $c->stash->{'locale'} = $locale;
    } else {
        if ( $c->can('session') ) {
            return $c->session->{'locale'};
        } else {
            return $c->stash->{'locale'};

=head2 loc($c, $message)

=head2 localize($c, $message)

get localized text.


sub loc {
    return &localize(@_);

sub localize {
    my ( $c, $message ) = @_;
    if ($c->can('session')) {
    } else {
    return &_loc($message);

=head1 SEE ALSO


=head1 AUTHOR

Jun Shimizu, E<lt>bayside@cpan.orgE<gt>


Copyright (C) 2006 by Jun Shimizu.

This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.2 or,
at your option, any later version of Perl 5 you may have available.



ソースは こちら です。