#!/usr/bin/perl
use strict;
use warnings;
use Test::More tests => 3;
use tt foo => "bar";
sub [% foo %] { "foobar" }
[% i = 0 %]
[% subs = ["la", "da"] %]
[% FOR subname IN subs %]
sub [% subname %] { [% i %] }
[% i = i+1 %]
[% END %]
no tt;
is( bar(), "foobar", "compiled sub" );
is( la(), 0, "TT loop seems to work" );
is( da(), 1, "TT loop seems to work" );