Template::Provider::Encode::Guess - Encode templates by guessing for Template
Toolkit
use Template::Provider::Encode::Guess qw/shiftjis euc-jp/;
use Template;
my $tt = Template->new(
LOAD_TEMPLATES => [Template::Provider::Encode->new({oe => 'utf-8'})]
);
my $author = "\xe3\x81\x9b\xe3\x81\x8d\xe3\x82\x80\xe3\x82\x89";
$tt->process('t/tmpl/SJIS.tt2', {author => $author});
Encode, Encode::Guess, Template::Provider
Masayoshi Sekimura, <sekimura at gmail dot com>
Copyright (C) 2005 by Masayoshi Sekimura
This library is free software; you can redistribute it and/or
modify it under the same terms as Perl itself, either Perl version 5.8.5 or,
at your option, any later version of Perl 5 you may have available.