use strict;
use warnings;
use Test::More tests => 2;

use Text::MicroTemplate;

my $mt = Text::MicroTemplate->new(template => << '...');
1
2<? if (1) { ?>Hello<? } ?>3
<? if (1) { ?>World!<? } ?>4
5
...

my $code = eval $mt->code;
ok !$@, $mt->code;

my $got = $code->();
is $got, "1\n2Hello3\nWorld!4\n5\n";