#!/usr/bin/env perl
use strict;
use warnings;
use Template;
my $input = <<'EOT';
ed=[% ed %] ad=[% ad %]
First | Last |
[% FOREACH voter IN voters %]
[% voter.firstname %] |
[% voter.lastname %] |
[% END %]
EOT
my $vars = {
ed => 'ED',
ad => 'AD',
voters => [
{
firstname => 'F1',
lastname => 'L1',
},
{
firstname => 'F2',
lastname => 'L2',
},
],
};
my $vars2 = {
ed => 'ED',
ad => 'AD',
voters => [
{
firstname => { name => 'F1' },
lastname => { name => 'L1' },
},
{
firstname => { name => 'F2' },
lastname => { name => 'L2' },
},
],
};
my $t = Template::->new;
$t->process(\$input, $vars);
$t->process(\$input, $vars2);