#!/usr/bin/env perl
use strict;
use warnings;
use Text::Xslate;
use Text::MicroTemplate::Extended;
use Benchmark qw(:all);
use FindBin qw($Bin);
use Test::More;
use Test::Differences;
use lib "$FindBin::Bin/../../..";
use YATT::Lite;
use Config; printf "Perl/%vd %s\n", $^V, $Config{archname};
foreach my $mod(qw(Text::Xslate Text::MicroTemplate Text::MicroTemplate::Extended YATT::Lite)){
print $mod, '/', $mod->VERSION, "\n";
}
my %args = @ARGV;
my $cache = defined($args{'--cache'}) ? $args{'--cache'} : 2;
{
package BlogEntry;
use Any::Moose;
has title => (is => 'rw');
has body => (is => 'rw');
}
my $n = $args{'--size'} || 2;
my @blog_entries = map{ BlogEntry->new($_) } (
{
title => 'Entry one',
body => "This is my first entry.\n" x $n,
},
{
title => 'Entry two',
body => "This is my second entry.\n" x $n,
},
{
title => 'Entry three',
body => "This is my thrid entry.\n" x $n,
},
{
title => 'Entry four',
body => "This is my forth entry.\n" x $n,
},
{
title => 'Entry five',
body => "This is my fifth entry.\n" x $n,
},
);
my $path = "$Bin/template";
my $tx = Text::Xslate->new(
path => [$path],
cache_dir => '.xslate_cache',
cache => $cache,
);
my $mt = Text::MicroTemplate::Extended->new(
include_path => [$path],
template_args => { blog_entries => \@blog_entries },
use_cache => $cache,
);
my $yt = YATT::Lite->new(
app_ns => 'MyApp',
vfs => [dir => $path],
);
{
plan tests => 2;
my $x = $tx->render('child.tx', { blog_entries => \@blog_entries });
my $y = $mt->render('child');
$x =~ s/\n+/\n/g;
$y =~ s/\n+/\n/g;
is $x, $y, "Xslate eq T::MT::Ex" or exit 1;
trim_ws($x);
my $z = $yt->render(child => [\@blog_entries]);
trim_ws($z);
eq_or_diff $z, $x, "Xslate eq YL" or exit 1;
}
print "Benchmarks for template cascading\n";
cmpthese -1 => {
MTEx => sub{ my $body = [ $mt->render('child') ] },
TX => sub{ my $body = [ $tx->render('child.tx', { blog_entries => \@blog_entries }) ] },
YL => sub {
my $body = $yt->render('child', [\@blog_entries]);
}
};
sub trim_ws {
$_[0] =~ s/\n+/\n/g;
$_[0] =~ s/>\s+</></g;
$_[0] =~ s/^\s+</</mg;
$_[0];
}