:ClearSilver::HDF->$method();
};
isnt $@, '', "call $method as a class method";
eval {
Text::ClearSilver::HDF->$method("");
};
isnt $@, '', "call $method as a class method
";
eval {
Text::ClearSilver::HDF->$method("", "");
};
isnt $@, '', "call $method as a class method";
}
note "for Text::ClearSilver::CS";
foreach my $method(Mouse::Meta::Class->in
::ClearSilver::CS->$method();
};
isnt $@, '', "call $method as a class method";
eval {
Text::ClearSilver::CS->$method("");
};
isnt $@, '', "call $method as a class method"
>new();
isa_ok $hdf, "Text::ClearSilver::HDF";
$hdf->read_file("t/data/basic.hdf");
isnt $hdf->dump, '', '$hdf->dump';
my $lev2 = $hdf->get_obj("TopNode.2nd1");
ok $lev2, "get_o
cs->render($sout);
close $sout;
is $buff, "foo value3 bar", "render to filehandle";
isnt $cs->dump, "", '$cs->dump';
$cs = Text::ClearSilver::CS->new($hdf);
$cs->parse_file("t/d
"encoding => 'utf8'";
undef $out;
$tcs->process(\$template, \%var, \$out, encoding => 'bytes');
isnt $out, qq{"駱駝" means "camel" in Japanese Kanji\n}, "encoding => 'bytes' breaks the output";
u
f $out;
$tcs->process('camel.tcs', \%var, \$out, load_path => [qw(t/data)], encoding => 'bytes');
isnt $out, qq{"駱駝"は英語で"camel"といいます。\n}, "encoding => 'bytes' breaks the output