1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
#!perl
# recursive call of render()
# related to issue #65 but there are no problems.
#
use strict;
use warnings;
use Test::More;
use Text::Xslate;
my %vpath = (
foo => <<'T',
: for [42] -> $i {
: render('bar');
: }
T
bar => <<'T',
Hello, world!
T
);
my $tx;
$tx = Text::Xslate->new(
cache => 0,
path => [\%vpath],
function => {
render => sub {
return $tx->render(@_);
},
},
);
is $tx->render('foo'), "Hello, world!\n";
done_testing;
|
