Catalyst::Plugin::Charsets::Japanese::Nihongo(3p)

XX
Catalyst::Plugin::Charsets::Japanese - XXXXXXXXXXXXXXXXXX

XX
    use Catalyst 'Charsets::Japanese';

    # XXXXXXXXXXXX

    MyApp->config->{charsets} = 'UTF-8';

    # XXXXXXXXXXXXXXXXXX
    # XXXXXXXXXXXXXXXXXXXXX

    MyApp->config->{charsets} = {
        in  => 'EUC-JP',
        out => 'Shift_JIS',
    };

XX
XXXXXXXXXXXWEBXXXXXXXXXXXXXXXXXXXXXXXXXX EUC-JP, Shift_JIS, UTF-8 XXXXXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXContent-TypeXXXXXXXXXXXXXX

XXXXXXXXXXUTF-8XXXXXXXCatalyst::Plugin::Unicode, XXXXXXXXUTF-8XXXXXXXXXXXXXXXX Catalyst::Plugin::Unicode::Encoding XXXXXXXXXXXXXXXXX

XXXXXXXXXXXXXXEUCXXXXXXXXXXXXXXXXXXXXXXXX

XX
XXXXX config X charsets X XXXXXXXXXXXXXXXX

    MyApp->config->{charsets} = 'UTF-8';

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

XXXXXXXXXXXXXXXDBXXEUCXXXXXXXXXXXXX XXXXXXXXXXHTMLXUTF-8XXXXXX

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXX

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

    MyApp->config->{charsets} = {
        in  => 'EUC-JP',
        out => 'Shift_JIS',
    };

XXXXXXXXXXXX Shift_JIS XXXXXX

XXXXXXXXXXXXXXXXXXXXXXXXXXXX Shift_JIS XX EUC-JP XXXXXXXXXX

charsets XXXX
XXXXXXX charsets XXXXXXXXXXXX

charsetsXXXXXXXXXXXXXXXXXXXXXX in X out XXXXXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

XXXXXXXXXXXXXXXXXXXXXXXXXXXXJcodeXXXXXXXXXXXXXXXXXXXXXXX

    sub default : Private {
        my( $self, $c ) = @_;

        # XXXXXXXXXXXX( UTF-8, EUC-JP, Shift_JIS )

        my $inner_charset = $c->charsets->in->name;

        # XXXXXXXXXXXXXX( utf8, euc, sjis )

        my $inner_abbrev = $c->charsets->in->abbreviation;

        # XXXXXXXXXXXXJcodeXXXXXXXXXXXXXXX( utf8, euc, sjis )

        my $inner_method = $c->charsets->in->method;

        # XXXXXXXXXXXXXXXXXXXXXXXX
        # name ,abbreviation, method XXXXXXXX

        my $outer_charset = $c->charsets->out->name;
    }

XX
Jcode

Catalyst

XX
Lyo Kato <lyo.kato@gmail.com>