gistfile1.txt

> cat yamlxs-tt2-utf8.t 
use strict;
use warnings;
use Test::More tests => 2;
use Template::Toolkit::Simple;
use YAML::XS;
use Encode;

my $template = <<'...';
Hello, [% name %]
...

my $data1 = { name => 'Ingy döt Net' };
my $data2 = YAML::XS::Load(encode "utf8", "name: Ingy döt Net\n");

my $render1 = tt->data($data1)->render(\$template);
my $render2 = tt->data($data2)->render(\$template);

is $render1, $render2, 'YAML::XS + TT2 + UTF8 == \o/';
is length($render1), length($render2), 'length matches';



> perl yamlxs-tt2-utf8.t 
1..2
ok 1 - YAML::XS + TT2 + UTF8 == \o/
ok 2 - length matches