----- bullet.tt ---------
[%- FOREACH i IN items %]
- [% i %]
[%- END %]
----- columns.tt --------
[%- cols = 3;
rows = items.size div cols;
rows = rows+1 IF items.size % cols %]
[%- FOR i IN [0 .. rows - 1] %]
[%- FOR j IN [0 .. cols -1] %]
[% items.${ i + rows * j } %] |
[%- END %]
[%- END %]
------ optional.tt
[% PROCESS ${ items.size > 10 ? "columns.tt" : "bullet.tt" } %]
------ my_perl.pl ------
use Template::Alloy;
my $t = Template::Alloy->new;
my $data = {
items => [1 .. 10],
};
$t->process("bullet.tt", $data) || die $t->error;
$t->process("columns.tt", $data) || die $t->error;
__END__
prints