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
|
#!perl -w
use strict;
use Benchmark qw(:all);
use Text::Xslate;
my $tx = Text::Xslate->new();
my $tt = Text::Xslate->new(syntax => 'TTerse');
my $x = <<'T';
List:
: for $data ->($item) {
* <:= $item.title :>
* <:= $item.title :>
* <:= $item.title :>
: }
T
my $y = <<'T';
List:
[% FOREACH item IN data -%]
* [% item.title %]
* [% item.title %]
* [% item.title %]
[% END -%]
T
print "Parser: Kolon v.s. TTerse\n";
cmpthese 0, {
kolon => sub { $tx->compile($x) },
tterse => sub { $tt->compile($y) },
};
|
