テスト環境のMIME::Lite::TT::Japanese

Perl

テスト環境でMIME::Lite::TT::Japanese使うとき、
実際に外部にメールしたくない。
(したいときもあるかもしれないけど、通常はしなくていいはず。)
あぶないしね。なにかと。

そんなとき、こうするとよい。



my $mail = MIME::Lite::TT::Japanese->new(

    %$args,

);

if ( $DEBUG ) {

    $mail->print(\*STDERR);

} else {

    $mail->send;

}

$mail->print('/bin/cat');
とかでもいい。（コマンドラインの場合）

いま、弊社ではMIME::Lite::TT::Japaneseをラップした
MoFedge::Mailを使用中。
いい感じで使えてる。

多分其のうちMoFedge::Mail公開すっかなぁ。