hide-k.net#blog: 続 C::P::Email::Japaneseの文字化け対処

hide-k.net#blog: C::P::Email::Japaneseの文字化け対処
でWAVE DASH問題に何とか対応しようとしてMIME::TT::Lite::Japaneseに手を加えるというトンチンカンなことをやっていましたが、subtech - Bulknews::Subtech - cp932 vs. shift_jisでEncode::Aliasを使えばいいんじゃないかというお話があったのでEncode::Unicode::Japaneseとからめて試してみました。

sub send : Private {
    use Encode::Alias;
    use Encode::Unicode::Japanese;

    define_alias( qr/jis$/i => '"unijp-jis"' );

    $c->email(
        Template => 'email.tt',
        To => $c->req->param('to'),
        From => $c->req->param('from'),
        Subject => $subject,
    );
}

でけた。
Encode::Alias知りませんでした。
これが正解な気がします。