use strict;
use Template::Test;
my $vars = {
employee_info => [
{ name => 'Sam', job => 'programmer' },
{ name => 'Steve', job => 'soda jerk' },
],
};
test_expect(\*DATA, undef, $vars);
__END__
--test--
[% USE HTML.Template -%]
[% FILTER html_template -%]
<TMPL_LOOP NAME=EMPLOYEE_INFO> Name: <TMPL_VAR NAME=NAME> <br>
Job: <TMPL_VAR NAME=JOB> <p>
</TMPL_LOOP>
[%- END %]
--expect--
Name: Sam <br>
Job: programmer <p>
Name: Steve <br>
Job: soda jerk <p>
--test--
[% USE ht = HTML.Template(loop_context_vars = 1) -%]
[% FILTER $ht -%]
<TMPL_LOOP NAME=EMPLOYEE_INFO><TMPL_IF name=__FIRST__>First</TMPL_IF>
Name: <TMPL_VAR NAME=NAME> <br>
Job: <TMPL_VAR NAME=JOB> <p>
</TMPL_LOOP>
[%- END %]
--expect--
First
Name: Sam <br>
Job: programmer <p>
Name: Steve <br>
Job: soda jerk <p>