gistfile1.pl

use strict;
use warnings;
use Test::More tests => 1;
use Text::MicroTemplate qw(:all);

is render_mt(<<'...')->as_string, "abc\n1\n2\n3\ndef\n";
abc
? if (1) {
?     for my $n (1..3) {
?= $n
?     }
? }
def
...