#!perl -T
use Test::More tests => 5;
use Text::TemplateLite;
use Text::TemplateLite::Standard;
my $tpl = Text::TemplateLite->new;
my $trnd = $tpl->new_renderer;
my $ctof = Text::TemplateLite->new;
my $crnd = $ctof->new_renderer;
Text::TemplateLite::Standard::register($_, qw/:misc :numeric :template/)
foreach ($tpl, $ctof);
# tpl, <$>
# °F = 9/5 °C + 32
$ctof->set(q{<<tpl('c_to_f',+(/(*($1,9),5),32))
'freezing '$c_to_f(0)' boiling '$c_to_f(100)>>});
is($crnd->render->result, 'freezing 32 boiling 212', 'nested template');
$ctof->set(q{<<tpl('c_to_f',+(/(*($1,9),5),32))
$=('f_freeze',$c_to_f($c_freeze),'f_boil',$c_to_f($c_boil))>>});
$crnd->render({ c_freeze => 0, c_boil => 100 });
is($crnd->vars->{f_freeze}, 32, 'c_freeze -> f_freeze');
is($crnd->vars->{f_boil}, 212, 'c_boil -> f_boil');
$tpl->register('c_to_f', $ctof)
->set(q{<<c_to_f('c_freeze', 0, 'c_boil', 100)
<$>('f_freeze','f_freeze','f_boil','f_boil','f_boil')>>});
is($trnd->render->result, '212', 'named value from ext tpl');
is_deeply($trnd->vars, { f_freeze => 32, f_boil => 212 },
'import from ext tpl');