#!perl
use strict;
use warnings;
use Text::Xslate;
my %vpath = (
'foo.tx' => 'Hello, <: $a ~ $b :> world!' . "\n",
'bar.tx' => ': include foo { __ROOT__.merge({ b => " with Kolon"}) }',
);
my $tx = Text::Xslate->new(
cache => 0,
path => \%vpath,
);
print $tx->render('bar.tx', { a => 'Xslate' });