Xslate + Email::Simple でメールを送信するの件

http://github.com/tokuhirom/p5-Holsten-Email-Simple-Tiffany-Japanese

Xslate + Email::Simple で MIME::Lite::TT::Japanese っぽいあるいは MoFedge::Mailer っぽいやつがほしいなーとおもったので、つくった。以下のようにつかえる。

use Holsten::Email::Simple::Tiffany::Japanese;
use Email::Sender::Simple qw/sendmail/;

my $estj = Holsten::Email::Simple::Tiffany::Japanese->new(
    'Text::Xslate' => {
        syntax => 'TTerse',
        path   => ['./email_tmpl/'],
    },
);
my $email = $estj->render('foo.eml', {token => $token});
sendmail($email);

メールのテンプレートは以下のようにかける。

Subject: [% name %]様へお特な情報のご案内

おとくですよ！
http://example.com[% path_info %]

Published: 2010-10-08(Fri) 06:22