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
|
#!perl -w
use strict;
use Text::Xslate;
use FindBin qw($Bin);
use File::Find;
my $path = $Bin;
my $tx = Text::Xslate->new(
path => [$path],
cache_dir => '.eg_cache',
);
# preload templates
find sub {
if(/\.tx$/) {
my $file = $File::Find::name;
$file =~ s/\Q$path\E .//xsm;
$tx->load_file($file);
}
}, $path;
print $tx->render('list.tx', {data => [
{ title => 'Islands in the stream' },
{ title => 'Programming Perl' },
{ title => 'River out of Eden' },
{ title => 'Beautiful code' },
]});
|
