perl MIME::Lite::TT::Japanese Text::ASCIITable

Text::ASCIITableでテーブルを作成してM::T::T::Japanseへこんな感じでわたしてやっていたら
結果のテーブルが変形する。

my $msg = MIME::Lite::TT::Japanese->new(
              From       => 'hoge@hoge.com',
              To         => 'hoge@hoge.com',
              Subject    => 'Hello',
              Template   => \$template,
              TmplParams => { hoge => $text_ascii_table->draw } 
)->send;

何でかなーと思って perldoc MIME::Lite::TT::Japanese したら

LineWidth => 72

こんなパラメータが orz

http://search.cpan.org/~horiuchi/MIME-Lite-TT-Japanese-0.08/lib/MIME/Lite/TT/Japanese.pm
http://search.cpan.org/~lunatic/Text-ASCIITable-0.18/lib/Text/ASCIITable.pm