#!perl -w use strict; use warnings; use Test::More; use Text::Xslate; my %vpath = ( 'component.tx' => <<'T', : around body -> { Welcome : super : } T 'main.tx' => <<'T', : cascade with component : block body -> {

<: $message :>

This page was generated from the template : } T ); my $tx = Text::Xslate->new(path => \%vpath, cache => 0); my $out = $tx->render('main.tx', { message => 'OK'}); like $out, qr//; like $out, qr/

/; like $out, qr/OK/; done_testing;