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
|
#!perl -w
use strict;
use Text::Xslate;
use UNIVERSAL(); # makes NYTProf happy
{
package BlogEntry;
use Mouse;
has title => (is => 'rw');
has body => (is => 'rw');
}
my($cache, $n) = @ARGV;
$cache //= 1;
$n //= 100;
my @blog_entries = map{ BlogEntry->new($_) } (
{
title => 'Entry one',
body => 'This is my first entry.',
},
{
title => 'Entry two',
body => 'This is my second entry.',
},
) x 10;
for(1 .. $n) {
my $tx = Text::Xslate->new(
path => ["./benchmark/template"],
cache => $cache,
);
$tx->render('child.tx', { blog_entries => \@blog_entries });
}
print $INC{'Text/Xslate/Compiler.pm'} ? "compiled.\n" : "cached.\n";
|
