File: augment.pl

package info (click to toggle)
libtext-xslate-perl 3.5.9-2
  • links: PTS, VCS
  • area: main
  • in suites: sid, trixie
  • size: 2,108 kB
  • sloc: perl: 19,756; ansic: 214; pascal: 182; makefile: 9; cs: 8
file content (22 lines) | stat: -rw-r--r-- 306 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
#!perl -w
use strict;
use Text::Xslate;

my %template = (
    'base' => <<'T',
: block hello -> {
    Hello, <: inner :>!
: }
T

    'child' => <<'T',
: cascade 'base'
: augment hello -> { "Augment" }
T
);

my $tx = Text::Xslate->new(
    path => \%template,
    cache => 0,
);
print $tx->render('child');