gistfile1.pl

use strict;
use warnings;
use Test::More;
use Text::Xslate;

my $tx = Text::Xslate->new(
    syntax   => 'TTerse',
    function => {
        return_array => sub { my @array = ('A'..'Z') },
    },
);

my $r = $tx->render_string(<<'...');
[% FOR item IN [ return_array() ]; item; END -%]
...

is($r, "ABCDEFGHIJKLMNOPQRSTUVWXYZ", "list context");

done_testing();