Text-Xslate-3.4.0/0000755000175000017500000000000013040325435013261 5ustar syoheisyoheiText-Xslate-3.4.0/benchmark/0000755000175000017500000000000013040325435015213 5ustar syoheisyoheiText-Xslate-3.4.0/benchmark/expr.pl0000644000175000017500000000232513040006205016517 0ustar syoheisyohei#!perl -w use strict; use Text::Xslate; use Text::MicroTemplate qw(build_mt); use Benchmark qw(:all); use Config; printf "Perl/%vd %s\n", $^V, $Config{archname}; use Test::More; foreach my $mod(qw(Text::Xslate Text::MicroTemplate)){ print $mod, '/', $mod->VERSION, "\n"; } my $n = shift(@ARGV) || 100; my %vpath = ( expr => "Hello, <:= \$value + 1 :> world!\n" x $n, ); my $tx = Text::Xslate->new( path => \%vpath, cache_dir => '.xslate_cache', cache => 2, ); my $mt = build_mt(qq{Hello, {value} + 1 ?> world!\n} x $n); my $subst_tmpl = qq{Hello, %value% world!\n} x $n; my $vars = { value => '41', }; { plan tests => 2; my $expected = $tx->render(expr => $vars); is $mt->($vars), $expected, 'MT'; my $body = [$subst_tmpl]; $body->[0] =~ s/%(\w+)%/ $vars->{$1} + 1 /eg; is $body->[0], $expected, 's///g'; } # suppose PSGI response body cmpthese -1 => { xslate => sub { my $body = [$tx->render(expr => $vars)]; return; }, mt => sub { my $body = [$mt->($vars)]; return; }, 's///g' => sub { my $body = [$subst_tmpl]; $body->[0] =~ s/%(\w+)%/ $vars->{$1} + 1 /eg; return; }, }; Text-Xslate-3.4.0/benchmark/demo-tt.pl0000644000175000017500000000247713040006205017122 0ustar syoheisyohei#!perl -w use strict; use Text::Xslate; use Template; use Time::HiRes qw(time); use FindBin qw($Bin); use Config; printf "Perl/%vd %s\n", $^V, $Config{archname}; foreach my $mod(qw(Text::Xslate Template)){ print $mod, '/', $mod->VERSION, "\n"; } my $file = 'list.tt'; my $tt = Template->new( INCLUDE_PATH => ["$Bin/template"], COMPILE_EXT => '.out', ); my $tx = Text::Xslate->new( syntax => 'TTerse', path => ["$Bin/template"], cache_dir => '.xslate_cache', cache => 2, ); my %vars = ( data => [ ({ title => 'Programming Perl'}) x 100, ] ); { my $out; $tt->process($file, \%vars, \$out); $tx->render($file, \%vars) eq $out or die $tx->render($file, \%vars), "\n", $out; } $| = 1; print "Template-Toolkit's process() x 1000\n"; my $start = time(); foreach (1 .. 1000) { print $_, "\r"; $tt->process($file, \%vars, \my $out); } print "\n"; my $tt_used = time() - $start; printf "Used: %.03f sec.\n", $tt_used; print "Text::Xslate's render() x 1000\n"; $start = time(); foreach (1 .. 1000) { print $_, "\r"; my $out = $tx->render($file, \%vars); } print "\n"; my $tx_used = time() - $start; printf "Used: %.03f sec.\n", $tx_used; printf "In this benchmark, Xslate is about %.01f times faster than Template-Tookit.\n", $tt_used / $tx_used; Text-Xslate-3.4.0/benchmark/expr_eq.pl0000644000175000017500000000245413040006205017207 0ustar syoheisyohei#!perl -w use strict; use Text::Xslate; use Text::MicroTemplate qw(build_mt); use Benchmark qw(:all); use Config; printf "Perl/%vd %s\n", $^V, $Config{archname}; use Test::More; foreach my $mod(qw(Text::Xslate Text::MicroTemplate)){ print $mod, '/', $mod->VERSION, "\n"; } my $n = shift(@ARGV) || 100; my %vpath = ( expr_eq => "Hello, <:= \$value == 42 ? 'Xslate' : 'unlikely' :> world!\n" x $n, ); my $tx = Text::Xslate->new( path => \%vpath, cache_dir => '.xslate_cache', cache => 2, ); my $mt = build_mt(qq{Hello, {value} == 42 ? 'Xslate' : 'unlikely' ?> world!\n} x $n); my $subst_tmpl = qq{Hello, %value% world!\n} x $n; my $vars = { value => '41', }; { plan tests => 2; my $expected = $tx->render(expr_eq => $vars); is $mt->($vars), $expected, 'MT'; my $body = [$subst_tmpl]; $body->[0] =~ s/%(\w+)%/ $vars->{$1} == 42 ? 'Xslate' : 'unlikely' /eg; is $body->[0], $expected, 's///g'; } # suppose PSGI response body cmpthese -1 => { xslate => sub { my $body = [$tx->render(expr_eq => $vars)]; return; }, mt => sub { my $body = [$mt->($vars)]; return; }, 's///g' => sub { my $body = [$subst_tmpl]; $body->[0] =~ s/%(\w+)%/ $vars->{$1} + 1 /eg; return; }, }; Text-Xslate-3.4.0/benchmark/x-poor-env.pl0000644000175000017500000000725313040006205017560 0ustar syoheisyohei#!perl # For poor environment, e.g. CGI applications without XS BEGIN { $ENV{PERL_ONLY}= 1 } use strict; use warnings; use Getopt::Long; use Test::More; use Benchmark qw(:all); use FindBin qw($Bin); use Template; use HTML::Template; use Text::MicroTemplate::Extended; use Config; printf "Perl/%vd %s\n", $^V, $Config{archname}; GetOptions( 'booster' => \my $pp_booster, 'opcode' => \my $pp_opcode, 'size=i' => \my $n, 'template=s' => \my $tmpl, 'help' => \my $help, ); die <<'HELP' if $help; perl -Mblib benchmark/x-poor-env.pl [--size N] [--template NAME] [--opcode|booster] This is a general benchmark utility for poor environment, assuming CGI applications using only pure Perl modules. See also benchmark/x-rich-env.pl. HELP $tmpl = 'include' if not defined $tmpl; $n = 100 if not defined $n; if(defined $pp_booster) { $ENV{XSLATE} = 'pp=booster'; } elsif(defined $pp_opcode) { $ENV{XSLATE} = 'pp=opcode'; } $ENV{MOUSE_PUREPERL} = 1; $Template::Config::STASH = 'Template::Stash'; # Instead of Stash::XS require Text::Xslate::PP; foreach my $mod(qw( Text::Xslate Template HTML::Template Text::MicroTemplate Text::MicroTemplate::Extended )){ print $mod, '/', $mod->VERSION, "\n" if $mod->VERSION; } my $path = "$Bin/template"; my $vars = { data => [ ({ title => "", author => "BAR", abstract => "BAZ", }) x $n ], }; TEST: { my $tx = Text::Xslate->new( path => [$path], cache_dir => '.xslate_cache', cache => 2, ); my $mt = Text::MicroTemplate::Extended->new( include_path => [$path], use_cache => 2, ); my $tt = Template->new( INCLUDE_PATH => [$path], COMPILE_EXT => '.out', ); my $ht = HTML::Template->new( path => [$path], filename => "$tmpl.ht", case_sensitive => 1, die_on_bad_params => 0, double_file_cache => 1, file_cache_dir => '.xslate_cache', ); my $expected = $tx->render("$tmpl.tx", $vars); $expected =~ s/\n+/\n/g; plan tests => 3; $tt->process("$tmpl.tt", $vars, \my $out) or die $tt->error; $out =~ s/\n+/\n/g; is $out, $expected, 'TT: Template-Toolkit'; $out = $mt->render_file($tmpl, $vars); $out =~ s/\n+/\n/g; is $out, $expected, 'MT: Text::MicroTemplate'; $ht->param($vars); $out = $ht->output(); $out =~ s/\n+/\n/g; is $out, $expected, 'HT: HTML::Template'; } print "Benchmarks with '$tmpl' (datasize=$n)\n"; cmpthese -1 => { Xslate => sub { my $tx = Text::Xslate->new( path => [$path], cache_dir => '.xslate_cache', cache => 2, ); my $body = $tx->render("$tmpl.tx", $vars); return; }, MT => sub { my $mt = Text::MicroTemplate::Extended->new( include_path => [$path], cache => 2, ); my $body = $mt->render_file($tmpl, $vars); return; }, TT => sub { my $tt = Template->new( INCLUDE_PATH => [$path], COMPILE_EXT => '.out', ); my $body; $tt->process("$tmpl.tt", $vars, \$body) or die $tt->error; return; }, HT => sub { my $ht = HTML::Template->new( path => [$path], filename => "$tmpl.ht", case_sensitive => 1, die_on_bad_params => 0, double_file_cache => 1, file_cache_dir => '.xslate_cache', ); $ht->param($vars); my $body = $ht->output(); return; }, }; Text-Xslate-3.4.0/benchmark/procs/0000755000175000017500000000000013040325435016341 5ustar syoheisyoheiText-Xslate-3.4.0/benchmark/procs/sort.pl0000644000175000017500000000224713040006205017661 0ustar syoheisyohei#!perl -w use strict; use Text::Xslate; use Text::MicroTemplate qw(build_mt); use Benchmark qw(:all); use Config; printf "Perl/%vd %s\n", $^V, $Config{archname}; use Test::More; foreach my $mod(qw(Text::Xslate Text::MicroTemplate)){ print $mod, '/', $mod->VERSION, "\n"; } my $n = shift(@ARGV) || 10; my %vpath = ( sort => <<'TX' x $n, : for $data.sort(-> $a, $b { $a.value <=> $b.value }) -> $v { [<: $v.value :>] : } TX ); my $tx = Text::Xslate->new( path => \%vpath, cache_dir => '.xslate_cache', cache => 2, ); my $mt = build_mt(<<'T' x $n); ? { ? my $data = $_[0]->{data}; ? for my $v(sort { $a->{value} <=> $b->{value} } @{$data}) { [{value} ?>] ? } ? } T my $vars = { data => [ map { +{ value => $_ } } reverse 1 .. 100 ], }; { plan tests => 1; is $mt->($vars), $tx->render(sort => $vars), 'MT' or exit(1); } # suppose PSGI response body print q{Benchmark of sort-by-values ($a.sort( -> $a, $b { $a.value <=> $b.value })):}, "\n"; cmpthese -1 => { xslate => sub { my $body = [$tx->render(sort => $vars)]; return; }, mt => sub { my $body = [$mt->($vars)]; return; }, }; Text-Xslate-3.4.0/benchmark/procs/keys.pl0000644000175000017500000000175213040006205017645 0ustar syoheisyohei#!perl -w use strict; use Text::Xslate; use Text::MicroTemplate qw(build_mt); use Benchmark qw(:all); use Config; printf "Perl/%vd %s\n", $^V, $Config{archname}; use Test::More; foreach my $mod(qw(Text::Xslate Text::MicroTemplate)){ print $mod, '/', $mod->VERSION, "\n"; } my $n = shift(@ARGV) || 10; my %vpath = ( keys => <<'TX' x $n, : for $h.keys() -> $k { [<: $k :>] : } TX ); my $tx = Text::Xslate->new( path => \%vpath, cache_dir => '.xslate_cache', cache => 2, ); my $mt = build_mt(<<'T' x $n); ? for my $k(sort keys %{ $_[0]->{h} }) { [] ? } T my $subst_tmpl = qq{Hello, %value% world!\n} x $n; my $vars = { h => { %ENV }, }; { plan tests => 1; is $mt->($vars), $tx->render(keys => $vars), 'MT' or exit(1); } # suppose PSGI response body cmpthese -1 => { xslate => sub { my $body = [$tx->render(keys => $vars)]; return; }, mt => sub { my $body = [$mt->($vars)]; return; }, }; Text-Xslate-3.4.0/benchmark/procs/function.pl0000644000175000017500000000216113040006205020512 0ustar syoheisyohei#!perl -w use strict; use Text::Xslate; use Text::MicroTemplate qw(build_mt); use Benchmark qw(:all); use Config; printf "Perl/%vd %s\n", $^V, $Config{archname}; foreach my $mod(qw(Text::Xslate Text::MicroTemplate)){ print $mod, '/', $mod->VERSION, "\n"; } my $n = shift(@ARGV) || 100; my %vpath = ( function => <<'TX' x $n, Hello, <:= $lang | uc :> world! TX ); my $tx = Text::Xslate->new( path => \%vpath, cache_dir => '.xslate_cache', cache => 2, function => { uc => sub { uc $_[0] } }, ); my $mt = build_mt("Hello, {lang}) ?> world!\n" x $n); my $subst_tmpl = qq{Hello, %lang% world!\n} x $n; my $vars = { lang => 'Template', }; $tx->render(function => $vars) eq $mt->($vars) or die $tx->render(function => $vars); # suppose PSGI response body cmpthese -1 => { xslate => sub { my $body = [$tx->render(function => $vars)]; return; }, mt => sub { my $body = [$mt->($vars)]; return; }, 's///g' => sub { my $body = [$subst_tmpl]; $body->[0] =~ s/%(\w+)%/uc($vars->{$1})/eg; return; }, }; Text-Xslate-3.4.0/benchmark/procs/fib.pl0000644000175000017500000000211713040006205017426 0ustar syoheisyohei#!perl -w use strict; use Text::Xslate; use Text::MicroTemplate qw(build_mt); use Benchmark qw(:all); use Config; printf "Perl/%vd %s\n", $^V, $Config{archname}; use Test::More; foreach my $mod(qw(Text::Xslate Text::MicroTemplate)){ print $mod, '/', $mod->VERSION, "\n"; } my $n = shift(@ARGV) || 10; my %vpath = ( fib => <<'TX', : macro fib -> $n { : $n <= 1 ? 1 : fib($n - 1) + fib($n - 2); : } : fib($x); TX ); my $tx = Text::Xslate->new( path => \%vpath, cache_dir => '.xslate_cache', cache => 2, ); my $mt = build_mt(<<'MT'); ? sub fib { ? my($n) = @_; ? $n <= 1 ? 1 : fib($n - 1) + fib($n - 2); ? } ?= fib($_[0]->{x}) MT my $vars = { x => $n, }; { plan tests => 1; my $out = $mt->($vars); chomp $out; is $out, $tx->render(fib => $vars), 'MT' or die; } # suppose PSGI response body print "fib($n) = ", $tx->render(fib => $vars), "\n"; cmpthese -1 => { xslate => sub { my $body = [$tx->render(fib => $vars)]; return; }, mt => sub { my $body = [$mt->($vars)]; return; }, }; Text-Xslate-3.4.0/benchmark/procs/map.pl0000644000175000017500000000175413040006205017451 0ustar syoheisyohei#!perl -w use strict; use Text::Xslate; use Text::MicroTemplate qw(build_mt); use Benchmark qw(:all); use Config; printf "Perl/%vd %s\n", $^V, $Config{archname}; use Test::More; foreach my $mod(qw(Text::Xslate Text::MicroTemplate)){ print $mod, '/', $mod->VERSION, "\n"; } my $n = shift(@ARGV) || 10; my %vpath = ( map => <<'TX' x $n, : for $data.map(-> $x { $x + 1 }) -> $v { [<: $v :>] : } TX ); my $tx = Text::Xslate->new( path => \%vpath, cache_dir => '.xslate_cache', cache => 2, ); my $mt = build_mt(<<'T' x $n); ? { ? my $data = $_[0]->{data}; ? for my $v(map{ $_ + 1 } @{$data}) { [] ? } ? } T my $vars = { data => [ 1 .. 100 ], }; { plan tests => 1; is $mt->($vars), $tx->render(map => $vars), 'MT' or exit(1); } # suppose PSGI response body cmpthese -1 => { xslate => sub { my $body = [$tx->render(map => $vars)]; return; }, mt => sub { my $body = [$mt->($vars)]; return; }, }; Text-Xslate-3.4.0/benchmark/procs/method.pl0000644000175000017500000000302213040006205020142 0ustar syoheisyohei#!perl -w use strict; use Text::Xslate; use Text::MicroTemplate qw(build_mt); use Benchmark qw(:all); use Config; printf "Perl/%vd %s\n", $^V, $Config{archname}; use Test::More; foreach my $mod(qw(Text::Xslate Text::MicroTemplate)){ print $mod, '/', $mod->VERSION, "\n"; } my $n = shift(@ARGV) || 10; { package Pair; use Mouse; has [qw(key value)] => ( is => 'rw', ); __PACKAGE__->meta->make_immutable(); } my %vpath = ( accessor => <<'TX' x $n, : for $data -> $v { [<: $v.key :>]=[<: $v.value :>] : } TX method => <<'TX' x $n, : for $data -> $v { [<: $v.key() :>]=[<: $v.value() :>] : } TX ); my $tx = Text::Xslate->new( path => \%vpath, cache_dir => '.xslate_cache', cache => 2, ); my $mt = build_mt(<<'T' x $n); ? { ? my $data = $_[0]->{data}; ? for my $v(@{$data}) { [key ?>]=[value ?>] ? } ? } T my $vars = { data => [ map { Pair->new(key => $_, value => $ENV{$_}) } keys %ENV ], #data => [ map { +{ key => $_, value => $ENV{$_} } } keys %ENV ], }; { plan tests => 1; is $mt->($vars), $tx->render(method => $vars), 'MT' or exit(1); } # suppose PSGI response body print "xslate/1 as field access, xslate/2 as method call, MT as method call\n"; cmpthese -1 => { 'xslate/1' => sub { my $body = [$tx->render(accessor => $vars)]; return; }, 'xslate/2' => sub { my $body = [$tx->render(method => $vars)]; return; }, MT => sub { my $body = [$mt->($vars)]; return; }, }; Text-Xslate-3.4.0/benchmark/procs/values.pl0000644000175000017500000000203013040006205020157 0ustar syoheisyohei#!perl -w use strict; use Text::Xslate; use Text::MicroTemplate qw(build_mt); use Benchmark qw(:all); use Config; printf "Perl/%vd %s\n", $^V, $Config{archname}; use Test::More; foreach my $mod(qw(Text::Xslate Text::MicroTemplate)){ print $mod, '/', $mod->VERSION, "\n"; } my $n = shift(@ARGV) || 10; my %vpath = ( values => <<'TX' x $n, : for $h.values() -> $v { [<: $v :>] : } TX ); my $tx = Text::Xslate->new( path => \%vpath, cache_dir => '.xslate_cache', cache => 2, ); my $mt = build_mt(<<'T' x $n); ? { ? my $h = $_[0]->{h}; ? for my $v(map{ $h->{$_ } } sort keys %{ $h }) { [] ? } ? } T my $subst_tmpl = qq{Hello, %value% world!\n} x $n; my $vars = { h => { %ENV }, }; { plan tests => 1; is $mt->($vars), $tx->render(values => $vars), 'MT' or exit(1); } # suppose PSGI response body cmpthese -1 => { xslate => sub { my $body = [$tx->render(values => $vars)]; return; }, mt => sub { my $body = [$mt->($vars)]; return; }, }; Text-Xslate-3.4.0/benchmark/procs/uri_escape.pl0000644000175000017500000000250613040006205021007 0ustar syoheisyohei#!perl -w use strict; use Text::Xslate; use URI::Escape; use URI::Escape::XS; use Benchmark qw(:all); use Config; printf "Perl/%vd %s\n", $^V, $Config{archname}; foreach my $mod(qw(Text::Xslate URI::Escape URI::Escape::XS)){ print $mod, '/', $mod->VERSION, "\n"; } my $n = shift(@ARGV) || 100; my %vpath = ( builtin_uri => <<'TX' x $n, Hello, <: $lang | uri :> world! TX uri_escape_pp => <<'TX' x $n, Hello, <: $lang | uri_pp :> world! TX uri_escape_xs => <<'TX' x $n, Hello, <: $lang | uri_xs :> world! TX ); my $tx = Text::Xslate->new( path => \%vpath, cache_dir => '.xslate_cache', cache => 2, function => { uri_pp => \&uri_escape, uri_xs => \&encodeURIComponent, }, ); my $vars = { lang => '/Text::Xslate/', }; { use Test::More; plan tests => 2; is $tx->render(uri_escape_pp => $vars), $tx->render(builtin_uri => $vars), 'URI::Escape'; is $tx->render(uri_escape_xs => $vars), $tx->render(builtin_uri => $vars), 'URI::Escape:XS'; } # suppose PSGI response body cmpthese -1 => { builtin => sub { my $body = [$tx->render(builtin_uri => $vars)]; }, 'URI::Escape' => sub { my $body = [$tx->render(uri_escape_pp => $vars)]; }, 'URI::Escape::XS' => sub { my $body = [$tx->render(uri_escape_xs => $vars)]; }, }; Text-Xslate-3.4.0/benchmark/interpolate.pl0000644000175000017500000000345613040006205020075 0ustar syoheisyohei#!perl -w use strict; use Text::Xslate; use Text::MicroTemplate qw(build_mt); use Benchmark qw(:all); use Config; printf "Perl/%vd %s\n", $^V, $Config{archname}; foreach my $mod(qw(Text::Xslate Text::MicroTemplate)){ print $mod, '/', $mod->VERSION, "\n"; } my($n, $data) = @ARGV; $n ||= 100; $data ||= 10; my %vpath = ( interpolate => <<'TX' x $n, Hello, <:= $lang :> world! TX interpolate_raw => <<'TX' x $n, Hello, <:= $lang | raw :> world! TX ); my $tx = Text::Xslate->new( path => \%vpath, cache_dir => '.xslate_cache', cache => 2, ); my $mt = build_mt("Hello, {lang} ?> world!\n" x $n); my $subst_tmpl = qq{Hello, %lang% world!\n} x $n; my $sprintf_tmpl = qq{Hello, %1\$s world!\n} x $n; my $vars = { lang => 'Template' x $data, }; printf "template size: %d bytes; data size: %d bytes\n", length $vpath{interpolate}, length $vars->{lang}; { use Test::More; plan tests => 4; my $x = $tx->render(interpolate => $vars); is $tx->render(interpolate_raw => $vars), $x, 'xslate/raw (w/o escaping)'; is $mt->($vars), $x, 'Text::MicroTemplate'; (my $o = $subst_tmpl) =~ s/%(\w+)%/$vars->{$1}/g; is $o, $x, 's///g'; is sprintf($sprintf_tmpl, $vars->{lang}), $x, 'sprintf'; } # suppose PSGI response body cmpthese -1 => { xslate => sub { my $body = [$tx->render(interpolate => $vars)]; return; }, 'xslate/raw' => sub { my $body = [$tx->render(interpolate_raw => $vars)]; return; }, TMT => sub { my $body = [$mt->($vars)]; return; }, 's///g' => sub { my $body = [$subst_tmpl]; $body->[0] =~ s/%(\w+)%/$vars->{$1}/g; return; }, 'sprintf' => sub { my $body = [ sprintf $sprintf_tmpl, $vars->{lang} ]; return; }, }; Text-Xslate-3.4.0/benchmark/cascade.pl0000644000175000017500000000343413040006205017126 0ustar syoheisyohei#!perl -w use strict; use Text::Xslate; use Text::MicroTemplate::Extended; use Benchmark qw(:all); use FindBin qw($Bin); use Test::More; use Config; printf "Perl/%vd %s\n", $^V, $Config{archname}; foreach my $mod(qw(Text::Xslate Text::MicroTemplate Text::MicroTemplate::Extended)){ print $mod, '/', $mod->VERSION, "\n"; } my %args = @ARGV; my $cache = defined($args{'--cache'}) ? $args{'--cache'} : 2; { package BlogEntry; use Mouse; 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, ); { plan tests => 1; my $x = $tx->render('child.tx', { blog_entries => \@blog_entries }); my $y = $mt->render('child'); $x =~ s/\n//g; $y =~ s/\n//g; is $x, $y, "Xslate eq T::MT::Ex" 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 }) ] }, }; Text-Xslate-3.4.0/benchmark/json.pl0000644000175000017500000000255513040006205016517 0ustar syoheisyohei#!perl -w use strict; use Text::Xslate; use JSON::XS; use Benchmark qw(:all); use Config; printf "Perl/%vd %s\n", $^V, $Config{archname}; foreach my $mod(qw(Text::Xslate JSON::XS)){ print $mod, '/', $mod->VERSION, "\n"; } my $n = shift(@ARGV) || 10; my %vpath = ( json => <<'TX', TX ); my $tx = Text::Xslate->new( path => \%vpath, cache_dir => '.xslate_cache', cache => 2, ); my $json = JSON::XS->new(); my %vars = ( books => [( { title => 'Islands in the stream', author => 'Ernest Hemingway' }, { title => 'Beautiful code', author => 'Brian Kernighan, Jon Bentley, et. al.' }, { title => q{Atkinson and Hilgard's Introduction to Psychology With Infotrac}, # ' author => 'Edward E. Smith, et. al.' }, { title => 'Programming Perl', author => 'Larry Wall, et.al.' }, { title => 'Compilers: Principles, Techniques, and Tools', author => 'Alfred V. Aho, et. al.' }, ) x $n], ); if(0) { print $tx->render(json => \%vars); print $json->encode(\%vars); } cmpthese -1 => { xslate => sub { my $body = $tx->render(json => \%vars); return; }, json => sub { my $body = $json->encode(\%vars); return; }, }; Text-Xslate-3.4.0/benchmark/data_section.pl0000644000175000017500000000327213040006205020200 0ustar syoheisyohei#!perl -w use strict; use Text::Xslate; use Data::Section::Simple qw(get_data_section); use FindBin qw($Bin); use Benchmark qw(:all); use Config; printf "Perl/%vd %s\n", $^V, $Config{archname}; foreach my $mod(qw(Text::Xslate)){ print $mod, '/', $mod->VERSION, "\n"; } my $n = shift(@ARGV) || 10; my $tx1 = Text::Xslate->new( path => [ get_data_section(), "$Bin/template" ], cache_dir => ".xslate_cache", cache => 1, ); my $tx2 = Text::Xslate->new( path => [ get_data_section(), "$Bin/template" ], cache_dir => ".xslate_cache", cache => 2, ); my $vars = { books => [( { title => 'Islands in the stream' }, { title => 'Beautiful code' }, { title => 'Introduction to Psychology' }, { title => 'Programming Perl' }, { title => 'Compilers: Principles, Techniques, and Tools' }, ) x $n], }; { use Test::More; plan tests => 2; is $tx1->render('list_ds.tx', $vars), $tx1->render('list.tx', $vars) or die; is $tx2->render('list_ds.tx', $vars), $tx2->render('list.tx', $vars) or die; } print "Files v.s. __DATA__ with cache => 1 or 2\n"; cmpthese -1 => { 'file/1' => sub { my $body = [$tx1->render('list.tx', $vars)]; return; }, 'file/2' => sub { my $body = [$tx2->render('list.tx', $vars)]; return; }, 'vpath/1' => sub { my $body = [$tx1->render('list_ds.tx', $vars)]; return; }, 'vpath/2' => sub { my $body = [$tx2->render('list_ds.tx', $vars)]; return; }, }; __DATA__ @@ list_ds.tx List: : for $data ->($item) { * <:= $item.title :> * <:= $item.title :> * <:= $item.title :> : } Text-Xslate-3.4.0/benchmark/for.pl0000644000175000017500000000404213040006205016325 0ustar syoheisyohei#!perl -w use strict; use Text::Xslate; use Text::MicroTemplate qw(build_mt); use HTML::Template::Pro; use Benchmark qw(:all); use Config; printf "Perl/%vd %s\n", $^V, $Config{archname}; foreach my $mod(qw(Text::Xslate Text::MicroTemplate HTML::Template::Pro)){ print $mod, '/', $mod->VERSION, "\n"; } my $n = shift(@ARGV) || 10; my %vpath = ( for => <<'TX', TX ); my $tx = Text::Xslate->new( path => \%vpath, cache_dir => '.xslate_cache', cache => 2, ); my $mt = build_mt(<<'MT_END'); MT_END my $ht = HTML::Template->new(scalarref => \<<'HT_END', case_sensitive => 1); HT_END my %vars = ( books => [( { title => 'Islands in the stream' }, { title => 'Beautiful code' }, { title => 'Introduction to Psychology' }, { title => 'Programming Perl' }, { title => 'Compilers: Principles, Techniques, and Tools' }, ) x $n], ); $tx->render(for => \%vars) eq $mt->(\%vars) or die $tx->render(for => \%vars); #$ht->param(\%vars);die $ht->output(); # suppose PSGI response body cmpthese -1 => { xslate => sub { my $body = [$tx->render(for => \%vars)]; return; }, mt => sub { my $body = [$mt->(\%vars)]; return; }, ht => sub{ $ht->param(\%vars); my $body = [$ht->output()]; return; }, }; Text-Xslate-3.4.0/benchmark/demo-mt.pl0000644000175000017500000000245313040006205017105 0ustar syoheisyohei#!perl -w use strict; use Text::Xslate; use Text::MicroTemplate::File; use Time::HiRes qw(time); use FindBin qw($Bin); use Config; printf "Perl/%vd %s\n", $^V, $Config{archname}; foreach my $mod(qw(Text::Xslate Text::MicroTemplate)){ print $mod, '/', $mod->VERSION, "\n"; } my $path = "$Bin/template"; my $mt = Text::MicroTemplate::File->new( include_path => [$path], use_cache => 2, ); my $tx = Text::Xslate->new( path => [$path], cache_dir => '.xslate_cache', cache => 2, ); my %vars = ( data => [ ({ title => 'Programming Perl'}) x 100, ] ); { my $out = $mt->render_file('list.mt', \%vars); $tx->render('list.tx', \%vars) eq $out or die $out; } $| = 1; print "Text::MicrTemplate's render_file() x 1000\n"; my $start = time(); foreach (1 .. 1000) { print $_, "\r"; my $out = $mt->render_file('list.mt', \%vars); } print "\n"; my $mt_used = time() - $start; printf "Used: %.03f sec.\n", $mt_used; print "Text::Xslate's render() x 1000\n"; $start = time(); foreach (1 .. 1000) { print $_, "\r"; my $out = $tx->render('list.tx', \%vars); } print "\n"; my $tx_used = time() - $start; printf "Used: %.03f sec.\n", $tx_used; printf "In this benchmark, Xslate is about %.01f times faster than Text::MicroTemplate.\n", $mt_used / $tx_used; Text-Xslate-3.4.0/benchmark/include.pl0000644000175000017500000000416213040006205017165 0ustar syoheisyohei#!perl -w use strict; use Text::Xslate; use Text::MicroTemplate::Extended; use HTML::Template::Pro; use Template; use Test::More; use Benchmark qw(:all); use FindBin qw($Bin); use Config; printf "Perl/%vd %s\n", $^V, $Config{archname}; foreach my $mod(qw(Text::Xslate Text::MicroTemplate HTML::Template::Pro Template)){ print $mod, '/', $mod->VERSION, "\n"; } my $n = shift(@ARGV) || 10; my @path = ("$Bin/template"); my $tx = Text::Xslate->new( path => \@path, cache_dir => '.xslate_cache', cache => 2, ); my $mt = Text::MicroTemplate::Extended->new( include_path => \@path, use_cache => 2, ); my $ht = HTML::Template->new( path => \@path, filename => "include.ht", case_sensitive => 1, ); my $tt = Template->new( INCLUDE_PATH => \@path, COMPILE_EXT => '.out', ); my %vars = ( data => [( { title => 'Islands in the stream' }, { title => 'Beautiful code' }, { title => 'Introduction to Psychology' }, { title => 'Programming Perl' }, { title => 'Compilers: Principles, Techniques, and Tools' }, ) x $n], ); { my $expected = $tx->render('include.tx', \%vars); $expected =~ s/\n+/\n/g; plan tests => 3; my $out = $mt->render('include', \%vars); $out =~ s/\n+/\n/g; is $out, $expected, 'MT - Text::MicroTemplate::Extended'; $ht->param(\%vars); $out = $ht->output(); $out =~ s/\n+/\n/g; is $out, $expected, 'HT - HTML::Template::Pro'; $out = ''; $tt->process('include.tt', \%vars, \$out) or die $tt->error; is $out, $expected, 'TT - Template-Toolkit'; } print "Benchmarks for include commands\n"; # suppose PSGI response body cmpthese -1 => { Xslate => sub { my $body = [$tx->render('include.tx', \%vars)]; return; }, MT => sub { my $body = [$mt->render('include', \%vars)]; return; }, HT => sub { $ht->param(\%vars); my $body = [$ht->output()]; return; }, TT => sub { my $body = ['']; $tt->process('include.tt', \%vars, \$body->[0]) or die $tt->error; return; }, }; Text-Xslate-3.4.0/benchmark/template/0000755000175000017500000000000013040325435017026 5ustar syoheisyoheiText-Xslate-3.4.0/benchmark/template/list.mst0000644000175000017500000000012013040006205020506 0ustar syoheisyoheiList: $ loop(data) { $ * $=h:title$ * $=h:title$ * $=h:title$ $ } $ Text-Xslate-3.4.0/benchmark/template/child.tx0000644000175000017500000000032513040006205020455 0ustar syoheisyohei: cascade base <: around title ->{ :>My amazing blog<: } :> : around content -> { : for $blog_entries -> ($entry) {

<:= $entry.title :>

<:= $entry.body :>

: } # end for : } # end content Text-Xslate-3.4.0/benchmark/template/base.mt0000644000175000017500000000116213040006205020271 0ustar syoheisyohei <? block title => sub { ?>My amazing site<? }; ?>
sub { } ?>
Text-Xslate-3.4.0/benchmark/template/include.tt0000644000175000017500000000004213040006205021005 0ustar syoheisyoheiInclude: [% INCLUDE "list.tt" -%] Text-Xslate-3.4.0/benchmark/template/list.cs0000644000175000017500000000020413040006205020313 0ustar syoheisyoheiList: * * * Text-Xslate-3.4.0/benchmark/template/list.tt0000644000175000017500000000020713040006205020340 0ustar syoheisyoheiList: [% FOREACH item IN data -%] * [% item.title | html %] * [% item.title | html %] * [% item.title | html %] [% END -%] Text-Xslate-3.4.0/benchmark/template/list.tx0000644000175000017500000000015513040006205020346 0ustar syoheisyoheiList: : for $data ->($item) { * <:= $item.title :> * <:= $item.title :> * <:= $item.title :> : } Text-Xslate-3.4.0/benchmark/template/include.ht0000644000175000017500000000004713040006205020776 0ustar syoheisyoheiInclude: Text-Xslate-3.4.0/benchmark/template/base.tx0000644000175000017500000000114713040006205020307 0ustar syoheisyohei <: block title -> { :>My amazing site<: } :>
<: block content -> { ; } :>
Text-Xslate-3.4.0/benchmark/template/include.mt0000644000175000017500000000003713040006205021002 0ustar syoheisyoheiInclude: ?= include "list", @_ Text-Xslate-3.4.0/benchmark/template/list.tj0000644000175000017500000000021413040006205020324 0ustar syoheisyoheiList: {data} }) { ?> * [= $item->{title} =] * [= $item->{title} =] * [= $item->{title} =] Text-Xslate-3.4.0/benchmark/template/list.ht0000644000175000017500000000025713040006205020331 0ustar syoheisyoheiList: * * * Text-Xslate-3.4.0/benchmark/template/child.mt0000644000175000017500000000031213040006205020436 0ustar syoheisyohei? extends "base" sub { ?>My amazing blog ? block content => sub { ? for my $entry(@$blog_entries) {

title ?>

body ?>

? } ? }; Text-Xslate-3.4.0/benchmark/template/include.tx0000644000175000017500000000003513040006205021013 0ustar syoheisyoheiInclude: : include "list.tx" Text-Xslate-3.4.0/benchmark/template/list.mt0000644000175000017500000000020313040006205020325 0ustar syoheisyoheiList: ? for my $item(@{ $_[0]->{data} }) { * {title} ?> * {title} ?> * {title} ?> ? } Text-Xslate-3.4.0/benchmark/template/include.cs0000644000175000017500000000004213040006205020763 0ustar syoheisyoheiInclude: Text-Xslate-3.4.0/benchmark/x-rich-env.pl0000644000175000017500000001242513040006205017523 0ustar syoheisyohei#!perl # For rich environment, e.g. Persistent PSGI applications with XS use strict; use warnings; use Text::Xslate; use Text::MicroTemplate::Extended; use Template; use Getopt::Long; use Test::More; use Benchmark qw(:all); use FindBin qw($Bin); use Storable (); use Config; printf "Perl/%vd %s\n", $^V, $Config{archname}; GetOptions( 'mst' => \my $try_mst, 'tenjin' => \my $try_tenjin, 'clearsilver'=> \my $try_cs, 'size=i' => \my $n, 'template=s' => \my $tmpl, 'first-time' => \my $first_time, 'help' => \my $help, ); die <<'HELP' if $help; perl -Mblib benchmark/x-rich-env.pl [--size N] [--template NAME] This is a general benchmark utility for rich environment, assuming persisitent PSGI applications using XS modules. See also benchmark/x-poor-env.pl. HELP require Text::Xslate; $tmpl = 'include' if not defined $tmpl; $n = 100 if not defined $n; my $has_tcs = ($try_cs && eval q{ use Text::ClearSilver 0.10.5.4; 1 }); warn "Text::ClearSilver is not available ($@)\n" if $@; my $has_mst = ($tmpl eq 'list' && $try_mst && eval q{ use MobaSiF::Template; 1 }); warn "MobaSiF::Template is not available ($@)\n" if $try_mst && $@; my $has_htp = eval q{ use HTML::Template::Pro; 1 }; warn "HTML::Template::Pro is not available ($@)\n" if $@; my $has_tenjin = ($try_tenjin && eval q{ use Tenjin; 1 }); warn "Tenjin is not available ($@)\n" if $try_tenjin && $@; foreach my $mod(qw( Text::Xslate Text::MicroTemplate Text::MicroTemplate::Extended Template Text::ClearSilver MobaSiF::Template HTML::Template::Pro Tenjin )){ print $mod, '/', $mod->VERSION, "\n" if $mod->VERSION; } my $path = "$Bin/template"; sub xslate { return Text::Xslate->new( path => [$path], cache_dir => '.xslate_cache', cache => 2, ); } sub mt { return Text::MicroTemplate::Extended->new( include_path => [$path], use_cache => 2, ); } sub tt { return Template->new( INCLUDE_PATH => [$path], COMPILE_EXT => '.out', ); } sub htp { return HTML::Template::Pro->new( path => [$path], filename => "$tmpl.ht", case_sensitive => 1, ); } sub tcs { return Text::ClearSilver->new( VarEscapeMode => 'html', load_path => [$path], ); } sub tenjin { return Tenjin->new({ path => [$path], strict => 1, }); } my $tx = xslate(); my $mt = mt(); my $tt = tt(); my $htp; if($has_htp) { $htp = htp(); } my $tcs; if($has_tcs) { $tcs = tcs(); } my $mst_in = "$Bin/template/list.mst"; my $mst_bin = "$Bin/template/list.mst.out"; if($has_mst) { MobaSiF::Template::Compiler::compile($mst_in, $mst_bin); } my $tenjin; if($has_tenjin) { $tenjin = tenjin(); } my $vars = { data => [ ({ title => "", author => "BAR", abstract => "BAZ", }) x $n ], }; my $vars_tenjin = Storable::dclone($vars); { my $expected = $tx->render("$tmpl.tx", $vars); $expected =~ s/\n+/\n/g; my $tests = 2; $tests++ if $has_tcs; $tests++ if $has_mst; $tests++ if $has_htp; $tests++ if $has_tenjin; plan tests => $tests; $tt->process("$tmpl.tt", $vars, \my $out) or die $tt->error; $out =~ s/\n+/\n/g; is $out, $expected, 'TT: Template-Toolkit'; $out = $mt->render_file($tmpl, $vars); $out =~ s/\n+/\n/g; is $out, $expected, 'MT: Text::MicroTemplate'; if($has_tcs) { $tcs->process("$tmpl.cs", $vars, \$out); $out =~ s/\n+/\n/g; is $out, $expected, 'TCS: Text::ClearSilver'; } if($has_mst) { $out = MobaSiF::Template::insert($mst_bin, $vars); $out =~ s/\n+/\n/g; is $out, $expected, 'MST: MobaSiF::Template'; } if($has_htp) { $htp->param($vars); $out = $htp->output(); $out =~ s/\n+/\n/g; is $out, $expected, 'HTP: HTML::Template::Pro'; } if($has_tenjin) { $out = $tenjin->render("$tmpl.tj", $vars_tenjin); $out =~ s/\n+/\n/g; is $out, $expected, 'Tenjin'; } } print "Benchmarks with '$tmpl' (datasize=$n)\n"; cmpthese -1 => { Xslate => sub { $tx = xslate() if $first_time; my $body = $tx->render("$tmpl.tx", $vars); return; }, MT => sub { $mt = mt() if $first_time; my $body = $mt->render_file($tmpl, $vars); return; }, TT => sub { $tt = tt() if $first_time; my $body; $tt->process("$tmpl.tt", $vars, \$body) or die $tt->error; return; }, $has_tcs ? ( TCS => sub { $tcs = tcs() if $first_time; my $body; $tcs->process("$tmpl.cs", $vars, \$body); return; }, ) : (), $has_mst ? ( MST => sub { my $body = MobaSiF::Template::insert($mst_bin, $vars); return; }, ) : (), $has_htp ? ( HTP => sub { $htp = htp() if $first_time; $htp->param($vars); my $body = $htp->output(); return; }, ) : (), $has_tenjin ? ( Tenjin => sub { $tenjin = tenjin() if $first_time; my $body = $tenjin->render("$tmpl.tj", $vars_tenjin); return; }, ) : (), }; Text-Xslate-3.4.0/t/0000755000175000017500000000000013040325435013524 5ustar syoheisyoheiText-Xslate-3.4.0/t/000_load.t0000644000175000017500000000105113040006205015173 0ustar syoheisyohei#!perl -w use strict; use Test::More tests => 7; BEGIN { use_ok 'Text::Xslate' } BEGIN { use_ok 'Text::Xslate::Compiler' } BEGIN { use_ok 'Text::Xslate::Parser' } BEGIN { use_ok 'Text::Xslate::Syntax::Kolon' } BEGIN { use_ok 'Text::Xslate::Syntax::Metakolon' } BEGIN { use_ok 'Text::Xslate::Syntax::TTerse' } BEGIN { use_ok 'Text::Xslate::Type::Raw' } diag "Testing Text::Xslate/$Text::Xslate::VERSION"; if(Text::Xslate->isa('Text::Xslate::PP')) { diag "Backend: PP"; } else { diag "Backend: XS"; } diag '$ENV{XSLATE}=', $ENV{XSLATE} || ''; Text-Xslate-3.4.0/t/lib/0000755000175000017500000000000013040325435014272 5ustar syoheisyoheiText-Xslate-3.4.0/t/lib/MyBridge2.pm0000644000175000017500000000035713040006205016410 0ustar syoheisyoheipackage MyBridge2; use strict; use parent qw(Text::Xslate::Bridge); __PACKAGE__->bridge( scalar => { bar => sub { 'scalar bar' } }, array => { bar => sub { 'array bar' } }, hash => { bar => sub { 'hash bar' } }, ); 1; Text-Xslate-3.4.0/t/lib/Text/0000755000175000017500000000000013040325435015216 5ustar syoheisyoheiText-Xslate-3.4.0/t/lib/Text/Xslate/0000755000175000017500000000000013040325435016456 5ustar syoheisyoheiText-Xslate-3.4.0/t/lib/Text/Xslate/Syntax/0000755000175000017500000000000013040325435017744 5ustar syoheisyoheiText-Xslate-3.4.0/t/lib/Text/Xslate/Syntax/Foo.pm0000644000175000017500000000034313040006205021014 0ustar syoheisyoheipackage Text::Xslate::Syntax::Foo; use Mouse; extends qw(Text::Xslate::Parser); sub _build_line_start { undef } sub _build_tag_start { '<%' } sub _build_tag_end { '%>' } no Mouse; __PACKAGE__->meta->make_immutable(); Text-Xslate-3.4.0/t/lib/Util.pm0000644000175000017500000000130213040006205015530 0ustar syoheisyoheipackage t::lib::Util; use strict; use parent qw(Exporter); our @EXPORT = qw(path cache_dir); use FindBin qw($Bin); use File::Basename qw(dirname); use File::Temp qw(tempdir); use Test::Requires "File::Copy::Recursive"; $File::Copy::Recursive::KeepMode = 0; my $cur; sub path () { if ( (caller())[1] =~ 't/010_internals/028_taint.t') { $Bin = $1 if $Bin =~ /(.+)/; # sigh... :( } unless ($cur) { $cur = tempdir(DIR => dirname($Bin) . "/.", CLEANUP => 1); } { my $template_path = dirname($Bin) . "/template"; File::Copy::Recursive::rcopy($template_path, $cur) or die $!; } return $cur; } use constant cache_dir => ".xslate_cache/$0"; 1; Text-Xslate-3.4.0/t/lib/TTSimple.pm0000644000175000017500000000245713040006205016330 0ustar syoheisyoheipackage t::lib::TTSimple; use strict; use constant USE_TT => scalar(grep { $_ eq '--tt' } @ARGV) || $ENV{USE_TT}; use Carp; use parent qw(Exporter); our @EXPORT = qw(render_str render_file); use t::lib::Util; my $tt; if(USE_TT) { require Test::More; Test::More::note('use Template::Toolkit'); require Template; $tt = Template->new( INCLUDE_PATH => path, ANYCASE => 1, ); } else { require Text::Xslate; require Text::Xslate::Syntax::TTerse; our %Func; $tt = Text::Xslate->new( path => [path], cache_dir => path, cache => 0, syntax => 'TTerse', warn_handler => \&Carp::confess, die_handler => \&Carp::confess, function => \%Func, ); } sub render_file { my($in, $vars) = @_; if(USE_TT) { my $out; $tt->process($in, $vars, \$out) or do { require Data::Dumper; croak Data::Dumper::Dumper($tt->error); }; return $out; } else { return $tt->render($in, $vars); } } sub render_str { my($in, $vars) = @_; if(USE_TT) { my $out; $tt->process(\$in, $vars, \$out) or croak $tt->error, "($in)"; return $out; } else { return $tt->render_string($in, $vars); } } Text-Xslate-3.4.0/t/lib/UtilNoleak.pm0000644000175000017500000000040013040006205016660 0ustar syoheisyoheipackage t::lib::UtilNoleak; use strict; use parent qw(Exporter); our @EXPORT = qw(path cache_dir); use FindBin qw($Bin); use File::Basename qw(dirname); use constant path => dirname($Bin) . "/template"; use constant cache_dir => ".xslate_cache/$0"; 1; Text-Xslate-3.4.0/t/030_kolon/0000755000175000017500000000000013040325435015230 5ustar syoheisyoheiText-Xslate-3.4.0/t/030_kolon/008_literal.t0000644000175000017500000000322513040006205017431 0ustar syoheisyohei#!perl -w use strict; use Test::More; use Text::Xslate; my $tx = Text::Xslate->new(); my @data = ( [ '<: "foo" :>', "foo"], [q{<: 'bar' :>}, "bar"], ['<: 0 :>', 0], ['<: 42 :>', 42], ['<: 0.01 :>', 0.01 ], ['<: 1.23 :>', 1.23 ], ['<: 1_23 :>', 1_23 ], ['<: 1_23.1_2 :>', 1_23.1_2 ], ['<: 00777 :>', 00777 ], ['<: 0xCAFE :>', 0xCAFE ], ['<: 0b1010 :>', 0b1010 ], ['<: 00_7_7_7 :>', 00777 ], ['<: 0x_C_A_F_E :>', 0xCAFE ], ['<: 0b_1_0_1_0 :>', 0b1010 ], ['<: -10 :>', -10 ], ['<: +10 :>', +10 ], ['<: "-10" :>', "-10" ], ['<: "+10" :>', "+10" ], ['<: "-10.0" :>', "-10.0" ], ['<: "+10.0" :>', "+10.0" ], ['<: "\n\n" :>', "\n\n" ], ['<: "\r\r" :>', "\r\r" ], ['<: "\t\t" :>', "\t\t" ], ['<: "\"\"" :>', """" ], ['<: "\+\+" :>', "\+\+" ], ['<: "\\\\\\\\" :>', "\\\\" ], ['<: "<:$foo:>" :>', '<:$foo:>' ], ['<: "foo@example.com" :>', 'foo@example.com' ], [q{<: '\n\n' :>}, '\n\n' ], [q{<: '\\\\\\\\' :>}, '\\\\' ], [q{<: '\'\'' :>}, '''' ], [q{<: 'foo="bar"' :>}, 'foo="bar"' ], [qq{<: 'foo\n"bar"\nbaz' :>}, qq{foo\n"bar"\nbaz}], [q{<: "foo='bar'" :>}, 'foo='bar'' ], [qq{<: "foo\n'bar'\nbaz" :>}, qq{foo\n'bar'\nbaz}], ); foreach my $pair(@data) { my($in, $out) = @$pair; my %vars; is $tx->render_string($in, \%vars), $out or diag $in; } ok $tx->render_string("<: true :>"); ok !$tx->render_string("<: false :>"); done_testing; Text-Xslate-3.4.0/t/030_kolon/016_funcs.t0000644000175000017500000000547213040006205017120 0ustar syoheisyohei#!perl -w use strict; use Test::More; use Text::Xslate qw(mark_raw); my %funcs = ( uc => sub{ uc $_[0] }, sprintf => sub{ sprintf shift, @_ }, pi => sub{ 3.14 }, foo => sub{ "" }, em => sub{ mark_raw("@_") }, engine => sub{ ref(Text::Xslate->current_engine) }, fetch => sub{ Text::Xslate->current_vars->{ $_[0] } }, file => sub{ Text::Xslate->current_file }, line => sub{ Text::Xslate->current_line }, ); my $tx = Text::Xslate->new( function => \%funcs, ); my @set = ( [ q{Hello, <:= $value | uc :> world!}, { value => 'Xslate' }, "Hello, XSLATE world!", ], [ q{Hello, <:= uc($value) :> world!}, { value => 'Xslate' }, "Hello, XSLATE world!", ], [ q{Hello, <:= uc($value) :> world!}, { value => '' }, "Hello, <XSLATE> world!", ], [ q{Hello, <:= sprintf('<%s>', $value) :> world!}, { value => 'Xslate' }, "Hello, <Xslate> world!", ], [ q{Hello, <:= sprintf('<%s>', $value | uc) :> world!}, { value => 'Xslate' }, "Hello, <XSLATE> world!", ], [ q{Hello, <:= sprintf('<%s>', uc($value)) :> world!}, { value => 'Xslate' }, "Hello, <XSLATE> world!", ], [ q{Hello, <:= sprintf('%s and %s', $a, $b) :> world!}, { a => 'Xslate', b => 'Perl' }, "Hello, Xslate and Perl world!", ], [ q{Hello, <:= sprintf('%s and %s', uc($a), uc($b)) :> world!}, { a => 'Xslate', b => 'Perl' }, "Hello, XSLATE and PERL world!", ], [ q{Hello, <:= pi() :> world!}, { value => 'Xslate' }, "Hello, 3.14 world!", ], [ q{Hello, <:= foo() :> world!}, { value => 'Xslate' }, "Hello, <foo> world!", ], [ q{Hello, <:= em($value) :> world!}, { value => 'Xslate' }, "Hello, Xslate world!", ], [ q{Hello, <:= engine() :> world!}, { }, "Hello, Text::Xslate world!", ], [ q{<: file() :>}, {}, '<string>', ], [ q{<: line() :>}, {}, '1', ], [ qq{\n\n<: line() :>\n\n<: line() :>}, {}, qq{\n\n3\n\n5}, ], [ qq{-<: fetch('foo') :>-}, { foo => 'bar' }, qq{-bar-}, ], [ qq{-<: fetch('FOO') // 'BAR' :>-}, { foo => 'bar' }, qq{-BAR-}, ], ); foreach my $d(@set) { my($in, $vars, $out) = @$d; is $tx->render_string($in, $vars), $out or diag $in; } is(Text::Xslate->current_engine, undef); is(Text::Xslate->current_vars, undef); is(Text::Xslate->current_file, undef); is(Text::Xslate->current_line, undef); done_testing; Text-Xslate-3.4.0/t/030_kolon/015_methods.t0000644000175000017500000000247313040006205017442 0ustar syoheisyohei#!perl -w use strict; use Test::More; use Text::Xslate; my $tx = Text::Xslate->new(verbose => 2); { package Obj; use Mouse; sub join :method { my($self, $sep, @args) = @_; return join $sep, @args; } sub ok { 42 } sub nil { 'nil' } sub true { 'true' } sub false { 'false' } } { package Anything; use Mouse; sub AUTOLOAD { our $AUTOLOAD; } } my @data = ( [ <<'T', <<'X', "method call without args" ], <: $obj.ok() :> T 42 X [ <<'T', <<'X', "method call" ], <: $obj.join(".") :> T X [ <<'T', <<'X', "method call" ], <: $obj.join(".", "foo", "bar") :> T foo.bar X [ <<'T', <<'X', "method call" ], <: $obj.join(".", "foo", "bar", "baz") :> T foo.bar.baz X [ <<'T', <<'X', "method call" ], <: $obj.join(".", "foo", "bar", "baz") :> T foo.bar.baz X [ <<'T', <<'X', "AUTOLOAD" ], <: $any.foo :> <: $any.bar :> <: $any.baz() :> T Anything::foo Anything::bar Anything::baz X [ <<'T', <<'X', "keywords" ], <: $obj.nil() :> <: $obj.true() :> <: $obj.false() :> T nil true false X ); my %vars = ( obj => Obj->new, any => Anything->new, ); foreach my $d(@data) { my($in, $out, $msg) = @$d; is $tx->render_string($in, \%vars), $out, $msg or diag $in; } done_testing; Text-Xslate-3.4.0/t/030_kolon/010_escaped_str.t0000644000175000017500000000455213040006205020266 0ustar syoheisyohei#!perl -w use strict; use Test::More; use Text::Xslate qw( mark_raw unmark_raw escaped_string html_escape ); sub r { return Text::Xslate::Type::Raw->new(@_); } my $tx = Text::Xslate->new(); my @set = ( [<<'T', {lang => ''}, <<'X'], Hello, <: $lang :> world! T Hello, <Xslate> world! X [<<'T', {lang => r('<Xslate>')}, <<'X', 'T::X::T::R->new()'], Hello, <: $lang :> world! T Hello, <Xslate> world! X [<<'T', {lang => escaped_string('<Xslate>')}, <<'X', 'escaped_string()'], Hello, <: $lang :> world! T Hello, <Xslate> world! X [<<'T', {lang => escaped_string(escaped_string('<Xslate>'))}, <<'X', "nested"], Hello, <: $lang :> world! T Hello, <Xslate> world! X [<<'T', {lang => mark_raw('<Xslate>')}, <<'X'], Hello, <: $lang :> world! T Hello, <Xslate> world! X [<<'T', {lang => mark_raw(mark_raw('<Xslate>'))}, <<'X'], Hello, <: $lang :> world! T Hello, <Xslate> world! X [<<'T', {lang => unmark_raw('')}, <<'X'], Hello, <: $lang :> world! T Hello, <Xslate> world! X [<<'T', {lang => unmark_raw(mark_raw(''))}, <<'X'], Hello, <: $lang :> world! T Hello, <Xslate> world! X [<<'T', {lang => r(r(r('<Xslate>')))}, <<'X', 'T::X::T::R->new()'], Hello, <: $lang :> world! T Hello, <Xslate> world! X [<<'T', {lang => unmark_raw(r(r(r(''))))}, <<'X', 'T::X::T::R->new()'], Hello, <: $lang :> world! T Hello, <Xslate> world! X [<<'T', {lang => html_escape('')}, <<'X'], Hello, <: $lang :> world! T Hello, <Xslate> world! X [<<'T', {lang => mark_raw(''), l => '<', g => '>'}, <<'X', 'smart concat'], Hello, <: $l ~ $lang ~ $g :> world! Hello, <: html($l ~ $lang ~ $g) :> world! Hello, <: html($l) ~ $lang ~ html($g) :> world! T Hello, <> world! Hello, <> world! Hello, <> world! X [<<'T', {lang => mark_raw('')}, <<'X', 'smart repeat'], Hello, <: $lang x 1 :> world! Hello, <: $lang x 2 :> world! T Hello, world! Hello, world! X ); foreach my $d(@set) { my($in, $vars, $out, $msg) = @$d; is $tx->render_string($in, $vars), $out, $msg or diag $in; } done_testing; Text-Xslate-3.4.0/t/030_kolon/022_given.t0000644000175000017500000000767613040006205017117 0ustar syoheisyohei#!perl -w use strict; use Test::More; use Text::Xslate; my $tx = Text::Xslate->new(); my $tmpl = <<'T'; : given $value { : when "foo" { FOO : } : when "bar" { BAR : } : default { BAZ : } : } T my @set = ( [$tmpl, { value => "foo" }, <<'X', 'given-when (1)'], FOO X [$tmpl, { value => "bar" }, <<'X', 'given-when (2)'], BAR X [$tmpl, { value => undef }, <<'X', 'given-when (default)'], BAZ X [<<'T', { value => undef }, <<'X', 'default can be the first'], : given $value { : default { BAZ : } : when "foo" { FOO : } : when "bar" { BAR : } : } T BAZ X [<<'T', { value => undef }, <<'X'], : given $value { : when 0 { ZERO : } : default { BAZ : } : } T BAZ X [<<'T', { value => undef }, <<'X', 'default only'], : given $value { : default { BAZ : } : } T BAZ X [<<'T', { value => 10 }, <<'X', 'logical expr (==)'], : given $value -> $it { : when $it == 10 { FOO : } : default { BAZ : } : } T FOO X [<<'T', { value => 11 }, <<'X', 'logical expr (!=)'], : given $value -> $it { : when $it != 10 { FOO : } : default { BAZ : } : } T FOO X [<<'T', { value => 9 }, <<'X', 'logical expr (<)'], : given $value -> $it { : when $it < 10 { FOO : } : default { BAZ : } : } T FOO X [<<'T', { value => 10 }, <<'X', 'logical expr (<=)'], : given $value -> $it { : when $it <= 10 { FOO : } : default { BAZ : } : } T FOO X [<<'T', { value => 11 }, <<'X', 'logical expr (>)'], : given $value -> $it { : when $it > 10 { FOO : } : default { BAZ : } : } T FOO X [<<'T', { value => 10 }, <<'X', 'logical expr (>=)'], : given $value -> $it { : when $it >= 10 { FOO : } : default { BAZ : } : } T FOO X [<<'T', { value => 10 }, <<'X', 'logical expr (||)'], : given $value -> $it { : when $it == 9 || $it == 10 { FOO : } : default { BAZ : } : } T FOO X [<<'T', { value => 10 }, <<'X', 'logical expr (or)'], : given $value -> $it { : when $it == 9 or $it == 10 { FOO : } : default { BAZ : } : } T FOO X [<<'T', { value => 10 }, <<'X', 'logical expr (&&)'], : given $value -> $it { : when $it == 10 && $it >= 10 { FOO : } : default { BAZ : } : } T FOO X [<<'T', { value => 10 }, <<'X', 'logical expr (and)'], : given $value -> $it { : when $it == 10 and $it >= 10 { FOO : } : default { BAZ : } : } T FOO X [<<'T', { value => 10 }, <<'X', 'logical expr (!)'], : given $value -> $it { : when !($it > 10) { FOO : } : default { BAZ : } : } T FOO X [<<'T', { value => 10 }, <<'X', 'logical expr (not)'], : given $value -> $it { : when not $it > 10 { FOO : } : default { BAZ : } : } T FOO X [<<'T', { value => 10, x => 1 }, <<'X', 'non-logical expr'], : given $value -> $it { : when $x + 9 { FOO : } : default { BAZ : } : } T FOO X [<<'T', { value => undef }, <<'X', 'nil'], : given $value -> $it { : when nil { FOO : } : default { UNLIKELY : } : } T FOO X [<<'T', { value => 0 }, <<'X', 'nil'], : given $value -> $it { : when nil { UNLIKELY : } : default { FOO : } : } T FOO X [<<'T', { value => "foo" }, <<'X', 'extra spaces'], <: given $value { :> <: when "foo" { :> FOO <: } :> <: default { :> unlikely <: } :> <: } :> T FOO X ); foreach my $d(@set) { my($in, $vars, $out, $msg) = @$d; is $tx->render_string($in, $vars), $out, $msg or diag $in; } done_testing; Text-Xslate-3.4.0/t/030_kolon/039_root_vars.t0000644000175000017500000000056213040006205020020 0ustar syoheisyohei#!perl use strict; use warnings; use Test::More; use Text::Xslate; my $tx = Text::Xslate->new(); is $tx->render_string('<: __ROOT__["foo"] :>', { foo => 42 }), '42'; is $tx->render_string('<: __ROOT__.foo :>', { foo => 42 }), '42'; is $tx->render_string( '<: __ROOT__.merge({ foo => "bar"}).foo ~ __ROOT__.foo :>', { foo => 42 }), 'bar42'; done_testing; Text-Xslate-3.4.0/t/030_kolon/036_foreach_else.t0000644000175000017500000000105713040006205020416 0ustar syoheisyohei#!perl -w use strict; use Test::More; use Text::Xslate; my %vpath = ( ); my $tx = Text::Xslate->new( cache => 0, path => \%vpath, verbose => 2, warn_handler => sub { die @_ }, ); is $tx->render_string(<<'T'), <<'X'; : for [42] -> $it { * <:$it:> : } : else { nothing : } T * 42 X is $tx->render_string(<<'T'), <<'X'; : for [] -> $it { * <:$it:> : } : else { nothing : } T nothing X is $tx->render_string(<<'T'), <<'X'; : for nil -> $it { * <:$it:> : } : else { nothing : } T nothing X done_testing; Text-Xslate-3.4.0/t/030_kolon/007_log_ops.t0000644000175000017500000001642613040006205017445 0ustar syoheisyohei#!perl -w use strict; use Test::More; use Text::Xslate; my $tx = Text::Xslate->new(); my @data = ( ['<:= $value10 == 10 ? 3 : 5 :>', 3], ['<:= $value10 == 20 ? 3 : 5 :>', 5], ['<:= $value20 == 10 ? 3 : 5 :>', 5], ['<:= $value20 == 20 ? 3 : 5 :>', 3], ['<:= $value10 == 10 && $value20 == 20 ? 3 : 5 :>', 3], ['<:= $value10 == 10 || $value20 == 20 ? 3 : 5 :>', 3], ['<:= ($value10 == 10 && $value20 == 20) ? 3 : 5 :>', 3], ['<:= ($value10 == 10 || $value20 == 20) ? 3 : 5 :>', 3], ['<:= ($value10 == 10 && $value20 == 20) && 5 :>', 5], ['<:= ($value10 == 10 && $value20 != 20) && 5 :>', ''], ['<:= ($value10 == 10 && $value20 == 20) || 5 :>', 1], ['<:= ($value10 == 10 && $value20 != 20) || 5 :>', 5], ['<:= ($value10 != 10 && $value20 != 20) && 5 :>', ''], ['<:= ($value10 != 10 && $value20 != 20) || 5 :>', 5], ['<:= ($value10 == 10 || $value20 == 20) && 5 :>', 5], ['<:= ($value10 == 10 || $value20 != 20) && 5 :>', 5], ['<:= ($value10 == 10 || $value20 == 20) || 5 :>', 1], ['<:= ($value10 == 10 || $value20 != 20) || 5 :>', 1], ['<:= ($value10 != 10 || $value20 != 20) && 5 :>', ''], ['<:= ($value10 != 10 || $value20 != 20) || 5 :>', 5], # no parens ['<:= $value10 == 10 && $value20 == 20 && 5 :>', 5], ['<:= $value10 == 10 && $value20 != 20 && 5 :>', ''], ['<:= $value10 == 10 && $value20 == 20 || 5 :>', 1], ['<:= $value10 == 10 && $value20 != 20 || 5 :>', 5], ['<:= $value10 != 10 && $value20 != 20 && 5 :>', ''], ['<:= $value10 != 10 && $value20 != 20 || 5 :>', 5], ['<:= $value10 == 10 || $value20 == 20 && 5 :>', 1], ['<:= $value10 == 10 || $value20 != 20 && 5 :>', 1], ['<:= $value10 == 10 || $value20 == 20 || 5 :>', 1], ['<:= $value10 == 10 || $value20 != 20 || 5 :>', 1], ['<:= $value10 != 10 || $value20 != 20 && 5 :>', ''], ['<:= $value10 != 10 || $value20 != 20 || 5 :>', 5], ['<:= $value10 == 10 and $value20 == 20 and 5 :>', 5], ['<:= $value10 == 10 and $value20 != 20 and 5 :>', ''], ['<:= $value10 == 10 and $value20 == 20 or 5 :>', 1], ['<:= $value10 == 10 and $value20 != 20 or 5 :>', 5], ['<:= $value10 != 10 and $value20 != 20 and 5 :>', ''], ['<:= $value10 != 10 and $value20 != 20 or 5 :>', 5], ['<:= $value10 == 10 or $value20 == 20 and 5 :>', 1], ['<:= $value10 == 10 or $value20 != 20 and 5 :>', 1], ['<:= $value10 == 10 or $value20 == 20 or 5 :>', 1], ['<:= $value10 == 10 or $value20 != 20 or 5 :>', 1], ['<:= $value10 != 10 or $value20 != 20 and 5 :>', ''], ['<:= $value10 != 10 or $value20 != 20 or 5 :>', 5], ['<:= $value10 == 10 or $value20 == 20 and $value10 == 10 :>', 1], ['<:= $value10 == 10 or $value20 != 20 and $value10 == 10 :>', 1], ['<:= $value10 == 10 or $value20 == 20 or $value10 == 10 :>', 1], ['<:= $value10 == 10 or $value20 != 20 or $value10 == 10 :>', 1], ['<:= $value10 != 10 or $value20 != 20 and $value10 == 10 :>', ''], ['<:= $value10 != 10 or $value20 != 20 or $value10 == 10 :>', 1], ['<:= $value10 == 10 or $value20 == 20 or $value10 != 10 :>', 1], ['<:= $value10 == 10 and $value20 == 20 and $value10 == 10 :>', 1], ['<:= $value10 == 10 and $value20 != 20 and $value10 == 10 :>', ''], ['<:= $value10 == 10 and $value20 == 20 or $value10 == 10 :>', 1], ['<:= $value10 == 10 and $value20 != 20 or $value10 == 10 :>', 1], ['<:= $value10 != 10 and $value20 != 20 and $value10 == 10 :>', ''], ['<:= $value10 != 10 and $value20 != 20 or $value10 == 10 :>', 1], ['<:= $value10 == 10 and $value20 == 20 or $value10 != 10 :>', 1], ['<: $value10 == 10 and $value10 == 10 and $value10 == 10 or $value10 != 10 :>', 1 ], ['<: $value10 == 10 and $value10 == 10 and $value10 == 10 or $value10 == 10 :>', 1 ], ['<: $value10 != 10 and $value10 == 10 and $value10 == 10 or $value10 == 10 :>', 1 ], ['<:= $value0 && 20 :>', 0 ], ['<:= $value10 && 20 :>', 20 ], ['<:= "" && 20 :>', "" ], ['<:= (nil && 20) == nil :>', 1 ], # cannot print nil (undef) ['<:= $value0 and 20 :>', 0 ], ['<:= $value10 and 20 :>', 20 ], ['<:= "" and 20 :>', "" ], ['<:= (nil and 20) == nil :>', 1 ], # cannot print nil (undef) ['<:= $value0 || 20 :>', 20 ], ['<:= $value10 || 20 :>', 10 ], ['<:= "" || 20 :>', 20 ], ['<:= nil || 20 :>', 20 ], ['<:= $value0 or 20 :>', 20 ], ['<:= $value10 or 20 :>', 10 ], ['<:= "" or 20 :>', 20 ], ['<:= nil or 20 :>', 20 ], ['<:= $value0 // 20 :>', 0 ], ['<:= $value10 // 20 :>', 10 ], ['<:= "" // 20 :>', "" ], ['<:= nil // 20 :>', 20 ], ['<:= !$value0 || 20 :>', 1 ], ['<:= !$value10 || 20 :>', 20 ], ['<:= not $value0 || 20 :>', "" ], ['<:= not $value10 || 0 :>', "" ], ['<:= $value0 == 10 ? 100 : 0 || 200 :>', ( 0 == 10 ? 100 : 0 || 200 ) ], ['<:= $value10 == 10 ? 100 : 0 || 200 :>', (10 == 10 ? 100 : 0 || 200 ) ], ['<:= $value0 == 10 ? 0 : 100 || 200 :>', ( 0 == 10 ? 0 : 100 || 200 ) ], ['<:= $value10 == 10 ? 0 : 100 || 200 :>', (10 == 10 ? 0 : 100 || 200 ) ], ['<:= $value0 == 10 ? 100 : 0 or 200 :>', ( 0 == 10 ? 100 : 0 or 200 ) ], ['<:= $value10 == 10 ? 100 : 0 or 200 :>', (10 == 10 ? 100 : 0 or 200 ) ], ['<:= $value0 == 10 ? 0 : 100 or 200 :>', ( 0 == 10 ? 0 : 100 or 200 ) ], ['<:= $value10 == 10 ? 0 : 100 or 200 :>', (10 == 10 ? 0 : 100 or 200 ) ], ['<: $value10 == 10 ? 100 : $value10 == 20 ? 200 : $value10 == 30 ? 300 : 400 :>', 100 ], ['<: $value20 == 10 ? 100 : $value20 == 20 ? 200 : $value20 == 30 ? 300 : 400 :>', 200 ], ['<: $value0 == 10 ? 100 : $value0 == 20 ? 200 : $value0 == 30 ? 300 : 400 :>', 400 ], [': defined($value0) ? 1 : 0', 1], [': defined($no_such_var) ? 1 : 0', 0], [': defined $value0 ? 1 : 0', 1], [': defined $no_such_var ? 1 : 0', 0], [': !defined($value0) ? 1 : 0', 0], [': !defined($no_such_var) ? 1 : 0', 1], [': !defined $value0 ? 1 : 0', 0], [': !defined $no_such_var ? 1 : 0', 1], [': defined $value10 + 10', defined 10 + 10], [': $undefined1 // $undefined2 // 10', 10], [': $undefined1 // ( $undefined2 // 10 )', 10], ['<:= ($value10 == 10 and $value20 == 20) ? "true" : "false":>', "true"], ['<:= ($value10 == 10 and $value20 == 20 or $value10 != 10) ? "true" : "false":>', "true"], ['<:= ($value10 == 10 and $value20 == 20 or $value10 != 10) ? "true" : "false":> <:= ($value10 != 10 and $value20 == 20 or $value10 != 10) ? "true" : "false":>', "true\n false"], ); foreach my $pair(@data) { my($in, $out) = @$pair; my %vars = ( value0 => 0, value10 => 10, value20 => 20, ); is $tx->render_string($in, \%vars), $out or diag $in; if(0) { my $value0 = $vars{value0}; my $value10 = $vars{value10}; my $value20 = $vars{value20}; $in =~ s/\A <:=? (.+) :> \z/$1/xms; $in =~ s/\A ://xms; $in =~ s/\b nil \b/undef/xmsg; no strict 'vars'; is eval($in), $out or diag $@, $in; } } done_testing; Text-Xslate-3.4.0/t/030_kolon/018_dynamic_filters.t0000644000175000017500000000154413040006205021154 0ustar syoheisyohei#!perl -w use strict; use Test::More; use Text::Xslate; use FindBin qw($Bin); sub mk_indent { my($prefix) = @_; return sub { my($str) = @_; $str =~ s/^/$prefix/xmsg; return $str; } } my $tx = Text::Xslate->new( function => { indent => \&mk_indent, }, ); my @set = ( [ q{<: $value | indent("> ") :>}, { value => 'Xslate' } => '> Xslate' ], [ q{<: $value | indent("> ") :>}, { value => "Xslate\nPerl\n" } => "> Xslate\n> Perl\n" ], [ q{: $value | indent("| ") }, { value => "Xslate\nPerl\n" } => "| Xslate\n| Perl\n" ], [ q{: indent("* ")($value) }, { value => "Xslate\nPerl\n" } => "* Xslate\n* Perl\n" ], ); foreach my $d(@set) { my($in, $vars, $out, $msg) = @$d; is $tx->render_string($in, $vars), $out, $msg or diag $in;; } done_testing; Text-Xslate-3.4.0/t/030_kolon/013_more_field.t0000644000175000017500000000203413040006205020073 0ustar syoheisyohei#!perl -w use strict; use Test::More; use Text::Xslate; my $tx = Text::Xslate->new(); my @data = ( ['<:= $var[ $foo && "bar" ] :>', 'BAR'], ['<:= $var[ $foo || "bar" ] :>', 'FOO'], ['<:= $var[ "foo" && "bar" ] :>', 'BAR'], ['<:= $var[ "foo" || "bar" ] :>', 'FOO'], ['<:= $var[ $foo == "foo" ? "bar" : "baz" ] :>', 'BAR'], ['<:= $var[ $foo != "foo" ? "bar" : "baz" ] :>', 'BAZ'], ['<:= $ary[ 0+0 ] :>', 10], ['<:= $ary[ 0+1 ] :>', 20], ['<:= $ary[ 1+1 ] :>', 30], ['<:= $ary[ 0-0 ] :>', 10], ['<:= $ary[ 2-1 ] :>', 20], ['<:= $ary[ 3-1 ] :>', 30], ['<:= $ary[ +0 ] :>', 10], ['<:= $ary[ -0 ] :>', 10], ['<:= $ary[ +0.0 ] :>', 10], ['<:= $ary[ -0.0 ] :>', 10], ['<:= $var[ $ary[3] ] :>', "FOO"], ); foreach my $pair(@data) { my($in, $out) = @$pair; my %vars = ( var => { foo => 'FOO', bar => 'BAR', baz => "BAZ" }, ary => [10, 20, 30, "foo"], foo => 'foo', ); is $tx->render_string($in, \%vars), $out or diag $in; } done_testing; Text-Xslate-3.4.0/t/030_kolon/012_cascade.t0000644000175000017500000000377313040006205017363 0ustar syoheisyohei#!perl -w use strict; use Test::More; use Text::Xslate; use t::lib::Util; my $tx = Text::Xslate->new(path => [path], cache => 0); my @set = ( [<<'T', { lang => 'Xslate' }, <<'X', 'without other components (bare name)'], : cascade myapp::base T HEAD Hello, Xslate world! FOOT X [<<'T', { lang => 'Xslate' }, <<'X', 'without other components (string)'], : cascade myapp::base T HEAD Hello, Xslate world! FOOT X [<<'T', { lang => 'Xslate' }, <<'X', 'one-level'], : cascade myapp::base : before hello -> { BEFORE : } : after hello -> { AFTER : } T HEAD BEFORE Hello, Xslate world! AFTER FOOT X [<<'T', { lang => 'Xslate' }, <<'X', 'two-level without other components'], : cascade myapp::derived T HEAD D-BEFORE Hello, Xslate world! D-AFTER FOOT X [<<'T', { lang => 'Xslate' }, <<'X', 'two-level'], : cascade myapp::derived : before hello -> { BEFORE : } : after hello -> { AFTER : } T HEAD BEFORE D-BEFORE Hello, Xslate world! D-AFTER AFTER FOOT X [<<'T', { lang => 'Xslate' }, <<'X', 'one-level, around'], : cascade myapp::base : around hello -> { AROUND[ : super ]AROUND : } : before hello -> { BEFORE : } : after hello -> { AFTER : } T HEAD BEFORE AROUND[ Hello, Xslate world! ]AROUND AFTER FOOT X [<<'T', { lang => 'Xslate' }, <<'X', 'two-level, around'], : cascade myapp::derived : around hello -> { AROUND[ : super ]AROUND : } : before hello -> { BEFORE : } : after hello -> { AFTER : } T HEAD BEFORE AROUND[ D-BEFORE Hello, Xslate world! D-AFTER ]AROUND AFTER FOOT X [<<'T', { lang => 'Xslate' }, <<'X', 'override as around'], : cascade myapp::base : override hello -> { AROUND[ : super ]AROUND : } T HEAD AROUND[ Hello, Xslate world! ]AROUND FOOT X ); foreach my $d(@set) { my($in, $vars, $out, $msg) = @$d; is $tx->render_string($in, $vars), $out, $msg || $in for 1 .. 2; } done_testing; Text-Xslate-3.4.0/t/030_kolon/001_interpolate.t0000644000175000017500000000202413040006205020310 0ustar syoheisyohei#!perl -w use strict; use Test::More; use Text::Xslate; use Text::Xslate::Util qw(p); my $tx = Text::Xslate->new(); my @data = ( ['Hello, world!' => 'Hello, world!'], ['Hello, <: $lang :> world!' => 'Hello, Xslate world!'], ['Hello, <: $foo :> world!' => 'Hello, <bar> world!'], ['<: $lang :> <: $foo :> <: $lang :> <: $foo :>' => 'Xslate <bar> Xslate <bar>'], [q{<:$lang:>}, 'Xslate'], [q{foo <:= $lang :> bar} => "foo Xslate bar"], [q{<: print $lang :>} => "Xslate"], [q{<:print $lang:>} => "Xslate"], [q{<:print$lang:>} => "Xslate"], [q{<:print $lang, "\n":>} => "Xslate\n"], [q{<:print "<", $lang, ">":>} => "<Xslate>"], [q{<:print_raw "<", $lang, ">":>} => ""], ); my %vars = (lang => 'Xslate', foo => ""); my $vars_str = p(\%vars); foreach my $pair(@data) { my($in, $out) = @$pair; #diag $in; is $tx->render_string($in, \%vars), $out or diag $in; is p(\%vars), $vars_str, 'vars are not changed'; } done_testing; Text-Xslate-3.4.0/t/030_kolon/030_xfuncs.t0000644000175000017500000000143213040006205017274 0ustar syoheisyohei#!perl -w use strict; use Test::More; use Text::Xslate; my $tx = Text::Xslate->new( function => { 'array::count' => sub { my($a, $cb) = @_; return scalar grep { $cb->($_) } @{$a}; }, }, ); my @data = ( [<<'T', <<'X'], : macro upper50 -> $x { $x >= 50 } <: $a.count(upper50) :> T 50 X [<<'T', <<'X'], <: $a.count(-> $x { $x >= 0 }) :> <: $a.count(-> $x { $x >= 50 }) :> <: $a.count(-> $x { $x >= 100 }) :> <: $a.count(-> $x { $x == nil }) :> <: $a.count(-> $x { $x == 42 }) :> T 100 50 0 0 1 X ); my %vars = ( a => [ 0 .. 99 ], ); foreach my $d(@data) { my($in, $out, $msg) = @$d; is $tx->render_string($in, \%vars), $out, $msg or diag $in; } done_testing; Text-Xslate-3.4.0/t/030_kolon/035_include_w_vars.t0000644000175000017500000000177213040006205021006 0ustar syoheisyohei#!perl -w use strict; use Test::More; use Text::Xslate; my %vpath = ( foo => ': include "bar" { $baz }', bar => 'Hello, <: $lang :> world!', ); my $tx = Text::Xslate->new( cache => 0, path => \%vpath, verbose => 2, warn_handler => sub { die @_ }, ); is $tx->render(foo => { baz => { lang => 'Xslate' } }), 'Hello, Xslate world!'; is $tx->render(foo => { baz => { lang => 'Template' } }), 'Hello, Template world!'; is $tx->render_string(':include "bar" { $baz }; $lang', { baz => { lang => 'Xslate' }, lang => '!!' }), 'Hello, Xslate world!!!'; is $tx->render_string(':include "bar" { $baz.merge({ lang => "Xslate"}) }; $lang', { baz => { }, lang => '!!' }), 'Hello, Xslate world!!!'; eval { $tx->render_string(': include "bar" { a => 42, "b" }' ) }; like $@, qr/pairs/; eval { $tx->render_string(': include "bar" { 42 }' ) }; like $@, qr/must be a HASH reference/; eval { $tx->render('foo', { baz => { }, lang => 'XXX'} ) }; like $@, qr/nil/; done_testing; Text-Xslate-3.4.0/t/030_kolon/017_more_macro.t0000644000175000017500000000657113040006205020127 0ustar syoheisyohei#!perl -w use strict; use Test::More; use Text::Xslate; use Text::Xslate::Compiler; my $tx = Text::Xslate->new(); my @set = ( [ <<'T', { data => [[qw(Perl)]] }, <<'X' ], : macro foo ->($x) { : for $x -> ($item) { Hello, <: $item :> world! : } : } : for $data -> ($item) { : foo($item) : } T Hello, Perl world! X [ <<'T', { data => [[qw(Perl Xslate)]] }, <<'X' ], : macro foo ->($x) { : for $x -> ($item) { Hello, <: $item :> world! : } : } : for $data -> ($item) { : foo($item) : } T Hello, Perl world! Hello, Xslate world! X [ <<'T', { data => [[qw(Perl Xslate)]] }, <<'X' ], : macro foo ->($x) { : for $x -> ($item) { Hello, <: $item :> world! : } : } : for $data -> ($item) { : foo($item) : foo($item) : } T Hello, Perl world! Hello, Xslate world! Hello, Perl world! Hello, Xslate world! X [ <<'T', { }, <<'X' ], : macro foo ->($x) { <:$x:> : } : macro bar ->($x) { : foo($x) : } : foo("FOO") : bar("BAR") T FOO BAR X [ <<'T', { }, <<'X', "nested call" ], : macro foo ->($x) { : "[" ~ $x ~ "]" : } <: foo(foo("FOO")) :> T [[FOO]] X [ <<'T', { }, <<'X', "nested (arithmatic)" ], : macro add ->($x, $y) { $x + $y } <: add(1, 2) + add(10, 20) :> T 33 X [ <<'T', { }, <<'X', "multi call" ], : macro foo ->($x) { : "[" ~ $x ~ "]" : } <: foo("FOO") ~ foo("BAR") ~ foo("BAZ") :> T [FOO][BAR][BAZ] X [ <<'T', { }, <<'X', "nested multi call" ], : macro foo ->($x) { : "[" ~ $x ~ "]" : } <: foo(foo("FOO") ~ foo("BAR")) :> T [[FOO][BAR]] X [ <<'T', { }, <<'X', "nested multi call (arithmatic)" ], : macro add ->($x, $y) { $x + $y } <: add(add(1, 2) + add(10, 20) + add(100, 200), 1000) :> T 1333 X [ <<'T', { }, <<'X', "recursion" ], : macro factorial ->($x) { : $x == 0 ? 1 : $x * factorial($x-1) : } <: factorial(0) :> <: factorial(1) :> <: factorial(2) :> <: factorial(3) :> T 1 1 2 6 X [ <<'T', { }, <<'X', "filter operator" ], : macro factorial ->($x) { : $x == 0 ? 1 : $x * factorial($x-1) : } <: 0 | factorial :> <: 1 | factorial :> <: 2 | factorial :> <: 3 | factorial :> T 1 1 2 6 X [ <<'T', { }, <<'X', "a macro returns escaped string" ], <: macro em ->($x) { :><: $x :><: } -:> <: "foo" | em :> <: "bar" | em | raw :> <: "baz" | em | html :> T foo bar baz X [ <<'T', { }, <<'X', "save macro" ], <: macro em ->($x) { :><: $x :><: } -:> : for [em] -> $m { <: $m("foo") :> : } T foo X [<<'T', { value10 => 10 }, '100'], : macro foo ->($x) { $x.foo } : foo( { foo => $value10 == 10 ? 100 : $value10 == 20 ? 200 : 300 } ) T [<<'T', { value20 => 20 }, '200'], : macro foo ->($x) { $x.foo } : foo( { foo => $value20 == 10 ? 100 : $value20 == 20 ? 200 : 300 } ) T ); foreach my $d(@set) { my($in, $vars, $out, $msg) = @$d; is eval { $tx->render_string($in, $vars) }, $out, $msg or diag $in; diag $@ if $@; } eval { $tx->render_string('<: foo("x") :>', {}); }; like $@, qr/\b foo \b/xms, "don't affect the parser"; eval { $tx->render_string(<<'T', {}); : macro foo{ : foo() : } : foo() T }; like $@, qr/too deep/, 'deep recursion'; like $@, qr/\b foo \b/xms; done_testing; Text-Xslate-3.4.0/t/030_kolon/020_chomp.t0000644000175000017500000000135113040006205017073 0ustar syoheisyohei#!perl -w use strict; use Test::More; use Text::Xslate; my $tx = Text::Xslate->new(); my @data = ( [<<'T', "A[foo]\nB\n", "prechomp(1)"], A <:- "[foo]" :> B T [<<'T', " A[foo]\n B\n", "prechomp(2)"], A <:- "[foo]" :> B T [<<'T', "A\n[foo]B\n", "postchomp(1)"], A <: "[foo]" -:> B T [<<'T', " A\n [foo] B\n", "postchomp(2)"], A <: "[foo]" -:> B T [<<'T', "A[foo]B\n", "both(1)"], A <:- "[foo]" -:> B T [<<'T', " A[foo] B\n", "both(2)"], A <:- "[foo]" -:> B T ); foreach my $pair(@data) { my($in, $out, $msg) = @$pair; my %vars = (lang => 'Xslate', foo => ""); is $tx->render_string($in, \%vars), $out, $msg or diag $in; } done_testing; Text-Xslate-3.4.0/t/030_kolon/021_overlay.t0000644000175000017500000000311013040006205017442 0ustar syoheisyohei#!perl -w use strict; use Test::More; use Text::Xslate; use t::lib::Util; my $tx = Text::Xslate->new(path => [path], cache => 0); my @set = ( [<<'T', { lang => 'Xslate' }, <<'X', 'with a component'], : cascade myapp::base with myapp::cfoo T HEAD FOO Hello, Xslate world! FOOT X [<<'T', { lang => 'Xslate' }, <<'X', 'with another component'], : cascade myapp::base with myapp::cbar T HEAD Hello, Xslate world! BAR FOOT X [<<'T', { lang => 'Xslate' }, <<'X', 'with components'], : cascade myapp::base with myapp::cfoo, myapp::cbar T HEAD FOO Hello, Xslate world! BAR FOOT X [<<'T', { lang => 'Xslate' }, <<'X', 'overlay'], : cascade with myapp::cfoo, myapp::cbar ---- : block hello -> { This is template cascading! : } ---- T ---- FOO This is template cascading! BAR ---- X [<<'T', { lang => 'Xslate' }, <<'X', 'cascade-with as a library'], : cascade with common : foo() T This is ! X [<<'T', { lang => 'Xslate' }, <<'X'], : cascade with common : macro bar -> { This is bar! : } : bar() T before ! This is bar! X [<<'T', { lang => 'Xslate' }, <<'X'], : macro bar -> { This is bar! : } : bar() : cascade with common T before ! This is bar! X [<<'T', { lang => 'Xslate' }, <<'X'], : baz() : cascade with common T This is ! X [<<'T', { lang => 'Xslate' }, <<'X'], : baz() | raw : cascade with common T This is ! X ); foreach my $d(@set) { my($in, $vars, $out, $msg) = @$d; is $tx->render_string($in, $vars), $out, $msg or diag $in; } done_testing; Text-Xslate-3.4.0/t/030_kolon/028_smartmatch.t0000644000175000017500000000303113040006205020135 0ustar syoheisyohei#!perl -w use strict; use Test::More; use Text::Xslate; my $tx = Text::Xslate->new(verbose => 2); my @set = ( [<<'T', { value => "foo" }, <<'X'], <: $value ~~ "foo" ? "matched" : "unmatched" :> T matched X [<<'T', { value => "" }, <<'X'], <: $value ~~ nil ? "matched" : "unmatched" :> T unmatched X [<<'T', { value => "foo" }, <<'X'], : given $value { : when ["foo", "bar", nil] { matched : } : default { unmatched : } : } T matched X [<<'T', { value => undef }, <<'X'], : given $value { : when ["foo", "bar", nil] { matched : } : default { unmatched : } : } T matched X [<<'T', { value => "baz" }, <<'X'], : given $value { : when ["foo", "bar", nil] { matched : } : default { unmatched : } : } T unmatched X [<<'T', { value => "foo" }, <<'X'], : given $value { : when { foo => nil, bar => nil } { matched : } : default { unmatched : } : } T matched X [<<'T', { value => "bar" }, <<'X'], : given $value { : when { foo => nil, bar => nil } { matched : } : default { unmatched : } : } T matched X [<<'T', { value => "baz" }, <<'X'], : given $value { : when { foo => nil, bar => nil } { matched : } : default { unmatched : } : } T unmatched X ); foreach my $d(@set) { my($in, $vars, $out, $msg) = @$d; is $tx->render_string($in, $vars), $out, $msg or diag $in; } done_testing; Text-Xslate-3.4.0/t/030_kolon/025_objectliteral.t0000644000175000017500000000650113040006205020617 0ustar syoheisyohei#!perl -w use strict; use Test::More; use Text::Xslate; use Text::Xslate::Util qw(p); use t::lib::Util; my $tx = Text::Xslate->new(path => [path]); my @set = ( [<<'T', { lang => 'Xslate' }, <<'X', "=> as ,"], : macro foo -> $a, $b { $a ~ "\n" } : foo("foo" => "b") T foo X [<<'T', { lang => 'Xslate' }, <<'X', "lhs can be bare"], : macro foo -> $a, $b { $a ~ "\n" } : foo(foo => "b") : foo(bar => "b") : foo(raw => "b") : foo(if => "b") : foo(not => "b") T foo bar raw if not X # array [<<'T', { lang => 'Xslate' }, '0', "empty array literal"], : macro foo -> $a { $a.size() } : foo([]) T [<<'T', { lang => 'Xslate' }, <<'X', "array literal"], : macro foo -> $a { $a.0 ~ "\n" } : foo(["foo", "bar", "baz"]) T foo X [<<'T', { lang => 'Xslate' }, <<"X"], : for [1, 2, 3] -> $i { <: $i :> : } T 1 2 3 X [<<'T', { lang => 'Xslate' }, "Xslate"], : ["foo", $lang].1 T [<<'T', { lang => 'Xslate' }, "Xslate"], : (["foo", $lang]).1 T # hash [<<'T', { lang => 'Xslate' }, '0', "empty hash literal"], : macro foo -> $a { $a.size() } : foo({}) T [<<'T', { lang => 'Xslate' }, "Xslate"], : ({foo => $lang, bar => 42}).foo T [<<'T', { lang => 'Xslate' }, "Xslate"], : ({ bar => 42, foo => $lang }).foo T [<<'T', { lang => 'Xslate' }, <<"X"], : for { foo => 10, bar => 20 }.kv() -> $pair { <: $pair.key :>=<: $pair.value :> : } T bar=20 foo=10 X [<<'T', { lang => 'Xslate' }, <<"X", "keywords"], : for { not => 10, for => 20 }.kv() -> $pair { <: $pair.key :>=<: $pair.value :> : } T for=20 not=10 X [<<'T', { lang => 'Xslate' }, <<"X", "underbars"], : for { foo_bar => 10, _baz => 20 }.kv() -> $pair { <: $pair.key :>=<: $pair.value :> : } T _baz=20 foo_bar=10 X [<<'T', { lang => 'Xslate' }, <<"X", "nested"], : for [ [1], [2], [3] ] -> $i { <: $i[0] :> : } T 1 2 3 X [<<'T', { lang => 'Xslate' }, <<"X", "nested"], : for [ { value => 1 }, { value => 2 }, { value => 3 } ] -> $i { <: $i.value :> : } T 1 2 3 X [<<'T', { lang => 'Xslate' }, <<"X", "extra commas"], : for [ 1, 2, 3, ] -> $i { <: $i :> : } T 1 2 3 X [<<'T', { lang => 'Xslate' }, <<"X", "newlines"], : for [ : 1, : 2, : 3, : ] -> $i { <: $i :> : } T 1 2 3 X [<<'T', { lang => 'Xslate' }, <<"X", "more extra commas"], : for [ ,,1,,2,,3,, ] -> $i { <: $i :> : } T 1 2 3 X [<<'T', { lang => 'Xslate' }, <<"X", "range"], : for [ 1 .. 5 ] -> $i { <: $i :> : } T 1 2 3 4 5 X [<<'T', { lang => 'Xslate' }, <<"X", "range"], : for [ 1 .. 3 + 1 ] -> $i { <: $i :> : } T 1 2 3 4 X [<<'T', { lang => 'Xslate' }, <<"X", "range 'a' .. 'c'"], : for [ 'a' .. 'c' ] -> $i { <: $i :> : } T a b c X [<<'T', { lang => 'Xslate' }, <<"X", "range 0 .. 2, 'a' .. 'c'"], : for [ 0 .. 2, 'a' .. 'c' ] -> $i { <: $i :> : } T 0 1 2 a b c X [<<'T', { lang => 'Xslate' }, <<"X", "range"], : for [ 2 .. 0 ] -> $i { <: $i :> : } T X [<<'T', { lang => 'Xslate' }, <<"X", "range"], : for [ "z" .. "a" ] -> $i { <: $i :> : } T z X ); foreach my $d(@set) { my($in, $vars, $out, $msg) = @$d; is $tx->render_string($in, $vars), $out, $msg or diag($in); } done_testing; Text-Xslate-3.4.0/t/030_kolon/031_post_if.t0000644000175000017500000000153413040006205017435 0ustar syoheisyohei#!perl -w use strict; use Test::More; use Text::Xslate; use t::lib::Util; my $tx = Text::Xslate->new( cache => 0, path => [path], ); my @data = ( [<<'T', <<'X'], [<: "foo" if true :>] T [foo] X [<<'T', <<'X'], [<: "foo" if false :>] T [] X [<<'T', <<'X'], [<: "foo" if $a[0] == 0 :>] T [foo] X [<<'T', <<'X'], [<: "foo" if $a[0] == 1 :>] T [] X [<<'T', <<'X', 'include-if'], : include "hello.tx" if true : include "hello.tx" if true T Hello, Xslate world! Hello, Xslate world! X [<<'T', <<'X'], : include "hello.tx" if false : include "hello.tx" if false T X ); my %vars = ( lang => 'Xslate', a => [ 0 .. 99 ], ); foreach my $d(@data) { my($in, $out, $msg) = @$d; is $tx->render_string($in, \%vars), $out, $msg or diag $in; } done_testing; Text-Xslate-3.4.0/t/030_kolon/033_ov_forloop.t0000644000175000017500000000326113040006205020157 0ustar syoheisyohei#!perl -w use strict; use Test::More; use Text::Xslate; { package _defer; use overload '@{}' => sub { $_[0]->() }, '%{}' => sub { $_[0]->() }, fallback => 1; package _str; use overload '""' => sub { 'foo' }; } sub defer(&) { my($coderef) = @_; return bless $coderef, '_defer'; } my $tx = Text::Xslate->new(verbose => 0); my @data = ( ['Hello, : for $types -> ($type) { [<:= $type :>] : } world!' => "Hello,\n[Str]\n[Int]\n[Object]\nworld!"], ); my %vars = ( types => defer { [qw(Str Int Object)] }, ); foreach my $pair(@data) { my($in, $out, $msg) = @$pair; is $tx->render_string($in, \%vars), $out, $msg or do { diag($in); my $code = $tx->compile($in); diag("// assembly"); diag($tx->_compiler->as_assembly($code)); } for 1 .. 2; } ok ! eval { $tx->render_string(': for $foo -> $i { $i }', { foo => defer { 42 } }), ''; }, "broken overloading object"; is $tx->render_string(': for $foo -> $i { $i }', { foo => bless {}, '_str'}), ''; # is_array_ref() is_hash_ref() respect overloading if(0) { foreach my $x([], defer { [] }) { ok $tx->render_string(': is_array_ref($x)', { x => $x }), "is_array_ref($x)"; } foreach my $x(0, {}, bless [], defer { "foo" }) { ok $tx->render_string(': !is_array_ref($x)', { x => $x }), "!is_array_ref($x)"; } foreach my $x({}, defer { +{} }) { ok $tx->render_string(': is_hash_ref($x)', { x => $x }), "is_hash_ref($x)"; } foreach my $x(0, [], bless {}, defer { "foo" }) { ok $tx->render_string(': !is_hash_ref($x)', { x => $x }), "!is_hash_ref($x)"; } } # TODO: consider it later done_testing; Text-Xslate-3.4.0/t/030_kolon/005_rel_ops.t0000644000175000017500000000326513040006205017441 0ustar syoheisyohei#!perl -w use strict; use Test::More; use Text::Xslate; my $tx = Text::Xslate->new(); use constant { T => 1, F => 0 }; my @data = ( ['<:= $value10 == 10 :>', T], ['<:= $value10 == 20 :>', F], ['<:= $value20 == 10 :>', F], ['<:= $value20 == 20 :>', T], ['<:= $value10 != 10 :>', !T], ['<:= $value10 != 20 :>', !F], ['<:= $value20 != 10 :>', !F], ['<:= $value20 != 20 :>', !T], ['<:= $value10 < 9 :>', F], ['<:= $value10 < 10 :>', F], ['<:= $value10 < 11 :>', T], ['<:= $value10 <= 9 :>', F], ['<:= $value10 <= 10 :>', T], ['<:= $value10 <= 11 :>', T], ['<:= $value10 > 9 :>', T], ['<:= $value10 > 10 :>', F], ['<:= $value10 > 11 :>', F], ['<:= $value10 >= 9 :>', T], ['<:= $value10 >= 10 :>', T], ['<:= $value10 >= 11 :>', F], ['<:= "foo" == "foo" :>', T], ['<:= "foo" == "bar" :>', F], ['<:= "foo" != "foo" :>', F], ['<:= "foo" != "bar" :>', T], ['<:= 3.14 == 3.14 :>', T], ['<:= 3.14 == 3.13 :>', F], ['<:= 3 == 3 :>', T], ['<:= 3 == 2 :>', F], ['<:= "0" == "0E0" :>', F], ['<:= "0" == "" :>', F], ['<:= "foo" == nil :>', F], ['<:= "" == nil :>', F], ['<:= 0 == nil :>', F], ['<:= nil == nil :>', T], ['<:= "foo" != nil :>', T], ['<:= "" != nil :>', T], ['<:= 0 != nil :>', T], ['<:= nil != nil :>', 0], ['<:= "nan" == "nan" :>', T, '"nan" is a normal string'], ); foreach my $pair(@data) { my($in, $out) = @$pair; my %vars = ( value0 => 0, value10 => 10, value20 => 20, ); is !!$tx->render_string($in, \%vars), !!$out or diag $in; } done_testing; Text-Xslate-3.4.0/t/030_kolon/027_lambda.t0000644000175000017500000000141613040006205017216 0ustar syoheisyohei#!perl -w use strict; use Test::More; use Text::Xslate; use Text::Xslate::Compiler; use Text::Xslate::Util qw(p); my $tx = Text::Xslate->new(); my @set = ( [<<'T', {}, <<'X'], <: -> $x { $x + 10 }(0) :> <: -> $x { $x + 10 }(1) :> <: -> $x { $x + 10 }(2) :> T 10 11 12 X [<<'T', {}, <<'X'], <: my $y = 10; -> $x { $x + $y }(15) :> T 25 X [<<'T', {}, <<'X'], <: my $add10 = -> $x { $x + 10 }; $add10(20) :> T 30 X [<<'T', {}, <<'X'], <: constant add10 = -> $x { $x + 10 }; add10(20) :> T 30 X [<<'T', {}, <<'X'], : for [1, 2, 3] -> $v { <: my $addv = -> $x { $x + $v }; $addv(20) :> : } T 21 22 23 X ); foreach my $d(@set) { my($in, $vars, $out, $msg) = @$d; is $tx->render_string($in, $vars), $out, $msg or diag($in); } done_testing; Text-Xslate-3.4.0/t/030_kolon/026_constant.t0000644000175000017500000000575413040006205017637 0ustar syoheisyohei#!perl -w use strict; use Test::More; use Text::Xslate; use Text::Xslate::Util qw(p mark_raw); use t::lib::Util; my $tx = Text::Xslate->new( path => [path], function => { format => sub{ my($fmt) = @_; return sub { mark_raw(sprintf $fmt, @_) } }, }, verbose => 2, ); my @set = ( [<<'T', { lang => 'Xslate' }, <<'X', 'literal'], : constant FOO = 42; <: FOO :> T 42 X [<<'T', { lang => 'Xslate' }, <<'X', 'str'], : constant FOO = "bar"; <: FOO :> T bar X [<<'T', { lang => 'Xslate' }, <<'X', 'expression'], : constant FOO = 40 + 2; <: FOO :> T 42 X [<<'T', { lang => 'Xslate' }, <<'X', 'var'], : constant FOO = $lang; <: FOO :> T Xslate X [<<'T', { lang => 'Xslate' }, <<'X', 'array'], : constant FOO = ["foo", "bar"]; <: FOO[0] :> <: FOO[1] :> T foo bar X [<<'T', { lang => 'Xslate' }, <<'X'], : constant make_em = format('%s'); <: "foo" | make_em :> <: "bar" | make_em :> T foo bar X [<<'T', { data => [qw(foo bar)] }, <<'X'], : for $data -> $i { : constant ITEM = $i; : constant INDEX = $~i.index; : constant COUNT = $~i.count; : constant BODY = $~i.body; <: INDEX :> <: COUNT :> <: BODY[$~i] :> <: ITEM :> : } T 0 1 foo foo 1 2 bar bar X [<<'T', { data => [qw(foo bar)] }, <<'X'], : if (constant FOO = 42) != 42 { UNLIKELY : } : else { <: FOO :> : } T 42 X [<<'T', { data => [qw(foo bar)] }, <<'X'], : if (constant FOO = 42) != 42 { UNLIKELY : } : else { : constant FOO = 100; <: FOO :> : } T 100 X [<<'T', { data => [qw(foo bar)] }, <<'X'], : if (constant FOO = 42) != 42 { UNLIKELY : } : else { : constant FOO = 100; <: FOO :> : } T 100 X [<<'T', { }, <<'X'], <: macro make_em -> $x { :><: $x :><: } -:> : constant EM = make_em; <: EM("foo") :> T foo X [<<'T', { }, <<'X'], <: macro make_em -> $x { :><: $x :><: } -:> : constant EM = [make_em]; <: EM[0]("foo") :> T foo X [<<'T', { a => 'foo', b => 'bar' }, <<'X'], <: macro foo -> { "foo" } macro bar -> { "bar" } constant DISPATCHER = { foo => foo, bar => bar, }; -:> <: DISPATCHER[$a]() :> <: DISPATCHER[$b]() :> T foo bar X [<<'T', { a => 'foo', b => 'bar' }, <<'X', 'constant after loop'], <: constant a = format('%d')(42); constant b = [format('%d')(43)]; constant c = { d => 44 }; macro foo -> $x { " foo\n" } for [1] -> $y { foo($y) | format('%s'); } -:> <: a :> <: b[0] :> <: c.d :> T foo 42 43 44 X ); foreach my $d(@set) { my($in, $vars, $out, $msg) = @$d; is $tx->render_string($in, $vars), $out, $msg or diag($in); while($in =~ s/\b constant \s* (\w+)/my $1/xms) { my $name = $1; $in =~ s/\b \Q$name\E \b/\$$name/xmsg; } $in =~ /\$/ or die "Oops: $in"; #note $in; is $tx->render_string($in, $vars), $out, or diag($in); } done_testing; Text-Xslate-3.4.0/t/030_kolon/014_while.t0000644000175000017500000000371313040006205017104 0ustar syoheisyohei#!perl -w use strict; use Test::More; use Text::Xslate; my $tx = Text::Xslate->new(); { package ResultSet; use Mouse; has data => ( is => 'ro', ); sub fetch { my($self) = @_; return shift @{$self->data}; } } my @data = ( [ <<'T', <<'X', "no loop" ], : while $empty.fetch -> { [ok] : } T X [ <<'T', <<'X', "no loop" ], : while $empty.fetch -> $i { [<:$i:>] : } T X [ <<'T', <<'X', "int array" ], : while $foo.fetch -> $i { [<:$i:>] : } T [1] [2] [3] [4] [5] X [ <<'T', <<'X', "record array" ], : while $bar.fetch -> $item { [<:$item.title:>] : } T [A] [B] [C] X [ <<'T', <<'X', "no loop vars" ], : while $foo.fetch -> { [<:$x:>] : } T [42] [42] [42] [42] [42] X [ <<'T', <<'X', "twice" ], --- : while $foo.fetch ->($x) { [<:$x:>] : } --- : while $bar.fetch ->($x) { [<:$x.title:>] : } --- T --- [1] [2] [3] [4] [5] --- [A] [B] [C] --- X [ <<'T', <<'X', "while defined" ], : while defined $baz.fetch -> $x { [<:$x:>] : } T [0] [1] [2] [3] X [ <<'T', <<'X', "while defined" ], : while defined(my $x = $baz.fetch()) { [<:$x:>] : } T [0] [1] [2] [3] X [ <<'T', <<'X', "while-if" ], : macro ok -> $x { defined $x } : while defined $baz.fetch -> $x { : if ok($x) { [<:$x:>] : } : else { UNLIKELY : } : } T [0] [1] [2] [3] X ); foreach my $d(@data) { my($in, $out, $msg) = @$d; my %vars = ( empty => ResultSet->new(data => []), foo => ResultSet->new(data => [1 .. 5]), bar => ResultSet->new(data => [ { title => 'A' }, { title => 'B' }, { title => 'C' }, ]), baz => ResultSet->new(data => [0 .. 3]), x => 42 ); is $tx->render_string($in, \%vars), $out, $msg or diag $in; } done_testing; Text-Xslate-3.4.0/t/030_kolon/009_include.t0000644000175000017500000000154713040006205017426 0ustar syoheisyohei#!perl -w use strict; use Test::More; use Text::Xslate; use t::lib::Util; my $tx = Text::Xslate->new(cache => 0, path => [path]); for(1 .. 2) { # to test including depth for(1 .. 100){ is $tx->render('include.tx', { lang => "Xslate" }), "include:\n" . "Hello, Xslate world!\n", "index.tx ($_)"; is $tx->render('include2.tx', { file => "hello.tx", lang => "Xslate" }), "include2:\n" . "Hello, Xslate world!\n", 'index2.tx (literal)'; is $tx->render('include2.tx', { file => "include.tx", lang => "Xslate" }), "include2:\n" . "include:\n" . "Hello, Xslate world!\n", 'index2.tx (var)'; } eval { $tx->render('include2.tx', { file => "include2.tx", lang => "Xslate" }); }; like $@, qr/\bXslate\b/xms, "recursion"; like $@, qr/too \s+ deep/xms, "recursion"; } done_testing; Text-Xslate-3.4.0/t/030_kolon/034_print.t0000644000175000017500000000152513040006205017131 0ustar syoheisyohei#!perl -w use strict; use Test::More; use Text::Xslate; my $tx = Text::Xslate->new( function => { myprint => sub { Text::Xslate->print(@_) }, mysay => sub { Text::Xslate->print(@_, "\n") }, }, warn_handler => sub { Text::Xslate->print(@_) }, verbose => 2, ); is $tx->render_string('[<: myprint() :>]'), '[]'; is $tx->render_string('[<: myprint("") :>]'), '[<foo>]'; is $tx->render_string('[<: myprint("", "") :>]'), '[<foo><bar>]'; is $tx->render_string('[<: mysay() :>]'), "[\n]"; is $tx->render_string('[<: mysay("") :>]'), "[<foo>\n]"; is $tx->render_string('[<: mysay("", "") :>]'), "[<foo><bar>\n]"; like $tx->render_string("<: nil :>"), qr/nil/; like $tx->render_string("<: nil :>"), qr/<string>/; done_testing; Text-Xslate-3.4.0/t/030_kolon/003_for.t0000644000175000017500000001017113040006205016554 0ustar syoheisyohei#!perl -w use strict; use Test::More; use Text::Xslate; my $tx = Text::Xslate->new(); my @data = ( ['Hello, : for $types -> ($type) { [<:= $type :>] : } world!' => "Hello,\n[Str]\n[Int]\n[Object]\nworld!"], ['Hello, :for$types->($type){ [<:=$type:>] :} world!' => "Hello,\n[Str]\n[Int]\n[Object]\nworld!"], ['Hello, : for $types -> ($type) { := $type : } world!' => "Hello,\nStrIntObjectworld!"], ['<< : for $types -> ($t1) { : for $types -> ($t2) { [<:=$t1:>|<:=$t2:>] : } : } >>', "<< [Str|Str] [Str|Int] [Str|Object] [Int|Str] [Int|Int] [Int|Object] [Object|Str] [Object|Int] [Object|Object] >>", "nested"], ['<< : for $types -> ($t1) { [<:=$t1:>] : } | : for $types -> ($t1) { [<:=$t1:>] : } >>', "<< [Str] [Int] [Object] | [Str] [Int] [Object] >>"], ['<< : for $types -> ($lang) { [<:=$lang:>] : } >> <:=$lang:>', "<< [Str] [Int] [Object] >> Xslate"], ['<< : for $Types -> ($t) { [<:=$t.name:>] : } >>', "<< [Void] [Bool] >>"], ['<< : for $empty -> ($t) { [<:=$t.name:>] : } >>', "<< >>"], [<<'T', <<'X'], : macro foo -> $x { : for $x -> ($item) { <: $item :> : } : } : for $data -> ($item) { : foo($item) : } T Perl X [<<'T', <<'X'], : for $types -> ($item) { <: $~item :> : } T 0 1 2 X # iterators [<<'T', <<'X'], : for $types -> $item { : if (($~item+1) % 2) == 0 { Even : } : else { Odd : } : } T Odd Even Odd X [<<'T', <<'X'], : for $types -> ($item) { <: $~item.index :> : } T 0 1 2 X [<<'T', <<'X'], : for $types -> ($item) { <: $~item.count :> : } T 1 2 3 X [<<'T', <<'X', 'is_first && is_last'], : for $types -> ($item) { : if $~item.is_first { ---- first ---- : } <: $~item.count :> : if $~item.is_last { ---- last ---- : } : } T ---- first ---- 1 2 3 ---- last ---- X [<<'T', <<'X', 'size'], : for $types -> ($item) { <: $~item.size :> : } T 3 3 3 X [<<'T', <<'X', 'max_index'], : for $types -> ($item) { <: $~item.max_index :> : } T 2 2 2 X [<<'T', <<'X', 'body'], : for $types -> ($item) { <: $~item.body[ $~item.index ] :> : } T Str Int Object X [<<'T', <<'X', 'peek_next'], : for $types -> ($item) { <: $~item.peek_next // "(none)" :> : } T Int Object (none) X [<<'T', <<'X', 'peek_prev'], : for $types -> ($item) { <: $~item.peek_prev // "(none)" :> : } T (none) Str Int X [<<'T', <<'X', 'cycle'], : for [1, 2, 3, 4] -> ($item) { <: $~item.cycle("foo", "bar") :> : } T foo bar foo bar X [<<'T', <<'X', 'cycle'], : for [1, 2, 3, 4, 5, 6, 7, 8, 9] -> ($item) { <: $~item.cycle("foo", "bar", "baz") :> : } T foo bar baz foo bar baz foo bar baz X [<<'T', <<'X', 'cycle'], : for [1, 2, 3, 4] -> ($item) { <: $~item.cycle("foo", "bar", "baz") :> : } ------- : for [1, 2, 3, 4] -> ($item) { <: $~item.cycle("FOO", "BAR", "BAZ") :> : } T foo bar baz foo ------- FOO BAR BAZ FOO X [<<'T', <<'X', 'nested $~i'], : for $types -> $i { : for $types -> $j { [<: $~i.index :>][<: $~j.count :>] : } : } T [0][1] [0][2] [0][3] [1][1] [1][2] [1][3] [2][1] [2][2] [2][3] X [<<'T', <<'X', 'nested $~i.cycle()'], : for $types -> $i { : for $types -> $j { [<: $~i.cycle("a", "b") :>][<: $~j.cycle("c", "d", "e") :>] : } : } T [a][c] [a][d] [a][e] [b][c] [b][d] [b][e] [a][c] [a][d] [a][e] X ); my %vars = ( lang => 'Xslate', types => [qw(Str Int Object)], Types => [{ name => 'Void' }, { name => 'Bool' }], empty => [], data => [[qw(Perl)]], ); foreach my $pair(@data) { my($in, $out, $msg) = @$pair; is $tx->render_string($in, \%vars), $out, $msg or do { diag($in); my $code = $tx->compile($in); diag("// assembly"); diag($tx->_compiler->as_assembly($code)); }; } done_testing; Text-Xslate-3.4.0/t/030_kolon/004_if.t0000644000175000017500000000546513040006205016377 0ustar syoheisyohei#!perl -w use strict; use Test::More; use Text::Xslate; my $tx = Text::Xslate->new(); my @data = ( [': if $lang { ok : } : else { not ok : } ' => "ok\n", "if-else"], [': if !$lang { ok : } : else { not ok : } ' => "not ok\n"], [': if($lang){ ok : } : else { not ok : } ' => "ok\n"], [': if(!$lang){ ok : } : else { not ok : } ' => "not ok\n"], [': if $lang { ok : } !' => "ok\n!"], [': if $void { ok : } !' => "!"], [': if !$void { ok : } !' => "ok\n!"], [': if $void { } else { ok : } !' => "ok\n!"], [': if !$void { Hello, <: $lang :> world! : } ' => "Hello, Xslate world!\n"], [': if $void { } else { Hello, <: $lang :> world! : } ' => "Hello, Xslate world!\n"], [': if $lang { a : } : else if $lang { b : } !' => "a\n!"], [': if !$lang { a : } : else if $lang { b : } !' => "b\n!"], [<<'T', <<'X', "if-else-if-end (1)"], : if $lang == "Xslate" { foo : } : else if $value == 10 { bar : } : else { baz : } T foo X [<<'T', <<'X', "if-else-if-end (2)"], : if $lang != "Xslate" { foo : } : else if $value == 10 { bar : } : else { baz : } T bar X [<<'T', <<'X', "if-else-if-end (3)"], : if $lang != "Xslate" { foo : } : else if $value != 10 { bar : } : else { baz : } T baz X [<<'T', <<'X', "if-elsif-end (1)"], : if $lang == "Xslate" { foo : } : elsif $value == 10 { bar : } : else { baz : } T foo X [<<'T', <<'X', "if-elsif-end (2)"], : if $lang != "Xslate" { foo : } : elsif $value == 10 { bar : } : else { baz : } T bar X [<<'T', <<'X', "if-elsif-end (3)"], : if $lang != "Xslate" { foo : } : elsif $value != 10 { bar : } : else { baz : } T baz X [<<'T', <<'X', "if does not require parens"], : if ($value + 10) == 20 { foo : } T foo X [<<'T', <<'X', "if defined"], : if defined $lang { foo : } T foo X [<<'T', <<'X', "if not defined"], : if not defined $undefined { foo : } T foo X [<<'T', <<'X', "if not not defined"], : if not not defined $lang { foo : } T foo X [<<'T', <<'X', "if nil"], : if $undefined == nil { foo : } T foo X [<<'T', <<'X', "if not nil"], : if not $value == nil { foo : } T foo X [<<'T', <<'X'], : if $value != nil and 1 { foo : } T foo X [<<'T', <<'X'], : if $value != nil or 1 { foo : } T foo X [<<'T', <<'X'], : if 1 and $value != nil { foo : } T foo X [<<'T', <<'X'], : if 0 or $value != nil { foo : } T foo X ); my %vars = ( lang => 'Xslate', void => '', value => 10, ); foreach my $d(@data) { my($in, $out, $msg) = @$d; is $tx->render_string($in, \%vars), $out, $msg or diag $in; } done_testing; Text-Xslate-3.4.0/t/030_kolon/029_blockfilter.t0000644000175000017500000000300013040006205020267 0ustar syoheisyohei#!perl -w use strict; use Test::More; use Text::Xslate; my $tx = Text::Xslate->new( verbose => 2, function => { uc => sub { uc $_[0] }, tag => sub { my($tag) = @_; return sub { return "<$tag>\n@_\n"; }; }, }, ); my @set = ( [<<'T', undef, <<'X'], : macro div -> $content {
<: $content -:>
: } : block main|div -> { Hello, world! : } T
Hello, world!
X [<<'T', undef, <<'X'], : block main|uc -> { Hello, world! : } T HELLO, WORLD! X [<<'T', undef, <<'X'], : block main | tag('p') -> { Hello, world! : } T <p> Hello, world! </p> X [<<'T', undef, <<'X'], : block main | tag('p') | raw -> { Hello, world! : } T

Hello, world!

X [<<'T', undef, <<'X', 'html filter does nothing'], : block main | html -> { Hello, world! : } T Hello, world! X [<<'T', undef, <<'X', 'use unmark_raw to apply html-escape'], : block main | unmark_raw -> { Hello, world! : } T <em>Hello, world!</em> X [<<'T', undef, <<'X'], : block main | raw -> { Hello, world! : } T Hello, world! X [<<'T', undef, <<'X'], : constant tag_p = tag('p'); : block main | tag_p | raw -> { Hello, world! : } T

Hello, world!

X ); foreach my $d(@set) { my($in, $vars, $out, $msg) = @$d; is $tx->render_string($in, $vars), $out, $msg or diag $in; } done_testing; Text-Xslate-3.4.0/t/030_kolon/019_explicit_interpolate.t0000644000175000017500000000233313040006205022225 0ustar syoheisyohei#!perl -w use strict; use Test::More; use Text::Xslate; my $tx = Text::Xslate->new(); my @data = ( ['Hello, world!' => 'Hello, world!'], ['Hello, <:= $lang :> world!' => 'Hello, Xslate world!'], ['Hello, <:= $foo :> world!' => 'Hello, <bar> world!'], ['<:= $lang :> <:= $foo :> <:= $lang :> <:= $foo :>' => 'Xslate <bar> Xslate <bar>'], [q{foo <:= $lang :> bar} => "foo Xslate bar"], [q{<: print $lang :>} => "Xslate"], [q{<:print $lang:>} => "Xslate"], [q{<:print $lang, "\n":>} => "Xslate\n"], [q{<:print "<", $lang, ">":>} => "<Xslate>"], [q{<:print_raw "<", $lang, ">":>} => ""], ['<:= "foo\tbar\n" :>', "foo\tbar\n"], [q{<:= 'foo\tbar\n' :>}, 'foo\tbar\n'], [q{<:= ' & " \' ' :>}, ' & " ' '], [q{foo<:# this is a comment :>bar}, "foobar"], [q{<:=$lang:> foo<:# this is a comment :>bar <:=$lang:>}, "Xslate foobar Xslate"], [q{foo<: :>bar}, "foobar"], [q{foo<: # this is a comment $lang :>bar}, "fooXslatebar"], ); foreach my $pair(@data) { my($in, $out) = @$pair; my %vars = (lang => 'Xslate', foo => ""); is $tx->render_string($in, \%vars), $out or diag $in; } done_testing; Text-Xslate-3.4.0/t/030_kolon/037_loop_ctl.t0000644000175000017500000000247413040006205017617 0ustar syoheisyohei#!perl -w use strict; use Test::More; use Text::Xslate; my %vpath = ( ); my $tx = Text::Xslate->new( cache => 0, path => \%vpath, verbose => 2, warn_handler => sub { die @_ }, ); note 'for'; is $tx->render_string(<<'T'), <<'X' or die; : for [42, 43, 44] -> $it { : last if $it == 43; * <:$it:> : } : else { nothing : } T * 42 X is $tx->render_string(<<'T'), <<'X' or die; : for [42, 43, 44] -> $it { : next if $it == 43; * <:$it:> : } : else { nothing : } T * 42 * 44 X note 'while'; my $iter = do{ my @a = (42, 43, 44); sub { shift @a } }; is $tx->render_string(<<'T', { iter => $iter }), <<'X'; : while $iter() -> $it { : next if $it == 43; * <:$it:> : } T * 42 * 44 X $iter = do{ my @a = (42, 43, 44); sub { shift @a } }; is $tx->render_string(<<'T', { iter => $iter }), <<'X'; : while $iter() -> $it { : last if $it == 43; * <:$it:> : } T * 42 X $iter = do{ my @a = (42, 43, 44); sub { shift @a } }; is $tx->render_string(<<'T', { iter => $iter }), <<'X'; : while $iter() -> $it { * <:$it:> : last if $it == 43; : } T * 42 * 43 X eval { $tx->render_string(': last') }; like $@, qr/Use of loop control statement \(last\)/; eval { $tx->render_string(': next') }; like $@, qr/Use of loop control statement \(next\)/; done_testing; Text-Xslate-3.4.0/t/030_kolon/038_custom_esc.t0000755000175000017500000000547713040006205020162 0ustar syoheisyohei#!perl -w use strict; use Test::More; use Text::Xslate qw(html_builder mark_raw); sub custom_html_escape { # for html_escape() my $s = shift; return $s if ref $s; my %h = ( '<' => '<', '>' => '>', q{'} => ''', q{"} => '"', # '&' => '&', # Don't espcae &. allowing to use character-entitfy-references(like '&#hearts) ); $s =~ s/(.)/$h{$1} or $1/xmsge; $s; } sub custom_html_filter { # for html() my $s = shift; return $s if ref $s; my %h = ( '<' => '<', '>' => '>', q{'} => ''', q{"} => '"', # '&' => '&', # Don't espcae &. allowing to use character-entitfy-references(like '&#hearts) ); $s =~ s/(.)/$h{$1} or $1/xmsge; mark_raw($s); } note 'override html_escape()'; { my $tx = Text::Xslate->new( cache => 0, verbose => 2, warn_handler => sub { die @_ }, function => { html_escape => \&custom_html_escape }, ); is $tx->render_string(q{
<: '<^_^>♥' :>
}), '
<^_^>♥
'; is $tx->render_string(q{
<: $foo :>
}, { foo => '<^_^>♥' }), '
<^_^>♥
'; is $tx->render_string(q{<: '
' :>}), '<div>'; is $tx->render_string(q{<: '
' | raw :>}), '
'; is $tx->render_string(q{<: '
' | html :>}), '<div>'; } note 'override html()'; { my $tx = Text::Xslate->new( cache => 0, verbose => 2, warn_handler => sub { die @_ }, function => { html => \&custom_html_filter }, ); is $tx->render_string(q{
<: '<^_^>♥' :>
}), '
<^_^>&hearts;
'; is $tx->render_string(q{
<: $foo :>
}, { foo => '<^_^>♥' }), '
<^_^>&hearts;
'; is $tx->render_string(q{<: '
' :>}), '<div>'; is $tx->render_string(q{<: '
' | raw :>}), '
'; is $tx->render_string(q{<: '
' | html :>}), '<div>'; is $tx->render_string(q{
<: $foo | html :>
}, { foo => '<^_^>♥' }), '
<^_^>♥
' or die 'stop'; } note 'override html_escape() with type=text'; { my $tx_no_autoescape = Text::Xslate->new( cache => 0, verbose => 2, warn_handler => sub { die @_ }, type => 'text', function => { html_escape => \&custom_html_escape }, ); is $tx_no_autoescape->render_string(q{<: '
' :>}), '
'; is $tx_no_autoescape->render_string(q{<: '
' | raw :>}), '
'; is $tx_no_autoescape->render_string(q{<: '
' | html :>}), '<div>'; } done_testing; Text-Xslate-3.4.0/t/030_kolon/002_field.t0000644000175000017500000000333213040006205017051 0ustar syoheisyohei#!perl -w use strict; use Test::More; use Text::Xslate; my $tx = Text::Xslate->new(); my @data = ( ['<:= $var.field :>', 'value'], ['<:= $g.f.x :>', 'gfx'], ['<:= $x.f.g :>', 'xfg'], ['<:= $a.foo :>', 'bar'], ['<:= $ary.0 :>', 10], ['<:= $ary.1 :>', 20], ['<:= $ary.2 :>', 30], ['<:= $var["field"] :>', 'value'], ['<:= $g["f"]["x"] :>', 'gfx'], ['<:= $x["f"]["g"] :>', 'xfg'], ['<:= $a["foo"] :>', 'bar'], ['<:= $a[$foo] :>', 'bar'], ['<:= $a[$foo] :>', 'bar'], ['<:= $ary[0] :>', 10], ['<:= $ary[1] :>', 20], ['<:= $ary[2] :>', 30], ['<: constant foo = "xxx"; $var[foo] :>', "yyy"], ['<: constant field = "xxx"; $var[field] :>', "yyy"], ['<: constant foo = "xxx"; $var.foo :>', "FOO"], ['<: constant field = "xxx"; $var.field :>', "value"], ['<: $var.if :>', 'IF'], ['<: $var.nil :>', 'NIL'], ['<: $var.not :>', 'NOT'], ['<: $var.true :>', 'TRUE'], ['<: $var[true] :>', 'one'], ['<: $ary[false] :>', '10'], ['<: $ary[true] :>', '20'], ['<: $a :>', 'as_string'], ); { package A; use Mouse; use overload '""' => sub{ "as_string" }; has foo => ( is => 'rw', ); } my %vars = ( var => { foo => 'FOO', field => 'value', xxx => 'yyy', if => 'IF', nil => 'NIL', true => 'TRUE', not => 'NOT', 1 => 'one', }, g => { f => { x => 'gfx' } }, x => { f => { g => 'xfg' } }, a => A->new(foo => 'bar'), ary => [10, 20, 30], foo => 'foo', ); foreach my $pair(@data) { my($in, $out) = @$pair; is $tx->render_string($in, \%vars), $out or diag $in; } done_testing; Text-Xslate-3.4.0/t/030_kolon/011_macro.t0000644000175000017500000000416313040006205017072 0ustar syoheisyohei#!perl -w use strict; use Test::More; use Text::Xslate; my $tx = Text::Xslate->new( verbose => 2, ); my @set = ( [<<'T', {lang => 'Xslate'}, <<'X', 'empty block'], A : block foo -> { } B T A B X [<<'T', {lang => 'Xslate'}, <<'X', 'template with a block'], A : block foo -> { Hello, <: $lang :> world! : } B T A Hello, Xslate world! B X [<<'T', {lang => 'Xslate'}, <<'X'], A : block foo -> { Hello, <: $lang :> world! : } B T A Hello, Xslate world! B X [<<'T', {}, <<'X', 'template with bocks'], A : block foo -> { FOO : } B : block bar -> { BAR : } C T A FOO B BAR C X [<<'T', {}, <<'X', 'simplest macro'], : macro foo -> { FOO : } : foo() T FOO X [<<'T', {}, <<'X'], : macro foo -> { FOO : } : foo() T FOO X [<<'T', {x => "foo"}, <<'X', 'with an arg'], : macro foo -> ($x) { FOO(<:$x:>) : } : foo(42) T FOO(42) X [<<'T', {}, <<'X', 'macro with args'], : macro add -> $x, $y { [<: ($x + $y) :>] : } :add(10, 20) # 30 :add(11, 22) # 33 :add(15, 25) # 40 T [30] [33] [40] X [<<'T', { VERSION => '1.012' }, <<'X', 'returns string'], : macro signeture -> { This is foo version <:= $VERSION :> : } : "*" ~ signeture() T * This is foo version 1.012 X ); foreach my $d(@set) { my($in, $vars, $out, $msg) = @$d; is $tx->render_string($in, $vars), $out, $msg for 1 .. 2; } my $warn = ''; $tx = Text::Xslate->new( warn_handler => sub{ $warn .= "@_" }, ); my $out = eval { $tx->render_string(<<'T', {}); : macro foo -> $arg { Hello <:= $arg :>, world! : } : foo() T }; is $out, ''; like $warn, qr/Wrong number of arguments for foo/, 'too few arguments'; is $@, ''; $out = eval { $tx->render_string(<<'T', {}); : macro foo -> $arg { Hello <:= $arg :>, world! : } : foo(1, 2) T }; is $out, ''; like $warn, qr/Wrong number of arguments for foo/, 'too many arguments'; is $@, ''; done_testing; Text-Xslate-3.4.0/t/030_kolon/032_include_bareword.t0000644000175000017500000000117413040006205021303 0ustar syoheisyohei#!perl -w use strict; use Test::More; use Text::Xslate; my %vpath = ( 'hello.tx' => 'Hello, world!', ); my $tx = Text::Xslate->new( path => \%vpath, cache => 0, ); is $tx->render('hello.tx'), 'Hello, world!'; is $tx->render_string(<render_string(< 'Hello, world!', ); $tx = Text::Xslate->new( path => \%vpath, cache => 0, suffix => '.html', ); is $tx->render_string(< 'external macros are not yet implemented'; use Text::Xslate; my %vpath = ( 'macro/common.tx' => <<'T', : macro hello -> { Hello, world! : } T 'foo.tx' => <<'T', : import macro::common; : hello() T ); my $tx = Text::Xslate->new( path => \%vpath, ); is $tx->render('foo.tx'), "Hello, world!\n"; done_testing; Text-Xslate-3.4.0/t/030_kolon/023_bitwise.t0000644000175000017500000000204713040006205017441 0ustar syoheisyohei#!perl -w use strict; use Test::More; use Text::Xslate; my $tx = Text::Xslate->new(); my @data = ( ['<: 0x011 +| 0x100 :>', 0x111 ], ['<: $value0 +| 0x111 :>', 0x111 ], ['<: $value0x201 +| 0x111 :>', 0x311 ], ['<: 0x111 +| $value0x201 :>', 0x311 ], ['<: 0x011 +& 0x010 :>', 0x010 ], ['<: $value0 +& 0x111 :>', 0x000 ], ['<: $value0x201 +& 0x111 :>', 0x001 ], ['<: 0x111 +& $value0x201 :>', 0x001 ], ['<: 0x00101 +^ 0x00100 :>', 0x00001 ], ['<: 0x10100 +^ 0x10000 :>', 0x00100 ], ['<: $value0 +^ 0x111 :>', 0x111 ], ['<: $value0x201 +^ 0x111 :>', 0x310 ], ['<: 0x111 +^ $value0x201 :>', 0x310 ], ['<: +^0 :>', ~0, 'const'], ['<: +^0x201 :>', ~0x201, 'const'], ['<: +^$value0 :>', ~0, 'var'], ['<: +^$value0x201 :>', ~0x201, 'var'], ); my %vars = ( value0 => 0, value0x201 => 0x201, ); foreach my $d(@data) { my($in, $out, $msg) = @$d; is $tx->render_string($in, \%vars), $out, $msg or diag $in; } done_testing; Text-Xslate-3.4.0/t/030_kolon/024_localize_vars.t0000644000175000017500000000373613040006205020637 0ustar syoheisyohei#!perl -w use strict; use Test::More; use Text::Xslate; use Text::Xslate::Util qw(p); use t::lib::Util; my $tx = Text::Xslate->new( path => [path], cache => 0, function => { vars => sub { return { lang => 'Perl' } }, }, ); my @set = ( # cascade [<<'T', { lang => 'Xslate' }, <<'X', 'cascade with local vars'], : cascade myapp::base { lang => "Perl" } T HEAD Hello, Perl world! FOOT X [<<'T', { lang => 'Xslate' }, <<'X'], : cascade myapp::base { foo => 43*(1+2), lang => "Perl" } T HEAD Hello, Perl world! FOOT X [<<'T', { lang => 'Xslate' }, <<'X'], : macro content -> { "Perl" } : cascade myapp::base { lang => content() } T HEAD Hello, Perl world! FOOT X # include [<<'T', { lang => 'Xslate' }, <<'X', 'include with vars'], : include "hello.tx" { lang => "Perl" } T Hello, Perl world! X [<<'T', { lang => 'Xslate' }, <<'X', 'vars localized'], : include "hello.tx" { lang => "Perl" } Hello, <: $lang :> world! T Hello, Perl world! Hello, Xslate world! X [<<'T', { lang => 'Xslate' }, <<'X', 'vars localized'], : include "hello.tx" { __ROOT__.merge({ lang => 'Perl' }) } Hello, <: $lang :> world! T Hello, Perl world! Hello, Xslate world! X [<<'T', { lang => 'Xslate' }, <<'X', 'vars localized'], : include "hello.tx" { vars() } Hello, <: $lang :> world! T Hello, Perl world! Hello, Xslate world! X ); foreach my $d(@set) { my($in, $vars, $out, $msg) = @$d; my $pre = p($vars); is $tx->render_string($in, $vars), $out, $msg or diag($in); is p($vars), $pre, '$vars is not changed'; } # macros over include #$tx = Text::Xslate->new( # path => { # foo => <<'T', #: macro add -> $x, $y { $x + $y } #: include "bar" { add => add } #T # bar => <<'T', #: $add($foo, $bar) #T #}); # #is $tx->render('bar', { add => sub { $_[0] + $_[1] }, foo => 10, bar => 15 }), 25; #is $tx->render('foo', { foo => 10, bar => 20 }), 30; #is $tx->render('foo', { foo => 20, bar => 25 }), 45; done_testing; Text-Xslate-3.4.0/t/030_kolon/006_arith_ops.t0000644000175000017500000000422213040006205017761 0ustar syoheisyohei#!perl -w use strict; use Test::More; use Text::Xslate; my $tx = Text::Xslate->new(); my @data = ( ['<:= $value10 + 11 :>', 21], ['<:= $value10 - 11 :>', -1], ['<:= 12 + $value10 :>', 22], ['<:= 12 - $value10 :>', 2], ['<:= $value10 + $value20 :>', 30], ['<:= $value0 + $value20 :>', 20], ['<:= 1 + 3 + 5 :>', 9], ['<:= 1 + 3 - 5 :>', -1], ['<:= 1 - 3 + 5 :>', 3], ['<:=(1 - 3) + 5 :>', 3], ['<:= 1 - (3 + 5):>', -7], ['<:= 9 - (3 + (5 - 7)):>', 8], ['<:= (3 + (5 - 7)) + 9:>', 10], ['<:= 3 * 2 :>', 6], ['<:= 3 / 2 :>', 1.5], ['<:= 3 % 2 :>', 1], ['<:= 1 + 3 * 2 :>', 7], ['<:= 1 + 3 / 2 :>', 2.5], ['<:= 1 + 3 % 2 :>', 2], ['<:= 9 + 3 * 2 :>', 15], ['<:= 9 + 3 / 2 :>', 10.5], ['<:= 9 + 3 % 2 :>', 10], ['<:= 1 + 3 * 2 + 42 :>', 7 + 42], ['<:= 1 + 3 / 2 + 42 :>', 2.5 + 42], ['<:= 1 + 3 % 2 + 42 :>', 2 + 42], ['<:= 9 + 3 * 2 + 42 :>', 15 + 42], ['<:= 9 + 3 / 2 + 42 :>', 10.5+ 42], ['<:= 9 + 3 % 2 + 42 :>', 10 + 42], ['<:= "foo" x 0 :>', "foo" x 0], ['<:= "foo" x 3 :>', "foo" x 3], ['<:= "foo" x 10.5 :>', "foo" x 10.5], # from Perl6 ['<:= "foo" ~ "bar" :>', "foobar" ], ['<:= "foo" ~ "bar" ~ "baz" :>', "foobarbaz" ], ['<: 10 min 20 :>', 10 ], ['<: 20 min 10 :>', 10 ], ['<: 10 max 20 :>', 20 ], ['<: 20 max 10 :>', 20 ], ['<: 10 min 20 min 30 :>', 10 ], ['<: 30 min 20 min 10 :>', 10 ], ['<: 10 max 20 max 30 :>', 30 ], ['<: 30 max 20 max 10 :>', 30 ], ['<: ($value0 == 0 ? 10 : 20) min 30 :>', 10 ], ['<: ($value0 != 0 ? 10 : 20) min 30 :>', 20 ], ['<: ($value0 == 0 ? 10 : 20) max 30 :>', 30 ], ['<: ($value0 != 0 ? 10 : 20) max 30 :>', 30 ], ['<: 30 min ($value0 == 0 ? 10 : 20) :>', 10 ], ['<: 30 min ($value0 != 0 ? 10 : 20) :>', 20 ], ['<: 30 max ($value0 == 0 ? 10 : 20) :>', 30 ], ['<: 30 max ($value0 != 0 ? 10 : 20) :>', 30 ], ); my %vars = ( value0 => 0, value10 => 10, value20 => 20, ); foreach my $pair(@data) { my($in, $out) = @$pair; is $tx->render_string($in, \%vars), $out or diag $in; } done_testing; Text-Xslate-3.4.0/t/020_interface/0000755000175000017500000000000013040325435016045 5ustar syoheisyoheiText-Xslate-3.4.0/t/020_interface/001_parser_option.t0000644000175000017500000000401513040006205021465 0ustar syoheisyohei#!perl -w use strict; use Test::More; use Text::Xslate; use Text::Xslate::Parser; my $tx = Text::Xslate->new( line_start => '#', ); is $tx->render_string(<<'T'), "Hello, Xslate world!", 'line_start'; # "Hello, Xslate world!" T is $tx->render_string(<<'T'), qq{: "Hello, Xslate world!"\n}; : "Hello, Xslate world!" T # https://github.com/gfx/p5-Text-Xslate/issues#issue/21 $tx = Text::Xslate->new( line_start => undef, ); is $tx->render_string(<<'T'), qq{# "Hello, Xslate world!"\n}, 'line_start => undef'; # "Hello, Xslate world!" T is $tx->render_string(<<'T'), qq{: "Hello, Xslate world!"\n}; : "Hello, Xslate world!" T $tx = Text::Xslate->new( tag_start => '[%', tag_end => '%]', ); is $tx->render_string(<<'T', { foo => "Xslate"}), q{<: $foo :>Xslate<: $foo :>} . "\n", 'tag_start & tag_end'; <: $foo :>[% $foo %]<: $foo :> T $tx = Text::Xslate->new( syntax => 'TTerse', tag_start => '<%', tag_end => '%>', ); is $tx->render_string(<<'T', { foo => "Xslate"}), q{[% $foo %]Xslate[% $foo %]} . "\n", 'tag_start & tag_end'; [% $foo %]<% $foo %>[% $foo %] T $tx = Text::Xslate->new( syntax => 'TTerse', tag_start => '{', tag_end => '}', ); is $tx->render_string('Hello, {lang} world!', { lang => 'Xslate' }), 'Hello, Xslate world!'; my $myparser = Text::Xslate::Parser->new( line_start => undef, tag_start => '[%', tag_end => '%]', ); $tx = Text::Xslate->new( syntax => $myparser, ); isa_ok $tx, 'Text::Xslate'; my @data = ( ['Hello, [%= $lang %] world!' => 'Hello, Xslate world!'], ['Hello, [%= $foo %] world!' => 'Hello, <bar> world!'], [q{foo [%= $lang %] bar} => "foo Xslate bar"], # no default ['Hello, <: $lang :> world!' => 'Hello, <: $lang :> world!'], [":= \$lang\n", ":= \$lang\n"], # no line code ["%= \$lang\n", "%= \$lang\n"], ); my %vars = (lang => 'Xslate', foo => ""); foreach my $pair(@data) { my($in, $out) = @$pair; is $tx->render_string($in, \%vars), $out or diag $in; } done_testing; Text-Xslate-3.4.0/t/020_interface/012_default_functions.t0000644000175000017500000000072713040006205022325 0ustar syoheisyohei#!perl -w use strict; use Test::More; use Text::Xslate; { package MyXslate; use parent qw(Text::Xslate); sub default_functions { return { foo => sub { 'bar' }, blessed => sub { 42 }, }; } } my $tx = MyXslate->new( module => [qw(Scalar::Util) => [qw(blessed)]], ); is $tx->render_string('<: foo() :>'), 'bar'; is $tx->render_string('<: blessed($o) :>', { o => bless {}, 'XYZ' }), 'XYZ'; done_testing; Text-Xslate-3.4.0/t/020_interface/010_err_encoding.t0000644000175000017500000000124513040006205021241 0ustar syoheisyohei#!perl -w use strict; use Test::More; use Text::Xslate; use t::lib::Util; use utf8; binmode Test::More->builder->output, ":utf8"; binmode Test::More->builder->failure_output, ":utf8"; binmode Test::More->builder->todo_output, ":utf8"; my $warn = ''; my $tx = Text::Xslate->new( cache => 0, path => [path], verbose => 2, warn_handler => sub { $warn .= "@_"; }, ); like $tx->render('hello_utf8.tx'), qr/ã“ã‚“ã«ã¡ã¯/; like $warn, qr/ã“ã‚“ã«ã¡ã¯/; eval { $tx->render_string('<: ã“ã‚“ã«ã¡ã¯'); # syntax error }; note $@; like $@, qr/\<\: ã“ã‚“ã«ã¡ã¯/, 'wide characters in error messages'; done_testing; Text-Xslate-3.4.0/t/020_interface/007_data_section.t0000644000175000017500000000232113040006205021242 0ustar syoheisyohei#!perl -w use strict; use Test::More; use Text::Xslate; use t::lib::Util; use File::Path qw(rmtree); rmtree(cache_dir); END{ rmtree(cache_dir) } my %vpath = ( 'foo.tx' => 'Hello, <: $lang :> world!', 'base.tx' => <<'T', <: block body -> { :>default body<: } :> T 'child.tx' => <<'T', : cascade base; : override body -> { child body : } # endblock body T ); for my $cache(0 .. 2) { note "cache => $cache"; my $tx = Text::Xslate->new( path => [ \%vpath, path ], cache_dir => cache_dir, cache => $cache, ); is $tx->render('foo.tx', { lang => 'Xslate' }), 'Hello, Xslate world!', "(1)"; is $tx->render('foo.tx', { lang => 'Perl' }), 'Hello, Perl world!', "(2)"; is $tx->render('child.tx'), <<'X' for 1 .. 2; child body X is $tx->render('hello.tx', { lang => 'Xslate' }), "Hello, Xslate world!\n", "for real files"; # reload local $vpath{'foo.tx'} = 'Modified'; $tx = Text::Xslate->new( path => \%vpath, cache_dir => cache_dir, cache => $cache, ); is $tx->render('foo.tx', { lang => 'Xslate' }), 'Modified', 'reloaded'; } done_testing; Text-Xslate-3.4.0/t/020_interface/013_slurp_template.t0000644000175000017500000000157513040006205021654 0ustar syoheisyohei#!perl -w use strict; use utf8; use Test::More; use Text::Xslate; use Encode (); use File::Path qw(rmtree); use t::lib::Util; rmtree(cache_dir); END{ rmtree(cache_dir) } { package MyTemplate; our @ISA = qw(Text::Xslate); sub slurp_template { my($self, $input_layer, $fullpath) = @_; my $content = $self->SUPER::slurp_template($input_layer, $fullpath); return Encode::encode('cp932', $content); } } my $p = Encode::encode('cp932', 'エクスレート'); for(1 .. 2) { my $tx = MyTemplate->new( path => [path], cache_dir => cache_dir, ); is $tx->render('hello_utf8.tx', { name => $p }), Encode::encode('cp932', "ã“ã‚“ã«ã¡ã¯ï¼ エクスレートï¼\n"); is $tx->render('hello_utf8.tx', { name => $p }), Encode::encode('cp932', "ã“ã‚“ã«ã¡ã¯ï¼ エクスレートï¼\n"); } done_testing; Text-Xslate-3.4.0/t/020_interface/015_render_recursion.t0000644000175000017500000000076313040006205022164 0ustar syoheisyohei#!perl # recursive call of render() # related to issue #65 but there are no problems. # use strict; use warnings; use Test::More; use Text::Xslate; my %vpath = ( foo => <<'T', : for [42] -> $i { : render('bar'); : } T bar => <<'T', Hello, world! T ); my $tx; $tx = Text::Xslate->new( cache => 0, path => [\%vpath], function => { render => sub { return $tx->render(@_); }, }, ); is $tx->render('foo'), "Hello, world!\n"; done_testing; Text-Xslate-3.4.0/t/020_interface/006_psgi.t0000644000175000017500000000476413040006205017563 0ustar syoheisyohei#!perl -w use strict; use Test::Requires { 'Plack' => 0.99, 'Devel::StackTrace' => 1.30 }; use Test::More; use HTTP::Request; use Plack::Test; use Plack::Response; use Plack::Builder; use Text::Xslate; use Text::Xslate::Util qw(p); use t::lib::Util; my $tx = Text::Xslate->new( path => path, cache => 0, ); my $n = 2; test_psgi app => sub { my($env) = @_; my $res = Plack::Response->new(200); $res->body( eval { $tx->render('hello.tx', { lang => 'Xslate' }) } || $@ ); return $res->finalize(); }, client => sub { my $cb = shift; my $req = HTTP::Request->new(GET => "http://localhost/hello"); for(1 .. $n) { my $res = $cb->($req); is $res->content, "Hello, Xslate world!\n", 'render'; } }, ; test_psgi app => sub { my($env) = @_; my $res = Plack::Response->new(200); $res->body( eval { $tx->render_string(':include "no_such_file.tx"') } || $@ ); return $res->finalize(); }, client => sub { my $cb = shift; my $req = HTTP::Request->new(GET => "http://localhost/hello"); for(1 .. $n) { my $res = $cb->($req); like $res->content, qr/\b no_such_file\.tx \b/xms, 'fatal'; } }, ; note 'with error handlers'; $tx = Text::Xslate->new( warn_handler => \&Carp::croak, ); test_psgi app => builder { return sub { my($env) = @_; my $res = Plack::Response->new(200); $res->body( $tx->render_string('<: $lang.foobar() :>', { lang => 'Xslate' }) ); return $res->finalize(); }; }, client => sub { my $cb = shift; my $req = HTTP::Request->new(GET => "http://localhost/hello"); for(1 .. $n) { my $res = $cb->($req); like $res->content, qr/\b foobar \b/xms, 'error handler'; } }, ; test_psgi app => builder { enable 'StackTrace', no_print_errors =>1; return sub { my($env) = @_; my $res = Plack::Response->new(200); $res->body( $tx->render_string('<: $lang.foobar() :>', { lang => 'Xslate' }) ); return $res->finalize(); }; }, client => sub { my $cb = shift; my $req = HTTP::Request->new(GET => "http://localhost/hello"); for(1 .. $n) { my $res = $cb->($req); like $res->content, qr/\b foobar \b/xms, 'error handler + StackTrace'; } }, ; done_testing; Text-Xslate-3.4.0/t/020_interface/008_type.t0000644000175000017500000000200313040006205017564 0ustar syoheisyohei#!perl -w use strict; use Test::More; use Text::Xslate; use t::lib::Util; use File::Path qw(rmtree); rmtree(cache_dir); END{ rmtree(cache_dir) } my $tx = Text::Xslate->new( path => path, cache_dir => cache_dir, type => 'text', ); my @set = ( [<<'T', { value => "" }, <<'X', 'type => "text"'], Hello, <: $value :>! T Hello, ! X ); foreach my $d(@set) { my($in, $vars, $out, $msg) = @$d; is $tx->render_string($in, $vars), $out, $msg or diag $in; } is $tx->render('hello.tx', { lang => '' }), "Hello, world!\n"; $tx = Text::Xslate->new( path => path, cache_dir => cache_dir, type => 'html', ); is $tx->render('hello.tx', { lang => '' }), "Hello, <Xslate> world!\n", "type => 'html'"; $tx = Text::Xslate->new( path => path, cache_dir => cache_dir, type => 'xml', ); is $tx->render('hello.tx', { lang => '' }), "Hello, <Xslate> world!\n", "type => 'xml'"; done_testing; Text-Xslate-3.4.0/t/020_interface/017_validate.t0000644000175000017500000000104113040006205020375 0ustar syoheisyohei#!perl use strict; use warnings; use Test::More; use Text::Xslate; my %vpath = ( ok0 => <<'T', Hello, world! T ok1=> <<'T', Hello, <: $xslate :> world! T ng0=> <<'T', Hello, <: $xslate world! T ng1=> <<'T', Hello, <: $xslate ??? :> world! T ); my $tx = Text::Xslate->new(path => [\%vpath]); foreach my $name (qw(ok0 ok1)) { eval { $tx->validate($name) }; ok !$@, $name; note $@ if $@; } foreach my $name (qw(ng0 ng1)) { eval { $tx->validate($name) }; ok $@, $name; note $@ if $@; } done_testing; Text-Xslate-3.4.0/t/020_interface/005_util.t0000644000175000017500000000734213040006205017570 0ustar syoheisyohei#!perl -w use strict; use Test::More; use Text::Xslate::Util qw( literal_to_value value_to_literal read_around html_builder uri_escape html_escape mark_raw unmark_raw ); my @set = ( [ q{"foo\\\\template"}, q{foo\template} ], [ q{"Hello, world\n"}, qq{Hello, world\n} ], [ q{"Hello, world\r"}, qq{Hello, world\r} ], [ q{"Hello, world\t"}, qq{Hello, world\t} ], [ q{'Hello, world\n'}, q{Hello, world\n} ], [ q{'Hello, world\r'}, q{Hello, world\r} ], [ q{'Hello, world\t'}, q{Hello, world\t} ], [ q{foobar}, q{foobar} ], [ q{foo_bar}, q{foo_bar} ], [ q{010}, 010 ], [ q{0x10}, 0x10 ], [ q{0b10}, 0b10 ], [ q{-010}, -010 ], [ q{-0x10}, -0x10 ], [ q{-0b10}, -0b10 ], [ q{+010}, +010 ], [ q{+0x10}, +0x10 ], [ q{+0b10}, +0b10 ], [ q{010_10}, 010_10 ], [ q{0x10_10}, 0x10_10 ], [ q{0b10_10}, 0b10_10 ], [ q{0xDeadBeef}, 0xDeadBeef ], [ q{"+10"}, "+10" ], [ q{"+10.0"}, "+10.0" ], [ q{"-10"}, "-10" ], [ q{"-10.0"}, "-10.0" ], [ q{"01"}, "01" ], [ q{"00"}, "00" ], [ q{"010"}, "010" ], [q{'test="test"'},q{test="test"}], [q{"test='test'"},q{test='test'}], ); foreach my $d(@set) { my($in, $out) = @{$d}; my $v = literal_to_value($in); is $v, $out, "literal: $in"; is literal_to_value(value_to_literal($v)), $out; } # 0 must be a number is value_to_literal( '0'), q{0}; is value_to_literal( '1'), q{1}; is value_to_literal('10'), q{10}; is value_to_literal('00'), q{"00"}; is value_to_literal('01'), q{"01"}; # other utils is read_around(__FILE__, 1), <<'X', 'read_around'; #!perl -w use strict; X is read_around(__FILE__, 1, 2), <<'X', 'read_around'; #!perl -w use strict; use Test::More; X #foo #bar #baz is read_around(__FILE__, __LINE__ - 2), <<'X', 'read_around'; #foo #bar #baz X is read_around(__FILE__ . "__unlikely__", 1), <<'X', 'read_around'; X is read_around(undef, undef), <<'X', 'read_around'; X # html escaping is mark_raw('<Xslate>'), '<Xslate>', "raw strings can be stringified"; cmp_ok mark_raw('<Xslate>'), 'eq', '<Xslate>', "raw strings are comparable"; is unmark_raw('<Xslate>'), '<Xslate>'; cmp_ok unmark_raw('<Xslate>'), 'eq', '<Xslate>'; is html_escape(q{ & ' " < > }), qq{ & ' " < > }, 'html_escape()'; # ' is html_escape(''), '<Xslate>', 'html_escape()'; is html_escape(html_escape('')), '<Xslate>', 'duplicated html_escape()'; { # for MAGICs local $1; "" =~ /(.+)/; is html_escape($1), '<foo>', 'html_escape($1)'; } my $hb = html_builder { "
" }; is $hb->(), "
"; $hb = html_builder { my($x, $y) = @_; return sprintf "<%d>", $x + $y; }; is $hb->(1, 2), "<3>"; $hb = html_builder { my($x, $y) = @_; return sprintf "%s%s", html_escape($x), html_escape($y); }; is $hb->('
', mark_raw('
')), "<br>
"; # uri_escape is uri_escape(undef), undef; is uri_escape(""), ""; is uri_escape("abc"), "abc"; is uri_escape("\0foo\0"), "%00foo%00"; # it encodes the arg as UTF-8 if perl string is passed is uri_escape(qq{"Camel" is \x{99F1}\x{99DD} in Japanese}), q{%22Camel%22%20is%20%E9%A7%B1%E9%A7%9D%20in%20Japanese}; # it doesn't touch the encoding of the arg if byte stream is passed is uri_escape("\xE9p\xE9k"), q{%E9p%E9k}; # "camel" in Japanese kanji (Shift_JIS) is uri_escape("AZaz09-._~"), "AZaz09-._~"; is uri_escape(q{'foo'}), '%27foo%27'; is uri_escape(q{"bar"}), '%22bar%22'; my $x = 'foo/bar'; is uri_escape($x), 'foo%2Fbar'; is $x, 'foo/bar'; { # for MAGICs local $1; $x =~ /(.+)/; is uri_escape($1), 'foo%2Fbar', 'uri_escape($1)'; } done_testing; Text-Xslate-3.4.0/t/020_interface/003_encoding.t0000644000175000017500000000557313040006205020403 0ustar syoheisyohei#!perl -w use strict; use Test::More; use Text::Xslate qw(mark_raw); use utf8; use t::lib::Util; use File::Path qw(rmtree); rmtree(cache_dir); END{ rmtree(cache_dir) } for my $type (qw(html xml text)) { # intentionally no indents because it breaks here documents my $tx = Text::Xslate->new( path => [path], cache_dir => cache_dir, type => $type, ); note "for strings (type=$type)"; is $tx->render_string(<<'T', { value => "エクスレート" }), よã†ã“ã <:= $value :> ã®ä¸–ç•Œã¸ï¼ T "よã†ã“ã エクスレート ã®ä¸–ç•Œã¸ï¼\n", "utf8"; is $tx->render_string(<<'T', { value => "Xslate" }), よã†ã“ã <:= $value :> ã®ä¸–ç•Œã¸ï¼ T "よã†ã“ã Xslate ã®ä¸–ç•Œã¸ï¼\n", "utf8"; is $tx->render_string(<<'T'), <<'X', 'macro'; : macro lang -> { "エクスレート" } よã†ã“ã <:= lang() :> ã®ä¸–ç•Œã¸ï¼ T よã†ã“ã エクスレート ã®ä¸–ç•Œã¸ï¼ X is $tx->render_string(<<'T', { value => "エクスレート" }), Hello, <:= $value :> world! T "Hello, エクスレート world!\n"; is $tx->render_string(q{<: $value :>}, { value => "エクスレート" }), "エクスレート"; is $tx->render_string(q{<: $value :> <: $value :>}, { value => "エクスレート" }), "エクスレート エクスレート"; is $tx->render_string(<<'T', { value => mark_raw("エクスレート") }), Hello, <:= $value :> world! T "Hello, エクスレート world!\n"; is $tx->render_string(q{<: $value :>}, { value => mark_raw("エクスレート") }), "エクスレート"; is $tx->render_string(q{<: $value :> <: $value :>}, { value => mark_raw("エクスレート") }), "エクスレート エクスレート"; note 'for files'; is $tx->render("hello_utf8.tx", { name => "エクスレート" }), "ã“ã‚“ã«ã¡ã¯ï¼ エクスレートï¼\n", "in files" for 1 .. 2; for(1 .. 2) { $tx = Text::Xslate->new( path => [path], cache_dir => cache_dir, input_layer => ":encoding(utf-8)", ); is $tx->render("hello_utf8.tx", { name => "エクスレート" }), "ã“ã‚“ã«ã¡ã¯ï¼ エクスレートï¼\n", ":encoding(utf-8)"; } for(1 .. 2) { $tx = Text::Xslate->new( path => [path], cache_dir => cache_dir, input_layer => ":encoding(Shift_JIS)", ); is $tx->render("hello_sjis.tx", { name => "エクスレート" }), "ã“ã‚“ã«ã¡ã¯ï¼ エクスレートï¼\n", ":encoding(Shift_JIS)"; } for(1 .. 2) { no utf8; $tx = Text::Xslate->new( path => [path], cache_dir => cache_dir, input_layer => ":bytes", type => $type, ); #use Devel::Peek; Dump($tx->render("hello_utf8.tx", { name => "エクスレート" })); is $tx->render("hello_utf8.tx", { name => "エクスレート" }), "ã“ã‚“ã«ã¡ã¯ï¼ エクスレートï¼\n", ":bytes"; } } # escape mode done_testing; Text-Xslate-3.4.0/t/020_interface/009_hash_with_default.t0000644000175000017500000000121313040006205022270 0ustar syoheisyohei#!perl -w use strict; use Test::More; use Text::Xslate; use Text::Xslate::Util qw(hash_with_default); my $tx = Text::Xslate->new( cache => 0, ); my $vars = hash_with_default {}, 'FILLME'; is $tx->render_string(<<'T', $vars), "Hello, FILLME world!\n"; Hello, <: $oops :> world! T is $tx->render_string(<<'T', $vars), "FILLME, FILLME, FILLME\n"; <: $a :>, <: $b :>, <: $c :> T $vars = hash_with_default {}, sub { "FILLME/@_" }; is $tx->render_string(<<'T', $vars), "Hello, FILLME/oops world!\n"; Hello, <: $oops :> world! T is $tx->render_string(<<'T', $vars), "FILLME/a, FILLME/b, FILLME/c\n"; <: $a :>, <: $b :>, <: $c :> T done_testing; Text-Xslate-3.4.0/t/020_interface/002_myparser.t0000644000175000017500000000144613040006205020451 0ustar syoheisyohei#!perl -w use strict; use Test::More; use Text::Xslate; use lib "t/lib"; # moniker my $tx1 = Text::Xslate->new(syntax => 'Foo'); # fq name my $tx2 = Text::Xslate->new(syntax => 'Text::Xslate::Syntax::Foo'); my @data = ( ['Hello, <%= $lang %> world!' => 'Hello, Xslate world!'], ['Hello, <%= $foo %> world!' => 'Hello, <bar> world!'], [q{foo <%= $lang %> bar} => "foo Xslate bar"], # no default ['Hello, <: $lang :> world!' => 'Hello, <: $lang :> world!'], [':= $lang', ':= $lang'], # no line code ['%= $lang', '%= $lang'], ); foreach my $pair(@data) { my($in, $out) = @$pair; my %vars = (lang => 'Xslate', foo => ""); is $tx1->render_string($in, \%vars), $out, $in; is $tx2->render_string($in, \%vars), $out, $in; } done_testing; Text-Xslate-3.4.0/t/020_interface/011_hwd_w_include_vars.t0000644000175000017500000000114013040006205022444 0ustar syoheisyohei#!perl use strict; use warnings; use Test::More; use Text::Xslate; use Text::Xslate::Util qw(hash_with_default); my $tx = Text::Xslate->new( path => [{ 'dish.tx' => '{[% food %]}' } ], cache => 0, syntax => 'TTerse', verbose => 2, ); my $_var = { food => 'rakkyo' }; my $var; my $tmpl =<render_string($tmpl, $var), '{gyoza}'; $var = hash_with_default($_var, sub { qq{*FILLME ($_[0])*} }); is $tx->render_string($tmpl, $var), '{gyoza}'; done_testing; Text-Xslate-3.4.0/t/020_interface/004_no_vars.t0000644000175000017500000000037413040006205020257 0ustar syoheisyohei#!perl -w use strict; use Test::More; use Text::Xslate; use t::lib::Util; my $tx = Text::Xslate->new(); is $tx->render_string("Hello, world!"), "Hello, world!"; is $tx->render_string("Hello, world!", undef), "Hello, world!"; done_testing; Text-Xslate-3.4.0/t/020_interface/014_customize_option.t0000755000175000017500000000445713040006205022234 0ustar syoheisyohei#!perl -w use strict; use Test::More; use Text::Xslate; use Text::Xslate::Parser; use Fatal qw(open); use File::Path qw(rmtree); use t::lib::Util; package MyXslate; { use Mouse; extends qw(Text::Xslate); sub compiler_option { my $self = shift; +{ %{ $self->SUPER::compiler_option }, my_compiler_option => undef, }; } sub parser_option { my $self = shift; +{ %{ $self->SUPER::parser_option }, my_parser_option => undef, }; } sub replace_option_value_for_magic_token { my($self, $name, $value) = @_; return $name if $name eq 'my_compiler_option'; return $name if $name eq 'my_parser_option'; return $value; } no Mouse; package MyCompiler; use Mouse; extends qw(Text::Xslate::Compiler); has my_compiler_option => ( is => 'rw', ); no Mouse; __PACKAGE__->meta->make_immutable(); } package MySyntax; { use Mouse; extends qw(Text::Xslate::Parser); has my_parser_option => ( is => 'rw', ); no Mouse; __PACKAGE__->meta->make_immutable(); } package main; my $stderr; my $tx; { local *STDERR; open STDERR, '>:scalar', \$stderr; $stderr = ''; $tx = Text::Xslate->new( my_compiler_option => 'foo', my_parser_option => 'bar', ); like($stderr, qr/Unknown option\(s\): my_compiler_option my_parser_option/, 'detect unknown option'); $stderr = ''; $tx = MyXslate->new( compiler => 'MyCompiler', syntax => 'MySyntax', my_compiler_option => 'foo', my_parser_option => 'bar', ); unlike($stderr, qr/Unknown option/, 'no unknown option error'); } $tx->render_string(''); is($tx->{compiler}{my_compiler_option}, 'foo', 'my_compiler_option'); is($tx->{compiler}{parser}{my_parser_option}, 'bar', 'my_parser_option'); # $tx = MyXslate->new(path => [path], cache_dir => cache_dir, compiler => 'MyCompiler', syntax => 'MySyntax', my_compiler_option => sub {}, my_parser_option => sub {}, ); rmtree cache_dir; END{ rmtree cache_dir } eval { $tx->load_file("hello.tx"); }; is $@, '', "load_file -> success"; done_testing; Text-Xslate-3.4.0/t/020_interface/016_pre_process_handler.t0000644000175000017500000000126513040006205022634 0ustar syoheisyohei#!perl -w use strict; use utf8; use Test::More; use Text::Xslate; use Encode (); use File::Path qw(rmtree); use t::lib::Util; rmtree(cache_dir); END{ rmtree(cache_dir) } my $p = Encode::encode('cp932', 'エクスレート'); for(1 .. 2) { my $tx = Text::Xslate->new( path => [path], cache_dir => cache_dir, pre_process_handler => sub { Encode::encode('cp932', $_[0]) }, ); is $tx->render('hello_utf8.tx', { name => $p }), Encode::encode('cp932', "ã“ã‚“ã«ã¡ã¯ï¼ エクスレートï¼\n"); is $tx->render('hello_utf8.tx', { name => $p }), Encode::encode('cp932', "ã“ã‚“ã«ã¡ã¯ï¼ エクスレートï¼\n"); } done_testing; Text-Xslate-3.4.0/t/010_internals/0000755000175000017500000000000013040325435016103 5ustar syoheisyoheiText-Xslate-3.4.0/t/010_internals/009_goto_address.t0000644000175000017500000000237013040006205021326 0ustar syoheisyohei#!perl -w # NOTE: the optimizer could break goto addresses use strict; use Test::More; use Text::Xslate; use Text::Xslate::Util qw(p); my $tx = Text::Xslate->new(); my @data = ( [<<'T', " [foo]\n" . " [foo]\n"], : if($value == "foo") { [<:= $value :>] [<:= $value :>] : } : else { [<:= $value :>] [<:= $value :>] : } T [<<'T', " [foo]\n" . " [foo]\n"], : if($value == "bar") { [<:= $value :>] [<:= $value :>] : } : else { [<:= $value :>] [<:= $value :>] : } T [<<'T', " [*foo]\n" . " [*foo]\n"], : if($value == "foo") { [<:= "*" ~ $value :>] [<:= "*" ~ $value :>] : } : else { [<:= "*" ~ $value :>] [<:= "*" ~ $value :>] : } T [<<'T', " [*foo]\n" . " [*foo]\n"], : if($value == "bar") { [<:= "*" ~ $value :>] [<:= "*" ~ $value :>] : } : else { [<:= "*" ~ $value :>] [<:= "*" ~ $value :>] : } T [<<'T', "\ntrue\n\n"], <: if 1 { :> true <: } else { :> false <: } :> T [<<'T', "\nfalse\n\n"], <: if 0 { :> true <: } else { :> false <: } :> T ); foreach my $pair(@data) { my($in, $out) = @$pair; my %vars = ( value => 'foo', ); is $tx->render_string($in, \%vars), $out or diag( p($tx->render(\%vars)) ); } done_testing; Text-Xslate-3.4.0/t/010_internals/025_reset_hooks.t0000644000175000017500000000105313040006205021171 0ustar syoheisyohei#!perl use strict; use warnings; use Test::More tests => 20; use Text::Xslate; sub reset_diehook { local $SIG{__DIE__} = sub { die @_ }; return 42; } sub reset_warnhook { local $SIG{__WARN__} = sub { warn @_ }; return 42; } { my $tx = Text::Xslate->new(function => { reset_diehook => \&reset_diehook, reset_warnhook => \&reset_warnhook, }); for ( 1 .. 10 ) { is $tx->render_string( '[<: reset_diehook() :>]' ), '[42]'; is $tx->render_string( '[<: reset_warnhook() :>]' ), '[42]'; } } Text-Xslate-3.4.0/t/010_internals/033_vpath_cache.t0000644000175000017500000000235513040006205021116 0ustar syoheisyohei#!perl -w use strict; use warnings; use Test::More; use File::Path qw(rmtree); use File::Basename; use constant CACHE_DIR => basename(__FILE__); BEGIN { rmtree(CACHE_DIR) } END { rmtree(CACHE_DIR) } use Text::Xslate; my $compile_called = 0; { package MyEngine; our @ISA = qw(Text::Xslate); sub compile { my($self, @args) = @_; ::note 'compile!'; $compile_called++; return $self->SUPER::compile(@args); } } my $phase = 0; foreach my $i(0, 1) { my %vpath = ( hello => 'hello#' . $i, ); my $tx = MyEngine->new( cache_dir => CACHE_DIR, path => [\%vpath], ); foreach my $j(0, 1) { note "# $i-$j"; is $tx->render('hello'), 'hello#' . $i; if($phase == 0) { is $compile_called, 1, 'compiling at first time'; } elsif($phase == 1) { is $compile_called, 1, 'using cache, not compiled'; } elsif($phase == 2) { is $compile_called, 2, 're-compiled because %vpath changed'; } elsif($phase == 3) { is $compile_called, 2, 'using cache'; } else { fail 'something failed'; } $phase++; } } done_testing; Text-Xslate-3.4.0/t/010_internals/019_runtime_error.t0000644000175000017500000000763013040006205021552 0ustar syoheisyohei#!perl -w use strict; use Test::More; use Text::Xslate; use Text::Xslate::Compiler; use t::lib::Util; my $perl_warnings = ''; local $SIG{__WARN__} = sub{ $perl_warnings .= "@_" }; my $warn = ''; sub my_warn { $warn .= "@_" } my $tx = Text::Xslate->new( warn_handler => \&my_warn, function => { f => sub{ die "DIE" } }, ); my $FILE = quotemeta(__FILE__); note 'default verbose'; foreach my $code( q{ nil }, q{ nil.foo }, q{ nil.foo() }, q{ for nil -> ($item) { print "foobar"; } }, q{ $h[nil] }, q{ $a[nil] }, q{ nil | raw }, q{ nil | html }, q{ 1 ? raw(nil) : "UNLIKELY" }, q{ 1 ? html(nil) : "UNLIKELY" }, q{ $empty x 10 }, ) { $warn = ''; my $out = eval { $tx->render_string("<: $code :>", { h => {'' => 'foo' }, a => [42] }); }; is $out, '', $code; is $warn, ''; is $@, ''; } $warn = ''; my $out = eval { $tx->render_string("<: f() :>"); }; is $out, '', 'nothing' or die "Oops: [$warn][$@]"; like $warn, qr/DIE/, $warn; like $warn, qr/at $FILE line \d+/, 'warns come from the file'; is $@, ''; $warn = ''; $out = eval { $tx->render_string('<: constant FOO = 42; FOO[0] :>'); }; is $out, '', 'warn in render_string()'; like $warn, qr/not a container/; like $warn, qr/at $FILE line \d+/, 'warns come from the file'; is $@, ''; $warn = ''; $out = eval { $tx->render_string('<: $a + $b :>', { a => 'foo', b => 'bar' }); }; is $out, '0', 'warn in render_string()'; like $warn, qr/"foo" isn't numeric/; like $warn, qr/"bar" isn't numeric/; like $warn, qr/at $FILE line \d+/, 'warns come from the file'; is $@, ''; $warn = ''; $out = eval { $tx->render_string('<: [].size(1) :>', { a => 'foo', b => 'bar' }); }; is $out, '', 'warn in render_string()'; like $warn, qr/Wrong number of arguments for size/, $warn; like $warn, qr/at $FILE line \d+/, 'warns come from the file'; is $@, ''; $warn = ''; $out = eval { $tx->render_string('<: [].foo() :>', { a => 'foo', b => 'bar' }); }; is $out, '', 'warn in render_string()'; like $warn, qr/Undefined method/; like $warn, qr/\b foo \b/xms; like $warn, qr/\b ARRAY \b/xms; like $warn, qr/at $FILE line \d+/, 'warns come from the file'; is $@, ''; $warn = ''; $out = eval { $tx->render_string('<: $o.foo() :>', { o => bless {}, 'MyObject' }); }; is $out, '', 'warn in render_string()'; like $warn, qr/Can't locate object method/; like $warn, qr/\b foo \b/xms; like $warn, qr/\b MyObject \b/xms; like $warn, qr/at $FILE line \d+/, 'warns come from the file'; is $@, ''; $warn = ''; $out = eval { $tx->render_string('<: $o.bar :>', { o => bless {}, 'MyObject' }); }; is $out, '', 'warn in render_string()'; like $warn, qr/Can't locate object method/; like $warn, qr/\b bar \b/xms; like $warn, qr/\b MyObject \b/xms; like $warn, qr/at $FILE line \d+/, 'warns come from the file'; is $@, ''; $warn = ''; $out = eval { $tx->render_string('<: $x % 0 :>', {x => 42}); }; is $out, 'NaN'; like $warn, qr/Illegal modulus zero/; is $@, ''; note 'verbose => 2'; $tx = Text::Xslate->new( verbose => 2, warn_handler => \&my_warn, ); foreach my $code( q{ nil }, q{ nil.foo }, q{ nil.foo() }, q{ $h[nil] }, q{ $a[nil] }, q{ nil | raw }, q{ nil | html }, q{ 1 ? raw(nil) : "UNLIKELY" }, q{ 1 ? html(nil) : "UNLIKELY" }, q{ $empty x 10 }, ) { $warn = ''; my $out = eval { $tx->render_string("<: $code :>", { h => {'' => 'foo'}, a => [42] }); }; is $out, '', $code; like $warn, qr/Use of nil/, $warn; like $warn, qr/at $FILE line \d+/; is $@, ''; } $warn = ''; $out = eval { $tx->render_string("<: defined(nil) ? 1 : 0 :>", {}); }; is $out, '0'; is $warn, ''; is $@, ''; $warn = ''; $out = eval { $tx->render_string("<: block main -> { include 'no_such_file' } :>", {}); }; is $out, undef; is $warn, ''; like $@, qr/no_such_file/; is $perl_warnings, '', "Perl doesn't produce warnings"; done_testing; Text-Xslate-3.4.0/t/010_internals/012_multilines.t0000644000175000017500000000414313040006205021030 0ustar syoheisyohei#!perl -w use strict; use Test::More; use Text::Xslate; my $tx = Text::Xslate->new(); my %vars = ( xx => { yy => { zz => 42 } }, value => 10, data => [1, 2, 3], a => 10, b => 20, c => 30, ); my @data = ( [ <<'T', <<'X'], <: $xx.yy.zz :> T 42 X [ <<'T', <<'X'], <: $xx .yy.zz :> T 42 X [ <<'T', <<'X'], <: $xx # comment .yy.zz :> T 42 X [ <<'T', <<'X'], <: $xx. yy.zz :> T 42 X [ <<'T', <<'X'], <: $xx. # comment yy.zz :> T 42 X [ <<'T', <<'X'], <: $xx . yy . zz :> T 42 X [ <<'T', <<'X'], <: $a + $b + $c :> T 60 X [<<'T', <<'X'], <: if($value == 10) { print "Hello, world!"; } print "\n"; -:> T Hello, world! X [<<'T', <<'X'], <: for $data -> $item { print "[" ~ $item ~ "]"; } print "\n"; -:> T [1][2][3] X [<<'T', <<'X'], <: given $value -> $it { default { print "[" ~ $it ~ "]"; } } print "\n"; -:> T [10] X [<<'T', <<'X', 'block'], <: for [$value] -> $it { if(1) { print "[" ~ $it ~ "]"; } } print "\n"; -:> T [10] X [<<'T', <<'X', 'no last semicolon'], <: block foo -> { "default value\n" } -:> T default value X [<<'T', '', 'empty block'], <: block foo -> { } -:> T [<<'T', <<'X', 'no last semicolon'], <: block foo -> { "default value\n" } -:> T default value X [<<'T', <<'X', 'finish statement'], <: block foo -> { print "bar\n" } -:> T bar X [<<'T', <<'X', 'multi blocks'], <: block foo -> { print "bar\n" } block bar -> { print "baz\n" } -:> T bar baz X [<<'T', <<'X'], <: my $a = [ 10, 20, 30, ]; print $a[0], "\n"; print $a[1], "\n"; print $a[2], "\n"; -:> T 10 20 30 X [<<'T', <<'X'], <: my $h = { foo => 10, bar => 20, baz => 30, }; print $h.foo, "\n"; print $h.bar, "\n"; print $h.baz, "\n"; -:> T 10 20 30 X ); foreach my $d(@data) { my($in, $out, $msg) = @$d; is eval { $tx->render_string($in, \%vars) }, $out, $msg or diag $in; } done_testing; Text-Xslate-3.4.0/t/010_internals/038_suffix.t0000644000175000017500000000227113040006205020157 0ustar syoheisyohei#!perl use strict; use warnings; use Test::More; use Text::Xslate; BEGIN { package Text::Xslate::Syntax::Custom; use Mouse; extends 'Text::Xslate::Parser'; sub init_symbols { my $self = shift; $self->SUPER::init_symbols(@_); $self->symbol('suffix')->set_nud($self->can('nud_suffix')); } sub nud_suffix { my $self = shift; my ($symbol) = @_; return $symbol->clone(arity => 'suffix'), } package Text::Xslate::Compiler::Custom; use Mouse; extends 'Text::Xslate::Compiler'; sub _generate_suffix { my $self = shift; my ($node) = @_; return ( $self->opcode('suffix'), ); } package Text::Xslate::Custom; use base 'Text::Xslate'; sub options { my $class = shift; my $options = $class->SUPER::options(@_); $options->{compiler} = 'Text::Xslate::Compiler::Custom'; $options->{syntax} = 'Custom'; return $options; } } my $tx = Text::Xslate::Custom->new(suffix => '.mustache'); is( $tx->render_string( ': suffix;', {} ), '.mustache', "got the right suffix" ); done_testing; Text-Xslate-3.4.0/t/010_internals/003_assemble.t0000644000175000017500000000100213040006205020425 0ustar syoheisyohei#!perl -w # The purpose of this test is to ensure that _assemble() ends successfully. use strict; use Test::More tests => 4; use Text::Xslate; my %vpath = ( hello => 'Hello, world!', ); for my $n(1 .. 2) { my $tx = Text::Xslate->new(cache => 0, path => \%vpath); eval { $tx->load_file('hello'); }; is $@, '', "assemble inside of eval {} ($n)"; $tx = Text::Xslate->new(cache => 0, path => \%vpath); $tx->load_file('hello'); pass "assemble outside of eval {} ($n)"; } Text-Xslate-3.4.0/t/010_internals/031_save_src.t0000644000175000017500000000152213040006205020447 0ustar syoheisyohei#!perl -w use strict; use if exists $INC{'Text/Xslate.pm'}, 'Test::More', skip_all => 'Text::Xslate has been loaded'; use Test::More; BEGIN{ $ENV{XSLATE} ||= ''; $ENV{XSLATE} .= ':save_src' } use Text::Xslate; use File::Spec; use t::lib::Util; my $tx = Text::Xslate->new( path => [{ foo => 'Hello, <: "" :>world!' }, path], cache => 0, ); note 'from file'; is $tx->render('hello.tx', { lang => 'Xslate' } ), "Hello, Xslate world!\n"; is $tx->{source}{File::Spec->catfile(path, 'hello.tx')}, "Hello, <:= \$lang :> world!\n" or diag(explain($tx->{source})); note 'from hash'; is $tx->render('foo'), 'Hello, world!'; is $tx->{source}{foo}, 'Hello, <: "" :>world!' or diag(explain($tx->{source})); note 'from '; is $tx->render_string('<: 1 + 41 :>'), 42; is $tx->{source}{''}, '<: 1 + 41 :>'; done_testing; Text-Xslate-3.4.0/t/010_internals/008_files.t0000644000175000017500000000454113040006205017754 0ustar syoheisyohei#!perl -w use strict; use Test::More; use Text::Xslate; use FindBin qw($Bin); use t::lib::Util; use File::Copy qw(copy move); use File::Path qw(rmtree); use Fatal qw(utime); my @files = (path."/hello.tx", path."/for.tx"); my @caches; rmtree cache_dir; my $x = path."/hello.tx"; END{ move "$x.save" => $x if $x && -f "$x.save"; rmtree cache_dir; } { my $tx = Text::Xslate->new( path => [path], cache_dir => cache_dir, ); push @caches, $tx->find_file($_)->{cachepath} for qw(hello.tx for.tx); } for(1 .. 10) { my $tx = Text::Xslate->new( path => [path], cache_dir => cache_dir, ); is $tx->render('hello.tx', { lang => 'Xslate' }), "Hello, Xslate world!\n", "file (preload $_)"; is $tx->render('for.tx', { books => [ { title => "Foo" }, { title => "Bar" } ]}), "[Foo]\n[Bar]\n", "file (preload $_)"; ok -e $_, "$_ exists" for @caches; if(($_ % 3) == 0) { my $t = time + $_; utime $t, $t, @caches; } } for(1 .. 10) { my $tx = Text::Xslate->new(path => [path], cache_dir => cache_dir); is $tx->render('hello.tx', { lang => 'Xslate' }), "Hello, Xslate world!\n", "file (on demand $_)"; is $tx->render('for.tx', { books => [ { title => "Foo" }, { title => "Bar" } ]}), "[Foo]\n[Bar]\n", "file (on demand $_)"; if(($_ % 3) == 0) { my $t = time() + $_*10; utime $t, $t, @files; } } unlink @caches; my $tx = Text::Xslate->new(path => [path], cache_dir => cache_dir); is $tx->render('hello.tx', { lang => 'Xslate' }), "Hello, Xslate world!\n", "file"; # change the content move $x => "$x.save"; copy "$x.mod" => $x; utime $^T+10, $^T+10, $x; is $tx->render('hello.tx', { lang => 'Perl' }), "Hi, Perl.\n", "auto reload $_" for 1 .. 2; move "$x.save" => $x or diag "cannot move $x.save to $x: $!"; unlink @caches; note 'cache => 2 (release mode)'; $tx = Text::Xslate->new(cache => 2, path => [path], cache_dir => cache_dir); utime $^T, $^T, $x; is $tx->render('hello.tx', { lang => 'Xslate' }), "Hello, Xslate world!\n", "first" for 1 .. 2; # change the content move $x => "$x.save"; copy "$x.mod" => $x; utime $^T+10, $^T+10, $x; is $tx->render('hello.tx', { lang => 'Xslate' }), "Hello, Xslate world!\n", "second (modified, but not reloaded)" for 1 .. 2; done_testing; Text-Xslate-3.4.0/t/010_internals/014_deps_file.t0000644000175000017500000000216413040006205020600 0ustar syoheisyohei#!perl -w use strict; use Test::More; use Text::Xslate; use File::Copy qw(copy move); use File::Path qw(rmtree); use t::lib::Util; my $base = path . "/myapp/base.tx"; my $derived = path . "/myapp/derived.tx"; rmtree cache_dir; END{ move "$base.save" => $base if -e "$base.save"; rmtree cache_dir; } note 'for files'; utime $^T - 120, $^T - 120, $base, $derived; my $tx = Text::Xslate->new(path => [path], cache_dir => cache_dir); #use Data::Dumper; print Dumper $tx; is $tx->render('myapp/derived.tx', {lang => 'Xslate'}), <<'T', 'original' for 1 .. 2; HEAD D-BEFORE Hello, Xslate world! D-AFTER FOOT T move $base => "$base.save"; copy "$base.mod" => $base; utime $^T+60, $^T+60, $base; note "modify $base"; is $tx->render('myapp/derived.tx', {lang => 'Foo'}), <<'T', 'modified' for 1 .. 2; HEAD D-BEFORE Modified version of base.tx D-AFTER FOOT T move "$base.save" => $base; utime $^T+120, $^T+120, $base; note "modify $base again"; is $tx->render('myapp/derived.tx', {lang => 'Perl'}), <<'T', 'again' for 1 .. 2; HEAD D-BEFORE Hello, Perl world! D-AFTER FOOT T done_testing; Text-Xslate-3.4.0/t/010_internals/030_die_in_funcs.t0000644000175000017500000000117513040006205021272 0ustar syoheisyohei#!perl -w use strict; use Test::More; use Text::Xslate; { package Foo; use Mouse; has bar => ( is => 'rw', isa => 'Int', ); } my $tx = Text::Xslate->new( module => [qw(Carp) => [qw(confess croak)] ], warn_handler => sub { die @_ }, ); eval { $tx->render_string('<: croak("foo") :>'); }; like $@, qr/foo/, 'croak in functions'; eval { $tx->render_string('<: confess("bar") :>'); }; like $@, qr/bar/, 'confess in templates'; eval { $tx->render_string('<: $foo.bar("xyzzy") :>', { foo => Foo->new }); }; like $@, qr/Validation failed/, 'confess in templates'; done_testing; Text-Xslate-3.4.0/t/010_internals/026_issue16_deep_recursion.t0000644000175000017500000000112413040006205023231 0ustar syoheisyohei#!perl -w use strict; use Test::More; use Text::Xslate; my $tx = Text::Xslate->new( cache => 0, syntax => 'TTerse', path => { wrap_begin => '[% WRAPPER "base" %]', wrap_end => '[% END %]', header => 'Header' . "\n", base => '[% INCLUDE "header" %]Hello, [% content %] world!' . "\n", content => 'Xslate', }, header => ['wrap_begin'], footer => ['wrap_end'], ); is $tx->render_string(q{Xslate}), <<'X'; Header Hello, Xslate world! X is $tx->render('content'), <<'X'; Header Hello, Xslate world! X done_testing; Text-Xslate-3.4.0/t/010_internals/028_taint.t0000644000175000017500000000423613040006205017774 0ustar syoheisyohei#!/usr/bin/perl -wT # Taint flag breaks template for-loop parsing: # https://rt.cpan.org/Public/Bug/Display.html?id=61359 use strict; use Test::More; use Text::Xslate; use Scalar::Util qw(tainted); use lib '.'; use t::lib::Util; my $dataset = { scalar_variable => 'twinkle twinkle little scalar', hash_variable => { 'hash_value_key' => 'ha-ha-ha-hash', }, array_variable => [ qw/this is an array/ ], this => { is => { a => { very => { deep => { hash => { structure => "scraping the bottom of the hashref", } } } } } }, template_if_true => 'yay', template_if_false => 'nope', array_loop => [ qw/do ray me so fah/ ], hash_loop => { animal => 'camel', mineral => 'lignite', vegetable => 'ew', }, records_loop => [ { name => 'Larry Nomates', age => 43, }, ], variable_if => 0, variable_if_else => 1, variable_expression_a => 200, variable_expression_b => 100, variable_function_arg => 'BzzZZzzZZzzZZzzZZ', }; my $gold = do { local $/; }; my $t = Text::Xslate->new( path => [path], cache => 0, function => { substr => sub { substr( $_[ 0 ], $_[ 1 ], $_[ 2 ] ) }, }, warn_handler => sub { die @_ }, ); my $s = $t->render( 'taint.tx', $dataset ); ok !tainted($s), 'not tainted'; is $s, $gold; # taint $gold foreach my $value(values %{$dataset}) { $value .= substr($^X, 0, 0) if not ref($value); } is $t->render( 'taint.tx', $dataset ), $gold; done_testing; __END__ foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo twinkle twinkle little scalar ha-ha-ha-hash an scraping the bottom of the hashref doraymesofah animal: camel mineral: lignite vegetable: ew Larry Nomates: 43 do ray me so fah animal: camel mineral: lignite vegetable: ew Larry Nomates: 43 true true true yay yay yay 22 20000 201 substring Zz Text-Xslate-3.4.0/t/010_internals/200_leaktrace.t0000644000175000017500000000756013040006205020603 0ustar syoheisyohei#!perl -w use strict; use Test::Requires { 'Test::LeakTrace' => 0.13 }; use Test::More; use Text::Xslate; use Text::Xslate::Compiler; use t::lib::UtilNoleak; #use if Text::Xslate->isa('Text::Xslate::PP'), # 'Test::More' => skip_all => 'PP will be safe'; my %vars = ( lang => 'Perl', my => { lang => 'Xslate' }, data => [ { title => 'foo' }, { title => 'bar' } ], value => 32, ); no_leaks_ok { my $tx = Text::Xslate->new(path => [path], cache => 0); my $out = $tx->render('hello.tx', \%vars); $out eq "Hello, Perl world!\n" or die "Error: [$out]"; } "new() and render()" or die; my @set = ( [<<'T', <<'X', 'interpolate'], Hello, <:= $my.lang :> world! T Hello, Xslate world! X [<<'T', <<'X', 'for'], : for $data -> ($item) { [<:= $item.title :>] : } T [foo] [bar] X [<<'T', <<'X', 'expr'], <:= ($value + 10) * 2 :> T 84 X [<<'T', <<'X', 'expr'], <:= ($value - 10) / 2 :> T 11 X [<<'T', <<'X', 'expr'], <:= $value % 2 :> T 0 X [<<'T', <<'X', 'expr'], <:= "|" ~ $my.lang ~ "|" :> T |Xslate| X [<<'T', <<'X', 'expr'], <:= $value > 10 ? "larger than 10" : "equal or smaller than 10" :> T larger than 10 X [<<'T', <<'X', 'chained max'], <:= $value max 100 max 200 :> T 200 X [<<'T', <<'X', 'chainded min'], <:= $value min 100 min 200 :> T 32 X [<<'T', <<'X', 'filter'], <:= $my.lang | uc :> T XSLATE X [<<'T', <<'X', 'funcall'], <:= uc($my.lang) :> T XSLATE X [<<'T', <<'X', 'block'], : block hello -> { Hello, <: $my.lang :> world! : } T Hello, Xslate world! X [<<'T', <<'X', 'array literal'], : for ["Xslate", "Perl"] -> $i { Hello, <: $i :> world! : } T Hello, Xslate world! Hello, Perl world! X [<<'T', <<'X', 'hash literal'], Hello, <: ({ lang => "Xslate" }).lang :> world! T Hello, Xslate world! X [<<'T', <<'X', 'builtin method for $array.join()'], Hello, <: ['A', 'B', 'C'].join(" ") :> world! T Hello, A B C world! X [<<'T', <<'X', 'builtin method for $array.reverse()'], Hello, <: ['C', 'B', 'A'].reverse().join(" ") :> world! T Hello, A B C world! X [<<'T', <<'X', 'builtin method for $array.sort()'], Hello, <: ['C', 'B', 'A'].sort().join(" ") :> world! T Hello, A B C world! X [<<'T', <<'X', 'builtin method for $array.sort()'], Hello, <: ['C', 'B', 'A'].sort(-> $a, $b { $a cmp $b }).join(" ") :> world! T Hello, A B C world! X [<<'T', <<'X', 'builtin method for $array.map()'], Hello, <: ['A', 'B', 'C'].map(-> $x { "[" ~ $x ~ "]" }).join(" ") :> world! T Hello, [A] [B] [C] world! X [<<'T', <<'X', 'builtin method for $hash.values()'], Hello, <: ({ lang => "Xslate" }).values().join(",") :> world! T Hello, Xslate world! X [<<'T', <<'X', 'builtin method for $hash.keys()'], Hello, <: ({ "Xslate" => 42 }).keys().join(",") :> world! T Hello, Xslate world! X [<<'T', <<'X', 'builtin method for $hash.kv()'], Hello, <: ({ "Xslate" => 42 }).kv().map( -> $x { $x.key }).join(",") :> world! T Hello, Xslate world! X [<<'T', <<'X', 'high level functins'], <: [10, 20].count(-> $x { $x >= 10 }) :> T 2 X ); my $tx = Text::Xslate->new( path => [path], cache => 0, function => { uc => sub { uc $_[0] }, 'array::count' => sub { my($a, $cb) = @_; return scalar grep { $cb->($_) } @{$a}; }, }, ); foreach my $d(@set) { my($in, $out, $msg) = @$d; $tx->load_string($in); no_leaks_ok { my $result = $tx->render('', \%vars); $result eq $out or die <<"MSG" Rendering Error Expected: [$out] Got: [$result] MSG } $msg; } done_testing; Text-Xslate-3.4.0/t/010_internals/021_edge_cases.t0000644000175000017500000000227613040006205020732 0ustar syoheisyohei#!perl -w use strict; use Test::More; use Text::Xslate; my $tx = Text::Xslate->new(); my @data = ( ['<: "foo\tbar\n" :>', "foo\tbar\n"], [q{<: 'foo\tbar\n' :>}, 'foo\tbar\n'], [q{<: ' & " \' ' :>}, ' & " ' '], [q{<: "<: 'foo' :>" :>}, "<: 'foo' :>"], [q{foo<:# this is a comment :>bar}, "foobar"], [q{<:$lang:> foo<:# this is a comment :>bar <:$lang:>}, "Xslate foobar Xslate"], [q{foo<: :>bar}, "foobar"], [q{foo<: # this is a comment $lang :>bar}, "fooXslatebar"], # edge-cases [q{: $lang}, 'Xslate'], [q{<: $lang :>:}, 'Xslate:' ], [<<'T', <<'X' ], <: $lang :> : "foo\n" T Xslate foo X [<<'T', <<'X' ], <: $lang :>: 42 T Xslate: 42 X [<<'T', 42 ], : for [42] -> $it { : $it : } T # from Template::Benchmark [<<'T' x 10, <<'X' x 10], <: for $hash.keys() ->($k) { :><:= $k :><:= ":" :> <:= $hash[ $k ] :><: } :> T age: 43name: Larry Nomates X ); my %vars = ( lang => 'Xslate', foo => "", hash => { name => 'Larry Nomates', age => 43, }, ); foreach my $pair(@data) { my($in, $out) = @$pair; is $tx->render_string($in, \%vars), $out or diag $in; } done_testing; Text-Xslate-3.4.0/t/010_internals/004_magic.t0000644000175000017500000000306113040006205017722 0ustar syoheisyohei#!perl -w use strict; use Test::More; use Text::Xslate; use Tie::Array; use Tie::Hash; # for ARRAY my @a; tie @a, 'Tie::StdArray'; my %h; tie %h, 'Tie::StdHash'; my $tx = Text::Xslate->new(); my @set = ( [<<'T', [{ first => 'foo', second => 'bar' }], <<'X'], : for $data ->($item) { [<:=$item.first:>][<:=$item.second:>] : } T [foo][bar] X [<<'T', [qw(foo bar baz)], <<'X'], <: $data.size() :> T 3 X [<<'T', [qw(foo bar baz)], <<'X'], <: $data.join(', ') :> T foo, bar, baz X [<<'T', [qw(foo bar baz)], <<'X'], <: $data.reverse().join(', ') :> T baz, bar, foo X [<<'T', { foo => 10, bar => 20 }, <<'X'], <: $data.keys().join(', ') :> T bar, foo X [<<'T', { foo => 10, bar => 20 }, <<'X'], <: $data.values().join(', ') :> T 20, 10 X [<<'T', { foo => 10, bar => 20 }, <<'X'], : for $data.kv() -> $pair { <: $pair.key :>=<: $pair.value :> : } T bar=20 foo=10 X ); foreach my $d(@set) { my($in, $data, $out, $msg) = @$d; if(ref $data eq 'ARRAY') { @a = @{$data}; $data = \@a; } else { %h = %{$data}; $data = \%h; } is $tx->render_string($in, { data => $data }), $out, $msg or diag($in); } # for toplevel HASH @a = ( { first => 'aaa', second => 'bbb' }, { first => 'ccc', second => 'ddd' }, ); %h = (data => \@a); is $tx->render_string(<<'T', \%h), <<'X', "tied hash" for 1 .. 2; : for $data ->($item) { [<:=$item.first:>][<:=$item.second:>] : } T [aaa][bbb] [ccc][ddd] X done_testing; Text-Xslate-3.4.0/t/010_internals/020_optimize.t0000644000175000017500000000464513040006205020511 0ustar syoheisyohei#!perl -w # Ensure that the optimization works correctly use strict; use Test::More; BEGIN { eval "use Test::Difflet qw(is_deeply)"; } use Text::Xslate; use Text::Xslate::Compiler; use t::lib::Util; use File::Find; use File::Basename; if(!$Text::Xslate::Compiler::OPTIMIZE) { plan skip_all => 'Full optimization is disabled'; } my $tx = Text::Xslate->new( path => [path], cache => 0, ); sub asm_eq { my($x, $y, $msg) = @_; local $Test::Builder::Level = $Test::Builder::Level + 1; my $asm_x = $tx->compile("<: $x :>"); my $asm_y = $tx->compile("<: $y :>"); unless(is_deeply [ map { [$_->[0], $_->[1]] } @{$asm_x} ], [ map { [$_->[0], $_->[1]] } @{$asm_y} ], $msg) { diag "$x -> $y"; diag explain($asm_x); } } asm_eq '1 + 1', '2'; asm_eq '(1 + 1) * 3', '6'; asm_eq '(1 + 1) * (1 + 3)', '8'; asm_eq '"foo" ~ "bar"', '"foobar"'; asm_eq '+ 1', +1; asm_eq '- 1', -1; asm_eq '+^ 1', ~1; asm_eq '+ (1+1)', +2; asm_eq '- (1+1)', -2; asm_eq '+^ (1+1)', ~2; asm_eq '10 min 20', '10'; asm_eq '10 max 20', '20'; asm_eq 'true ? "ok" : "ng"', q{"ok"}; asm_eq 'false ? "ng" : "ok"', q{"ok"}; asm_eq '!!$a ? "ok" : "ng"', '$a ? "ok" : "ng"'; asm_eq '$a["foo"]', '$a.foo'; asm_eq '$a["fo" ~ "o"]', '$a.foo'; asm_eq ' $a | html ', '$a'; asm_eq '($a | html)', '$a'; asm_eq 'html( $a ? "ok" : "ng")', '$a ? "ok" : "ng"'; # check whether all the noop are removed find { wanted => sub { if(/\.tx$/ && !/bad_/) { open my $in, '<', $_ or die "$_ : $!"; local $/; my $asm = $tx->compile(<$in>); ok !(grep{ $_->[0] eq 'noop' } @{$asm}), basename($_) . " does not include 'noop'"; } }, no_chdir => 1, }, path; # check whether builtins are used sub builtin_ok { my($code, $name) = @_; local $Test::Builder::Level = $Test::Builder::Level + 1; like $tx->_compiler->as_assembly( $tx->compile($code) ), qr/\b$name\b/xms, $name; } builtin_ok ': uri_escape($a)', 'builtin_uri_escape'; builtin_ok ': uri_escape($a) ~ "foo"', 'builtin_uri_escape'; builtin_ok ': mark_raw($a) ~ "foo"', 'builtin_mark_raw'; builtin_ok ': unmark_raw($a) ~ "foo"', 'builtin_unmark_raw'; builtin_ok ': html_escape($a) ~ "foo"', 'builtin_html_escape'; builtin_ok ': is_array_ref($a)', 'builtin_is_array_ref'; builtin_ok ': is_hash_ref($a)', 'builtin_is_hash_ref'; done_testing; Text-Xslate-3.4.0/t/010_internals/007_compile_errs.t0000644000175000017500000001056013040006205021332 0ustar syoheisyohei#!perl -w use strict; use Test::More; use Text::Xslate; use Text::Xslate::Compiler; use Text::Xslate::Parser; my $tx = Text::Xslate->new( cache => 0 ); # parse/compile errors eval { $tx->render_string(<<'T'); Hello, <:= $foo $bar :> world! T }; like $@, qr/\$foo/; like $@, qr/\$bar/; eval { $tx->render_string(<<'T'); Hello, <:= xyzzy :> world! T }; like $@, qr/\b xyzzy \b/xms; eval { $tx->render_string(<<'T'); Hello, <: if $lang { :> world! T }; like $@, qr/Expected '}'/; eval { $tx->render_string(<<'T'); Hello, <: } :> world! T }; like $@, qr/\}/; eval { $tx->render_string(<<'T'); Hello, <: if $foo { ; } } :> world! T }; like $@, qr/\}/; eval { $tx->render_string(<<'T'); Hello, <: $foo <> $bar :> world! T }; like $@, qr/\$bar/; eval { $tx->render_string(<<'T'); : macro foo -> ($var { ; } T }; like $@, qr/Expected '\)'/; eval { $tx->render_string(<<'T'); : macro foo -> $var) { ; } T }; like $@, qr/\$var/; eval { $tx->render_string(<<'T'); : macro foo -> ($x $y) { ; } T }; like $@, qr/\$y/; eval { $tx->render_string(<<'T'); : macro foo -> "foo" { ; } T }; like $@, qr/"foo"/; eval { $tx->render_string(<<'T'); Hello, <: "Xslate' :> world! # unmatched quote T }; # " for poor editors like $@, qr/Malformed/; like $@, qr/"Xslate'/; # " for poor editors eval { $tx->render_string('<:'); }; # " for poor editors like $@, qr/Malformed/; like $@, qr/<:/; eval { $tx->render_string(<<'T'); Hello, <: foo(42 :> T }; unlike $@, qr/;/, q{don't include ";"}; # ' like $@, qr/Expected '\)'/; # semantics errors eval { $tx->render_string(<<'T'); : constant FOO = 42; : constant FOO = 42; T }; like $@, qr/Already defined/; like $@, qr/\b FOO \b/xms; eval { $tx->render_string(<<'T'); : constant FOO = 42; : FOO = 42 T }; like $@, qr/\b FOO \b/xms; eval { $tx->render_string(<<'T'); : if( constant FOO = 42 ) { } : FOO T }; like $@, qr/Undefined symbol/; like $@, qr/\b FOO \b/xms; eval { $tx->render_string(<<'T'); : for $data -> $i { constant FOO = 42 } : FOO T }; like $@, qr/Undefined symbol/; like $@, qr/\b FOO \b/xms; eval { $tx->render_string(<<'T'); : while (constant FOO = 42) == 0 { } : FOO T }; like $@, qr/Undefined symbol/; like $@, qr/\b FOO \b/xms; eval { $tx->render_string(<<'T'); : given constant FOO = 42 { } : FOO T }; like $@, qr/Undefined symbol/; like $@, qr/\b FOO \b/xms; foreach my $op(qw(++ --)) { # reserved, but dosn't work eval { $tx->render_string(<<"T"); Hello, <: $op\$foo :> world! T }; like $@, qr/\Q$op\E/, "operator $op"; } foreach my $assign(qw(= += -= *= /= %= ~= &&= ||= //=)) { eval { $tx->render_string(<<"T"); Hello, <: \$foo $assign 42 :> world! T }; like $@, qr/\Q$assign/, "assignment ($assign)"; like $@, qr/\$foo/; } eval { $tx->render_string(<<'T'); Hello, <: foo() :> world! T }; like $@, qr/\b foo \b/xms; foreach my $iter (qw( $~foo.index $~foo.count $~foo.max_index $~foo.size $~foo.is_first $~foo.is_last $~foo.peek_prev $~foo.peek_prev )) { eval { $tx->render_string("<: $iter :>"); }; like $@, qr/Undefined iterator/, $iter; like $@, qr/\$~foo/; eval { $tx->render_string("<: for [] -> \$foo { $iter(1) } :>"); }; like $@, qr/Wrong number of arguments/; like $@, qr/\Q$iter\E/; } eval { $tx->render_string('<: for $data -> $i { $i~.foobar } :>'); }; like $@, qr/\b foobar \b/xms; eval { $tx->render_string('<: + :>'); }; like $@, qr/Invalid expression/; unlike $@, qr/oops/i; eval { $tx->render_string('<: \\ :>'); }; like $@, qr/Unknown operator '\\'/; eval { $tx->render_string('<: 1 + 1 %:>'); }; like $@, qr/Invalid expression/; unlike $@, qr/oops/i; eval { $tx->render_string(": include '../foo.tx'"); }; like $@, qr/Forbidden/; eval { $tx->render_string(": cascade '../foo.tx'"); }; like $@, qr/Forbidden/; eval { $tx->render_string(': cascade $foo'); }; like $@, qr/Expected a name or string literal/; like $@, qr/\$foo/; # for TTerse $tx = Text::Xslate->new( syntax => 'TTerse', cache => 0, ); eval { $tx->render_string('[% $~foo %]'); }; like $@, qr/Expected a name/; eval { $tx->render_string('[% 1 + 1 %%]'); }; like $@, qr/Invalid expression/, 'http://github.com/gfx/p5-Text-Xslate/issues/unreads#issue/13'; unlike $@, qr/oops/i; done_testing; Text-Xslate-3.4.0/t/010_internals/016_cached.t0000644000175000017500000000250013040006205020051 0ustar syoheisyohei#!perl -w use strict; use Test::More; use Text::Xslate; use File::Path; use Config; use t::lib::Util (); my $path = t::lib::Util::path(); my $cache_dir = t::lib::Util::cache_dir; rmtree($cache_dir); END{ rmtree($cache_dir) } # XXX: @INC is too long to pass a command, so we need to give it via %ENV $ENV{PERL5LIB} = join $Config{path_sep}, @INC; is system($^X, "-we", <<'EOT', $path, $cache_dir), 0, 'compile' or die "failed to compile"; #BEGIN{ ($ENV{XSLATE} ||= '') =~ s/dump//g; } use Text::Xslate; use t::lib::Util; my($path, $cache_dir) = @ARGV; my $tx = Text::Xslate->new( path => [$path, { 'foo.tx' => 'Hello' } ], cache_dir => $cache_dir, ); $tx->load_file('myapp/derived.tx'); $tx->load_file('foo.tx'); EOT ok -d $cache_dir; for my $cache(1 .. 2) { my $tx = Text::Xslate->new( path => [$path, { 'foo.tx' => 'Hello' } ], cache_dir => $cache_dir, cache => $cache, ); for(1 .. 2) { like $tx->render('myapp/derived.tx', { lang => 'Xslate' }), qr/Hello, Xslate world!/, "cache => $cache (render/path)"; is $tx->render('foo.tx'), 'Hello', 'render/vpath'; ok !exists $INC{'Text/Xslate/Compiler.pm'}, 'Text::Xslate::Compiler is not loaded'; } #note(explain($tx->{_cache_path})); } done_testing; Text-Xslate-3.4.0/t/010_internals/010_line_number.t0000644000175000017500000001100313040006205021131 0ustar syoheisyohei#!perl -w use strict; use Test::More; use Text::Xslate; use t::lib::Util; my $warn; my $tx = Text::Xslate->new( verbose => 2, warn_handler => sub{ $warn .= join '', @_ }, cache => 0, path => [path]); my $template = <<'T'; <:= $one :> <:= $two :> <:= $three :> T $warn = ''; eval { $tx->render_string($template, {one => 1, two => 2}); }; like $warn, qr/\b Xslate \b/xms; like $warn, qr/:3/xms; like $warn, qr/\b nil \b/xms; $warn = ''; eval { $tx->render_string($template, {one => 1, three => 3}); }; like $warn, qr/\b Xslate \b/xms; like $warn, qr/:2/xms; like $warn, qr/\b nil \b/xms; $warn = ''; eval { $tx->render_string($template, {two => 2, three => 3}); }; like $warn, qr/\b Xslate \b/xms; like $warn, qr/:1/xms; like $warn, qr/\b nil \b/xms; $template = <<'T'; <:= $one :> <:= $three :> <:= $five :> T $warn = ''; eval { $tx->render_string($template, {one => 1, three => 3}); }; is $@, ''; like $warn, qr/:5/xms; $warn = ''; eval { $tx->render_string($template, {one => 1, five => 5}); }; is $@, ''; like $warn, qr/:3/xms; $warn = ''; eval { $tx->render_string(<<'T', {data => "foo"}); : for $data ->($item) { * <:= $item :> : } T }; is $@, ''; like $warn, qr/:2/xms; $warn = ''; eval { $tx->render_string(<<'T', {data => "foo"}); : if($data) { * <:= $item :> : } T }; is $@, ''; like $warn, qr/:4/xms; $warn = ''; eval { $tx->render_string(<<'T', {data => "foo"}); <:- if($data) { -:> * <:= $item :> <:- } -:> T }; is $@, ''; like $warn, qr/:4/xms; { package Foo; sub bar { die 42 }; } $warn = ''; eval { $tx->render_string(<<'T', {foo => bless {}, 'Foo'}); <: $foo.bar :> T }; is $@, ''; like $warn, qr/:2/xms; like $warn, qr/\b 42 \b/xms; eval { $tx->render_string(<<'T', {}); : macro foo ->($bar) { <:= $bar :> : } : foo(nil); T }; is $@, ''; like $warn, qr/:2/xms, 'in a macro'; $warn = ''; eval { $tx->render_string(<<'T', {}); : macro foo ->($bar) { <:= $bar :> : } : macro foo ->($bar) { <:= $bar :> : } T }; is $warn, ''; like $@, qr/:4/xms; like $@, qr/Redefinition of macro/, 'macro redefinition'; $warn = ''; eval { $tx->render_string(<<'T', {}); : block foo ->($bar) { <:= $bar :> : } : block foo ->($bar) { <:= $bar :> : } T }; is $warn, ''; like $@, qr/:5/xms; like $@, qr/Redefinition of block/, 'block redefinition'; $warn = ''; eval { $tx->render_string(<<'T', {}); : cascade myapp::base : block hello ->($bar) { <:= $bar :> : } T }; is $warn, ''; like $@, qr/:3/; like $@, qr/Redefinition/, 'block redefinition'; $warn = ''; eval { $tx->render_string(<<'T', {}); : cascade myapp::bad_redefine T }; is $warn, ''; like $@, qr{myapp.bad_redefine.tx:3}xms; like $@, qr{myapp.base.tx}; like $@, qr/Redefinition/, 'block redefinition'; $warn = ''; eval { $tx->render("error/bad_include.tx", {}); }; is $warn, ''; like $@, qr/\b Xslate \b/xms, 'error/bad_include.tx'; like $@, qr{\b error.bad_include.tx:2 \b}xms; like $@, qr{ 'no_such_file' }xms; like $@, qr{\b include \s+ "no_such_file" }xms; $warn = ''; eval { $tx->render("error/bad_syntax.tx", {}); }; is $warn, ''; like $@, qr/\b Xslate \b/xms, 'error/bad_syntax.tx'; like $@, qr{\b error.bad_syntax.tx:4 \b}xms; like $@, qr/\b dump \b/xms; $warn = ''; eval { $tx->render("error/bad_tags.tx", {}); }; is $warn, ''; like $@, qr/\b Xslate \b/xms, 'error/bad_tags.tx'; like $@, qr{\b error.bad_tags.tx:7 \b}xms; like $@, qr/\b Malformed \b/xms; $warn = ''; eval { $tx->render("error/bad_method.tx", {}); }; is $@, ''; like $warn, qr/\b Xslate \b/xms, 'error/bad_method.tx'; like $warn, qr{\b error.bad_method.tx:5 \b}xms; like $warn, qr{\b foobar \b}xms; # __FILE__ and __LINE__ with TTerse $tx = Text::Xslate->new(syntax => 'TTerse'); is $tx->render_string(<<'T'), <<'X', '__FILE__'; [% __FILE__ %] T <string> X is $tx->render_string(<<'T'), <<'X', '__LINE__'; . . [% __LINE__ %] . . T . . 3 . . X is $tx->render_string(<<'T'), <<'X', '__LINE__ with prechomp/postchomp'; [% __LINE__ %] [% IF 1 -%] [% __LINE__ %] [% END -%] [% __LINE__ %] T 1 3 5 X is $tx->render_string(<<'T'), '123', '__LINE__ with prechomp/postchomp'; [%- __LINE__ -%] [%- __LINE__ -%] [%- __LINE__ -%] T is $tx->render_string(<<'T'), '135', '__LINE__ with prechomp/postchomp'; [%- __LINE__ -%] [%- __LINE__ -%] [%- __LINE__ -%] T done_testing; Text-Xslate-3.4.0/t/010_internals/022_signal.t0000644000175000017500000000044113040006205020116 0ustar syoheisyohei#!perl -w use strict; use Test::More; use Text::Xslate; my $tx = Text::Xslate->new(); $tx->render_string(''); # load related modules eval { local $SIG{ALRM} = sub { die "TIMEOUT" }; alarm(1); $tx->render_string(q{: while true {} }); }; like $@, qr/TIMEOUT/; done_testing; Text-Xslate-3.4.0/t/010_internals/034_is_code_ref.t0000644000175000017500000000300713040006205021106 0ustar syoheisyohei#!perl use strict; use warnings; use Test::More; use Text::Xslate; BEGIN { package Text::Xslate::Syntax::Custom; use Mouse; extends 'Text::Xslate::Parser'; sub init_symbols { my $self = shift; $self->SUPER::init_symbols(@_); $self->symbol('is_code_ref')->set_nud($self->can('nud_is_code_ref')); } sub nud_is_code_ref { my $self = shift; my ($symbol) = @_; $self->advance('('); my $expr = $self->expression(0); $self->advance(')'); return $symbol->clone(arity => 'is_code_ref', first => $expr), } package Text::Xslate::Compiler::Custom; use Mouse; extends 'Text::Xslate::Compiler'; sub _generate_is_code_ref { my $self = shift; my ($node) = @_; return ( $self->compile_ast($node->first), $self->opcode('is_code_ref'), ); } package Text::Xslate::Custom; use base 'Text::Xslate'; sub options { my $class = shift; my $options = $class->SUPER::options(@_); $options->{compiler} = 'Text::Xslate::Compiler::Custom'; $options->{syntax} = 'Custom'; return $options; } } my $tx = Text::Xslate::Custom->new; is( $tx->render_string( ': is_code_ref($a) ? "yes" : "no";', { a => sub { } } ), 'yes', "is a code ref" ); is( $tx->render_string( ': is_code_ref($a) ? "yes" : "no";', { a => 'sub' } ), 'no', "isn't a code ref" ); done_testing; Text-Xslate-3.4.0/t/010_internals/006_errhandler.t0000644000175000017500000000147613040006205021002 0ustar syoheisyohei#!perl -w use strict; use Test::More; use Text::Xslate; my $warn = ''; my $die = ''; my $tx = Text::Xslate->new( verbose => 2, warn_handler => sub{ $warn = "@_" }, die_handler => sub{ $die = "@_" }, ); is $tx->render_string( 'Hello, <:= $lang :> world!', { lang => undef }), "Hello, world!", "error handler" for 1 .. 2; like $warn, qr/\b nil \b/xms, 'warnings are produced'; like $warn, qr/Xslate/; like $warn, qr//; is $die, ''; $warn = ''; $die = ''; eval { is $tx->render_string( ': include "no/such/path" ', { lang => undef }), "Hello, world!", "error handler" for 1 .. 2; }; is $warn, ''; like $die, qr{no/such/path}, 'the error handler was called'; like $die, qr/Xslate/; like $@, qr{no/such/path}, 'errors are thrown, anyway'; like $@, qr/Xslate/; done_testing; Text-Xslate-3.4.0/t/010_internals/039_taint_issue84.t0000644000175000017500000000140213040006205021352 0ustar syoheisyohei#!perl -wT use strict; use Test::More; use Text::Xslate; use File::Path; use Scalar::Util qw(tainted); use Cwd qw(getcwd); my $cwd; my $cache_dir; tainted($cwd) and die "cwd is tainted"; BEGIN{ $cwd = getcwd(); if ($cwd =~ /(.+)/) { $cwd = $1; } $cache_dir = $cwd . '/xxx_test_taint_issue84'; } END{ rmtree($cache_dir) } tainted($cache_dir) and die "cache_dir is tainted"; for (1 .. 2) { my $tx = Text::Xslate->new( path => [$cwd . '/t/template'], cache_dir => $cache_dir, cache => 1, ); for(1 .. 2) { is $tx->render('hello.tx', { lang => 'Xslate'}), "Hello, Xslate world!\n"; utime time()+rand(100), time()+rand(100), "$cwd/t/template/hello.tx"; } } done_testing; Text-Xslate-3.4.0/t/010_internals/037_find_file.t0000644000175000017500000000305413040006205020571 0ustar syoheisyohei#!perl use strict; use warnings; use Test::More; use Text::Xslate; BEGIN { package Text::Xslate::Syntax::Custom; use Mouse; extends 'Text::Xslate::Parser'; sub init_symbols { my $self = shift; $self->SUPER::init_symbols(@_); $self->symbol('find_file')->set_nud($self->can('nud_find_file')); } sub nud_find_file { my $self = shift; my ($symbol) = @_; $self->advance('('); my $expr = $self->expression(0); $self->advance(')'); return $symbol->clone(arity => 'find_file', first => $expr), } package Text::Xslate::Compiler::Custom; use Mouse; extends 'Text::Xslate::Compiler'; sub _generate_find_file { my $self = shift; my ($node) = @_; return ( $self->compile_ast($node->first), $self->opcode('find_file'), ); } package Text::Xslate::Custom; use base 'Text::Xslate'; sub options { my $class = shift; my $options = $class->SUPER::options(@_); $options->{compiler} = 'Text::Xslate::Compiler::Custom'; $options->{syntax} = 'Custom'; return $options; } } my $tx = Text::Xslate::Custom->new(path => [ { 'exists.tx' => '' } ]); is( $tx->render_string( ': find_file($a) ? "yes" : "no";', { a => 'exists.tx' } ), 'yes', "file exists" ); is( $tx->render_string( ': find_file($a) ? "yes" : "no";', { a => 'does_not_exist.tx' } ), 'no', "file doesn't exist" ); done_testing; Text-Xslate-3.4.0/t/010_internals/100_threads.t0000644000175000017500000000321313040006205020270 0ustar syoheisyohei#!perl -w use strict; use constant HAS_THREADS => eval { require threads }; use Test::More (); use if !( HAS_THREADS && $] >= 5.008008), 'Test::More', skip_all => 'multi-threading tests'; use if ( Test::More->VERSION >= 2.0 ), 'Test::More', skip_all => 'Test::Builder 2.0 is not thread-safe'; use Test::More tests => 13; use Text::Xslate; use t::lib::Util; eval { my $tx = Text::Xslate->new(path => [path], cache => 0); is $tx->render('hello.tx', {lang => 'Xslate'}), "Hello, Xslate world!\n"; threads->create(sub{ })->join(); is $tx->render('hello.tx', {lang => 'Perl'}), "Hello, Perl world!\n"; }; is $@, ''; eval { my $tx = Text::Xslate->new(path => [path], cache => 0); is $tx->render('hello.tx', {lang => 'Xslate'}), "Hello, Xslate world!\n"; threads->create(sub{ #XXX: see the value attribute of T::X::Symbol is $tx->render('hello.tx', {lang => 'Thread'}), "Hello, Thread world!\n", "in a child thread" for 1 .. 2; })->join(); is $tx->render('hello.tx', {lang => 'Perl'}), "Hello, Perl world!\n"; }; is $@, ''; eval { my $tx = Text::Xslate->new( function => { 'array::count' => sub { my($a, $cb) = @_; return scalar grep { $cb->($_) } @{$a}; }, }, ); is $tx->render_string(q{<: [10, 20].count(-> $a { true }) :>}), 2, 'high level functions'; threads->create(sub{ is $tx->render_string(q{<: [10, 20, 30].count(-> $a { true }) :>}), 3 for 1 .. 2; })->join(); is $tx->render_string(q{<: [10, 20, 30, 40].count(-> $a { true }) :>}), 4; }; is $@, ''; Text-Xslate-3.4.0/t/010_internals/013_deps_str.t0000644000175000017500000000175313040006205020473 0ustar syoheisyohei#!perl -w use strict; use Test::More; use Text::Xslate; use FindBin qw($Bin); use File::Copy qw(copy move); use File::Path qw(rmtree); use t::lib::Util; my $base = path . "/myapp/base.tx"; END{ move "$base.save" => $base if -e "$base.save"; rmtree cache_dir; } note 'for strings'; utime $^T-120, $^T-120, $base; my $tx = Text::Xslate->new(path => [path], cache_dir => cache_dir); #use Data::Dumper; print Dumper $tx; $tx->load_string(":cascade myapp::base"); is $tx->render('', {lang => 'Xslate'}), <<'T'; HEAD Hello, Xslate world! FOOT T move $base => "$base.save"; copy "$base.mod" => $base; utime $^T+60, $^T+60, $base; $tx->load_string(":cascade myapp::base"); is $tx->render('', {lang => 'Foo'}), <<'T'; HEAD Modified version of base.tx FOOT T move "$base.save" => $base; utime $^T+120, $^T+120, $base; $tx->load_string(":cascade myapp::base"); is $tx->render('', {lang => 'Perl'}), <<'T'; HEAD Hello, Perl world! FOOT T done_testing; Text-Xslate-3.4.0/t/010_internals/027_infinite_warn.t0000644000175000017500000000063313040006205021505 0ustar syoheisyohei#!perl -w use strict; use Test::More; use Text::Xslate; my %vpath = ( 'runner.tx' => <<'T', :include "test.tx"; T 'test.tx' => <<'T', : $test()[0]; T ); my $err_buf = ''; close STDERR; open STDERR, '>', \$err_buf; my $tx = Text::Xslate->new(cache => 0, path => \%vpath); is $tx->render('runner.tx', {test => sub {warn "WARNING";['OK'] }}), 'OK'; like $err_buf, qr/\b WARNING \b/xms; done_testing; Text-Xslate-3.4.0/t/010_internals/029_large_file.t0000644000175000017500000000074613040006205020751 0ustar syoheisyohei#!perl use strict; use warnings; use Test::More; use Text::Xslate; use File::Temp (); note 'preparing...'; my $temp = File::Temp->new(DIR => '.'); $temp->unlink_on_destroy(1); $temp->print("Hello, world!\n") for 1 .. 1024*5; $temp->close(); note 'prepared'; foreach (1 .. 2) { note $_; my $tx = Text::Xslate->new( cache => 1, cache_dir => '.xslate_cache', ); eval { $tx->render($temp->filename); }; ok !$@ or note $@; } done_testing; Text-Xslate-3.4.0/t/010_internals/300_explicit_pp.t0000644000175000017500000000072013040006205021160 0ustar syoheisyohei#!perl # Explicit use of PP version use strict; use Test::More tests => 5; BEGIN { use_ok 'Text::Xslate::PP'; use_ok 'Text::Xslate', qw(escaped_string); } use B; ok( !B::svref_2object(Text::Xslate->can('render'))->XSUB, 'render() is not an xsub' ); eval { my $tx = Text::Xslate->new(); is $tx->render_string('Hello, <: $lang :> world!', { lang => escaped_string('') }), "Hello, world!"; }; is $@, ''; done_testing; Text-Xslate-3.4.0/t/010_internals/032_encoding_error.t0000644000175000017500000000100413040006205021635 0ustar syoheisyohei#!perl -w use strict; use Test::More skip_all => 'TODO: the behaviours of PP and XS does not match'; use Text::Xslate; use File::Path qw(rmtree); use utf8; use t::lib::Util; BEGIN{ rmtree(cache_dir) } END { rmtree(cache_dir) } my $str = 'エクスレイト'; utf8::encode($str); my $tx = Text::Xslate->new( path => [path], cache_dir => cache_dir, cache => 0, ); diag $tx->render('hello_utf8.tx', { name => $str }); diag $tx->render('hello_utf8.tx', { name => $str }); pass; done_testing; Text-Xslate-3.4.0/t/010_internals/036_merge_hash.t0000644000175000017500000000551013040006205020752 0ustar syoheisyohei#!perl use strict; use warnings; use Test::More; use Text::Xslate; BEGIN { package Text::Xslate::Syntax::Custom; use Mouse; extends 'Text::Xslate::Parser'; sub init_symbols { my $self = shift; $self->SUPER::init_symbols(@_); $self->symbol('merge_hash')->set_nud($self->can('nud_merge_hash')); } sub nud_merge_hash { my $self = shift; my ($symbol) = @_; $self->advance('('); my $base = $self->expression(0); $self->advance(','); my $value = $self->expression(0); $self->advance(')'); return $symbol->clone( arity => 'merge_hash', first => $base, second => $value, ); } package Text::Xslate::Compiler::Custom; use Mouse; extends 'Text::Xslate::Compiler'; sub _generate_merge_hash { my $self = shift; my ($node) = @_; my $lvar_id = $self->lvar_id; local $self->{lvar_id} = $self->lvar_use(1); return ( $self->compile_ast($node->first), $self->opcode('save_to_lvar', $lvar_id), $self->compile_ast($node->second), $self->opcode('move_to_sb'), $self->opcode('load_lvar', $lvar_id), $self->opcode('merge_hash'), ); } package Text::Xslate::Custom; use base 'Text::Xslate'; sub options { my $class = shift; my $options = $class->SUPER::options(@_); $options->{compiler} = 'Text::Xslate::Compiler::Custom'; $options->{syntax} = 'Custom'; return $options; } } my $tx = Text::Xslate::Custom->new; my @tests = ( [ ': [ merge_hash($a, $b).foo, $a.foo, $b.foo ].map(-> $elem { defined($elem) ? $elem : "undef" }).join(" ")', 'FOO FOO undef' ], [ ': [ merge_hash($b, $a).foo, $a.foo, $b.foo ].map(-> $elem { defined($elem) ? $elem : "undef" }).join(" ")', 'FOO FOO undef' ], [ ': [ merge_hash($a, $b).bar, $a.bar, $b.bar ].map(-> $elem { defined($elem) ? $elem : "undef" }).join(" ")', 'RAB BAR RAB' ], [ ': [ merge_hash($b, $a).bar, $a.bar, $b.bar ].map(-> $elem { defined($elem) ? $elem : "undef" }).join(" ")', 'BAR BAR RAB' ], [ ': [ merge_hash($a, $b).baz, $a.baz, $b.baz ].map(-> $elem { defined($elem) ? $elem : "undef" }).join(" ")', 'ZAB undef ZAB' ], [ ': [ merge_hash($b, $a).baz, $a.baz, $b.baz ].map(-> $elem { defined($elem) ? $elem : "undef" }).join(" ")', 'ZAB undef ZAB' ], ); for my $test (@tests) { is( $tx->render_string( $test->[0], { a => { foo => 'FOO', bar => 'BAR', }, b => { bar => 'RAB', baz => 'ZAB', }, } ), $test->[1], $test->[0] ); } done_testing; Text-Xslate-3.4.0/t/010_internals/017_render.t0000644000175000017500000000264013040006205020127 0ustar syoheisyohei#!perl -w use strict; use Test::More; use Text::Xslate; use t::lib::Util; use File::Path qw(rmtree); rmtree(cache_dir); END{ rmtree(cache_dir) } my $tx = Text::Xslate->new( cache => 1, cache_dir => cache_dir, path => path, function => { f => sub{ "[@_]" } }, ); is $tx->render('func.tx', { lang => 'Xslate' }), "Hello, [Xslate] world!\n"; $tx = Text::Xslate->new( cache => 1, cache_dir => cache_dir, path => path, function => { f => sub{ "{@_}" } }, ); is $tx->render('func.tx', { lang => 'Xslate' }), "Hello, {Xslate} world!\n"; for(1 .. 2) { my $tx = Text::Xslate->new({ cache => 0, path => [path] }); isa_ok $tx, 'Text::Xslate', 'with HASH ref args'; is $tx->render_string('Hello, <: $lang :> world!', { lang => 'Xslate' }), 'Hello, Xslate world!'; is $tx->render('hello.tx', { lang => 'Xslate' }), "Hello, Xslate world!\n"; } rmtree(cache_dir); for(1 .. 2) { # must not depend on global variables local $/ = ''; local $\ = "\n"; my $tx = Text::Xslate->new( cache => 1, path => [path], cache_dir => cache_dir, ); isa_ok $tx, 'Text::Xslate', 'with list args'; is $tx->render_string('Hello, <: $lang :> world!', { lang => 'Xslate' }), 'Hello, Xslate world!'; is $tx->render('hello.tx', { lang => 'Xslate' }), "Hello, Xslate world!\n"; } done_testing; Text-Xslate-3.4.0/t/010_internals/023_cachepath.t0000644000175000017500000000155413040006205020570 0ustar syoheisyohei#!perl -w use strict; use Test::More; use Text::Xslate; use Text::Xslate::Util qw(); use File::Path; use t::lib::Util; rmtree(cache_dir); END{ rmtree(cache_dir) } package FooOverloadingObjectDir; use overload q{""} => sub { return ${shift()} }, fallback => 1, ; sub new { bless \"$_[1]" => $_[0] } package main; { my $tx1 = Text::Xslate->new( path => [FooOverloadingObjectDir->new(path), { 'foo.tx' => 'Hello' } ], cache_dir => cache_dir, cache => 2, ); my $tx2 = Text::Xslate->new( path => [FooOverloadingObjectDir->new(path . '/other'), { 'foo.tx' => 'Hello' } ], cache_dir => cache_dir, cache => 2, ); # different path's cachepath is different too isnt $tx1->find_file('hello.tx')->{cachepath}, $tx2->find_file('hello.tx')->{cachepath}; } done_testing; Text-Xslate-3.4.0/t/010_internals/001_parse.t0000644000175000017500000000224313040006205017752 0ustar syoheisyohei#!perl -w use strict; use Test::More; use Text::Xslate::Parser; use Text::Xslate::Util qw(p); my $debug = 0; my $parser = Text::Xslate::Parser->new(); isa_ok $parser, 'Text::Xslate::Parser'; my @data = ( [''], ['Hello, world!', qr/"Hello, world!"/], ['Hello, <:= $lang :> world!', qr/ \$lang \b/xms, qr/"Hello, "/, qr/" world!"/], ['aaa <:= $bbb :> ccc <:= $ddd :>', qr/aaa/, qr/\$bbb/, qr/ccc/, qr/\$ddd/], ['<: for $data ->($item) { print $item; } :>', qr/\b for \b/xms, qr/\$data\b/, qr/\$item/ ], ["

:

", qr{

:

}], ["

:

", qr{

:

}], [<<'T', qr/foo/, qr/item/, qr/data/], : macro foo ->($x, $y) { : for $x -> ($item) { <: $item :> : } : } : for $data -> ($item) { : foo($item) : } T [<<'T'], : if $foo { bar : } : else { baz : } T [';' x 10], [<<'T'], : my $foo = { : bar => 42, : }; T ); foreach my $d(@data) { my($str, @patterns) = @{$d}; note($str) if $debug; my $code = eval { p($parser->parse($str)) }; note($code) if $debug; ok $code, 'parse' or diag $@; foreach my $pat(@patterns) { like $code, $pat; } } done_testing; Text-Xslate-3.4.0/t/010_internals/018_opinfo.t0000644000175000017500000000152213040006205020141 0ustar syoheisyohei#!perl -w use strict; use Test::More; use Text::Xslate; use t::lib::Util; use File::Path qw(rmtree); rmtree(cache_dir); END{ rmtree(cache_dir) } my $warn; my $tx = Text::Xslate->new( verbose => 2, warn_handler => sub{ $warn .= join '', @_ }, path => path, cache_dir => cache_dir, cache => 1, ); $warn = ''; eval { $tx->render_string(<<'T'); : cascade oi::bad_base T }; is $@, '', 'exception'; like $warn, qr{ \b bad_base\.tx \b }xms; like $warn, qr{ \b bad_code_foo \b }xms; $warn = ''; eval { $tx->render_string(<<'T'); : cascade oi::bad_base with oi::bad_component T }; is $@, '', 'exception'; like $warn, qr{ \b bad_code_foo \b .+ \b bad_base\.tx \b }xms, 'warn (for base)'; like $warn, qr{ \b bad_code_bar \b .+ \b bad_component\.tx \b }xms, 'warn (for component)'; done_testing; Text-Xslate-3.4.0/t/010_internals/005_load_file.t0000644000175000017500000000277113040006205020570 0ustar syoheisyohei#!perl -w use strict; use Test::More; use Text::Xslate; use Fatal qw(open); use File::Path qw(rmtree); use t::lib::Util; my $tx = Text::Xslate->new(path => [path], cache_dir => cache_dir); rmtree cache_dir; END{ rmtree cache_dir } eval { $tx->load_file("hello.tx"); }; is $@, '', "load_file -> success"; eval { $tx->load_file("no_such_file"); }; like $@, qr/LoadError/xms, "load_file -> LoadError"; like $@, qr/\b no_such_file \b/xms, "include the filename"; my $cache = $tx->find_file('hello.tx')->{cachepath}; ok -e $cache, "$cache exists"; open my($out), '>', $cache; print $out "This is a broken txc file\n"; close $out; eval { $tx->load_file("hello.tx"); }; is $@, '', 'XSLATE_MAGIC unmatched (-> auto reload)'; is $tx->render("hello.tx", { lang => 'Xslate'}), "Hello, Xslate world!\n"; # virtual paths my %vpath = ( 'foo.tx' => 'Hello, world!', ); $tx = Text::Xslate->new( path => \%vpath, cache_dir => cache_dir, cache => 1, ); my $fi = $tx->find_file('foo.tx'); ok !defined($fi->{cache_mtime}) or diag explain($fi); $tx->load_file('foo.tx'); $fi = $tx->find_file('foo.tx'); ok defined($fi->{cache_mtime}) or diag explain($fi); eval { $tx->find_file(File::Spec->catfile(File::Spec->updir, 'foo.tx')); }; like $@, qr/Forbidden/, "updir ('..') is forbidden"; like $@, qr/updir/; like $@, qr/foo\.tx/; eval { $tx->find_file(('/..' x 10) . '/etc/passwd'); }; like $@, qr/Forbidden/; like $@, qr/updir/; like $@, qr{/etc/passwd}; done_testing; Text-Xslate-3.4.0/t/010_internals/015_deps_file2.t0000644000175000017500000000244713040006205020667 0ustar syoheisyohei#!perl -w use strict; use Test::More; use Text::Xslate; use File::Copy qw(copy move); use File::Path qw(rmtree); use File::Spec; use t::lib::Util; rmtree cache_dir; my $base; my $derived; my $base_c; my $derived_c; BEGIN { my $tx = Text::Xslate->new(path => [path], cache_dir => cache_dir); my $fi = $tx->find_file('myapp/base.tx'); $base = $fi->{fullpath}; $base_c = $fi->{cachepath}; $fi = $tx->find_file('myapp/derived.tx'); $derived = $fi->{fullpath}; $derived_c = $fi->{cachepath}; } END{ move "$base.save" => $base if -e "$base.save"; rmtree cache_dir; } note 'for files'; utime $^T - 120, $^T - 120, $base, $derived; { # compile and cache template files. my $tx = Text::Xslate->new(path => [path], cache_dir => cache_dir); $tx->render($_, {lang => 'Perl'}) for 'myapp/derived.tx'; } utime $^T - 60, $^T - 60, $base_c, $derived_c; note " cache files have been created at 60 seconds ago."; my $tx = Text::Xslate->new(path => [path], cache_dir => cache_dir); move $base => "$base.save"; copy "$base.mod" => $base; utime $^T, $^T, $base; note "modify $base just now"; is $tx->render('myapp/derived.tx', {lang => 'Foo'}), <<'T', "modified($_)" for 1 .. 2; HEAD D-BEFORE Modified version of base.tx D-AFTER FOOT T done_testing; Text-Xslate-3.4.0/t/010_internals/002_compile.t0000644000175000017500000000141213040006205020266 0ustar syoheisyohei#!perl -w use strict; use Test::More; use Text::Xslate::Compiler; use Text::Xslate::Util qw(p); my $c = Text::Xslate::Compiler->new(); isa_ok $c, 'Text::Xslate::Compiler'; my @data = ( ['Hello, world!', qr/Hello, world!/], ['Hello, <:= $lang :> world!', qr/\b lang \b/xms, qr/Hello, /, qr/ world!/], ['aaa <:= $bbb :> ccc <:= $ddd :>', qr/aaa/, qr/\b bbb \b/xms, qr/ccc/, qr/\b ddd \b/xms], ['<: for $data ->($item) { print $item; } :>', qr/\b for /xms, qr/\b data \b/xms ], ['<: "foo" :>:<: "bar" :>', qr/ foo /xms, qr/ bar /xms, qr/ : /xms ], ); foreach my $d(@data) { my($str, @patterns) = @{$d}; my $code = p($c->compile($str)); #note($code); foreach my $pat(@patterns) { like $code, $pat, $str; } } done_testing; Text-Xslate-3.4.0/t/010_internals/024_die_in_macros.t0000644000175000017500000000155013040006205021440 0ustar syoheisyohei#!perl -w use strict; use Test::More; use Text::Xslate; my %vpath = ( "base.tx" => <<'T', : block main -> {} T "derived.tx" => <<'T', : cascade base : around main -> { <: $o.foo :> : } T "block.tx" => <<'T', : block main -> { <: $o.foo :> : } T ); { package Foo; sub new { bless {} => shift } sub foo { die "foo"; } package Bar; sub new { bless {} => shift } sub bar { eval { die "bar" }; } } my $tx = Text::Xslate->new(path => \%vpath, cache => 0, verbose => 0); ok $tx->render('block.tx', { o => Foo->new }), 'block'; ok $tx->render('block.tx', { o => Bar->new }), 'block'; ok $tx->render('derived.tx', { o => Foo->new }), 'cascade'; ok $tx->render('derived.tx', { o => Bar->new }), 'cascade'; is $tx->render_string('Hello, world!'), 'Hello, world!', 'render_string() works'; done_testing; Text-Xslate-3.4.0/t/010_internals/011_missuse.t0000644000175000017500000000274313040006205020336 0ustar syoheisyohei#!perl -w use strict; use Test::More; use Text::Xslate; use warnings FATAL => 'all'; eval { Text::Xslate->render('', {}); }; like $@, qr/Invalid xslate instance/; eval { Text::Xslate->new(foobar => 1); }; like $@, qr/Unknown option/, 'unknown options'; like $@, qr/\b foobar \b/xms; my $tx = Text::Xslate->new(cache => 0); eval { $tx->render('', []); }; like $@, qr/must be a HASH reference/; eval { $tx->render('', {}); }; ok $@, 'render() requires two arguments'; eval { $tx->render(); }; ok $@, 'render() without argument'; eval { $tx->new(); }; ok $@, '$txinstance->new()'; # break internals to ensure robustness $tx->{template} = []; eval { $tx->render('foo.tx'); }; like $@, qr/Cannot load template/; like $@, qr/\b foo\.tx \b/xms; $tx->{template} = { 'foo.tx' => undef }; eval { $tx->render('foo.tx'); }; like $@, qr/Cannot load template/; like $@, qr/\b foo\.tx \b/xms; $tx->{template} = { 'foo.tx' => [] }; eval { $tx->render('foo.tx'); }; like $@, qr/Cannot load template/; like $@, qr/\b foo\.tx \b/xms; # Type::Raw eval { Text::Xslate::Type::Raw->new(); }; ok $@, $@; eval { Text::Xslate::Type::Raw->new("")->new(""); }; like $@, qr/You cannot call/; eval { Text::Xslate::Type::Raw->as_string(); }; like $@, qr/You cannot call/; eval { package MyType::Raw; our @ISA = qw(Text::Xslate::Type::Raw); __PACKAGE__->new("foo"); }; like $@, qr/cannot extend Text::Xslate::Type::Raw/; done_testing; Text-Xslate-3.4.0/t/300_examples/0000755000175000017500000000000013040325435015724 5ustar syoheisyoheiText-Xslate-3.4.0/t/300_examples/004_tterse.t0000644000175000017500000000243013040006205017770 0ustar syoheisyohei#!perl -w use strict; use Test::More; use Text::Xslate; my $tx = Text::Xslate->new(syntax => 'TTerse'); my $tmpl; $tmpl = <<'TX'; Hello, [% dialect %] world! TX is $tx->render_string($tmpl, { dialect => 'Kolon' }), "Hello, Kolon world!\n", "Hello, world"; $tmpl = <<'TX'; [% IF var == nil -%] $var is nil. [% ELSIF var != "foo" -%] $var is not nil nor "foo". [% ELSE -%] $var is "foo". [% END -%] TX is $tx->render_string($tmpl, { var => undef }), " \$var is nil.\n"; is $tx->render_string($tmpl, { var => 0 }), qq{ \$var is not nil nor "foo".\n}; is $tx->render_string($tmpl, { var => "foo" }), qq{ \$var is "foo".\n}; $tmpl = <<'TX'; [% IF var >= 1 && var <= 10 -%] $var is 1 .. 10 [% END -%] TX is $tx->render_string($tmpl, { var => 5 }), " \$var is 1 .. 10\n"; is $tx->render_string($tmpl, { var => 0 }), ""; is $tx->render_string($tmpl, { var => 11 }), ""; $tmpl = <<'TX'; [% var.value == nil ? "nil" : var.value -%] TX is $tx->render_string($tmpl, { var => {} }), "nil"; is $tx->render_string($tmpl, { var => { value => "" }}), "<foo>"; $tmpl = <<'TX'; [% FOREACH item IN data -%] [[% item + 5 %]] [% END -%] TX is $tx->render_string($tmpl, { data => [1 .. 100] }), join('', map{ sprintf "[%d]\n", $_ + 5 } 1 .. 100); done_testing; Text-Xslate-3.4.0/t/300_examples/003_metakolon.t0000644000175000017500000000243513040006205020457 0ustar syoheisyohei#!perl -w use strict; use Test::More; use Text::Xslate; my $tx = Text::Xslate->new(syntax => 'Metakolon'); my $tmpl; $tmpl = <<'TX'; Hello, [% $dialect %] world! TX is $tx->render_string($tmpl, { dialect => 'Kolon' }), "Hello, Kolon world!\n", "Hello, world"; $tmpl = <<'TX'; %% if $var == nil { $var is nil. %% } %% else if $var != "foo" { $var is not nil nor "foo". %% } %% else { $var is "foo". %% } TX is $tx->render_string($tmpl, { var => undef }), " \$var is nil.\n"; is $tx->render_string($tmpl, { var => 0 }), qq{ \$var is not nil nor "foo".\n}; is $tx->render_string($tmpl, { var => "foo" }), qq{ \$var is "foo".\n}; $tmpl = <<'TX'; %% if( $var >= 1 && $var <= 10 ) { $var is 1 .. 10 %% } TX is $tx->render_string($tmpl, { var => 5 }), " \$var is 1 .. 10\n"; is $tx->render_string($tmpl, { var => 0 }), ""; is $tx->render_string($tmpl, { var => 11 }), ""; $tmpl = <<'TX'; %%= $var.value == nil ? "nil" : $var.value TX is $tx->render_string($tmpl, { var => {} }), "nil"; is $tx->render_string($tmpl, { var => { value => "" }}), "<foo>"; $tmpl = <<'TX'; %% for $data ->($item) { [[%= $item + 5 %]] %% } # end for TX is $tx->render_string($tmpl, { data => [1 .. 100] }), join('', map{ sprintf "[%d]\n", $_ + 5 } 1 .. 100); done_testing; Text-Xslate-3.4.0/t/300_examples/001_basic.t0000644000175000017500000000241613040006205017544 0ustar syoheisyohei#!perl -w use strict; use Test::More; use Text::Xslate; my $tx = Text::Xslate->new(syntax => 'Kolon'); my $tmpl; $tmpl = <<'TX'; Hello, <: $dialect :> world! TX is $tx->render_string($tmpl, { dialect => 'Kolon' }), "Hello, Kolon world!\n", "Hello, world"; $tmpl = <<'TX'; : if $var == nil { $var is nil. : } : else if $var != "foo" { $var is not nil nor "foo". : } : else { $var is "foo". : } TX is $tx->render_string($tmpl, { var => undef }), " \$var is nil.\n"; is $tx->render_string($tmpl, { var => 0 }), qq{ \$var is not nil nor "foo".\n}; is $tx->render_string($tmpl, { var => "foo" }), qq{ \$var is "foo".\n}; $tmpl = <<'TX'; : if( $var >= 1 && $var <= 10 ) { $var is 1 .. 10 : } TX is $tx->render_string($tmpl, { var => 5 }), " \$var is 1 .. 10\n"; is $tx->render_string($tmpl, { var => 0 }), ""; is $tx->render_string($tmpl, { var => 11 }), ""; $tmpl = <<'TX'; := $var.value == nil ? "nil" : $var.value TX is $tx->render_string($tmpl, { var => {} }), "nil"; is $tx->render_string($tmpl, { var => { value => "" }}), "<foo>"; $tmpl = <<'TX'; : for $data ->($item) { [<:= $item + 5 :>] : } # end for TX is $tx->render_string($tmpl, { data => [1 .. 100] }), join('', map{ sprintf "[%d]\n", $_ + 5 } 1 .. 100); done_testing; Text-Xslate-3.4.0/t/300_examples/002_cascade.t0000644000175000017500000000233113040006205020043 0ustar syoheisyohei#!perl -w use strict; use Test::More; use Text::Xslate; use t::lib::Util; { package BlogEntry; use Mouse; has title => (is => 'rw'); has body => (is => 'rw'); } my @blog_entries = map{ BlogEntry->new($_) } ( { title => 'Entry one', body => 'This is my first entry.', }, { title => 'Entry two', body => 'This is my second entry.', }, ); my $tx = Text::Xslate->new( cache => 0, path => [path], ); my $gold = <<'T'; My amazing blog

Entry one

This is my first entry.

Entry two

This is my second entry.

T is $tx->render('eg/child.tx', { blog_entries => \@blog_entries }), $gold, 'example/cascade.pl' for 1 .. 2; done_testing; Text-Xslate-3.4.0/t/050_builtins/0000755000175000017500000000000013040325435015741 5ustar syoheisyoheiText-Xslate-3.4.0/t/050_builtins/003_autobox_w_cb.t0000644000175000017500000001032013040006205021146 0ustar syoheisyohei#!perl -w use strict; use Test::More; use Text::Xslate; use Text::Xslate::Compiler; use Text::Xslate::Util qw(p); my $tx = Text::Xslate->new(); sub add_one { my($x) = @_; return $x + 1; } my @set = ( [<<'T', { data => [1 .. 3], add_one => \&add_one }, <<'X'], <: $data.map($add_one).join(', ') :> T 2, 3, 4 X [<<'T', { data => [1 .. 3], add_one => \&add_one }, <<'X'], <: $data.reverse().map($add_one).join(', ') :> T 4, 3, 2 X [<<'T', { data => [1 .. 3] }, <<'X'], : macro add_one -> $x { $x + 1 } <: $data.map(add_one).join(', ') :> T 2, 3, 4 X [<<'T', { data => [1 .. 3] }, <<'X'], : macro add_one -> $x { $x + 1 } : for $data -> $i { <: $data.map(add_one).join(', ') :> : } T 2, 3, 4 2, 3, 4 2, 3, 4 X [<<'T', { data => [1 .. 3] }, <<'X'], <: $data.map(-> $x { $x + 1 }).join(', ') :> T 2, 3, 4 X [<<'T', { data => [1 .. 3] }, <<'X'], <: $data.map(-> $x { $x + 1 }).join(', ') :>/<: $data.map(-> $x { $x + 2 }).join(', ') :>/<: $data.map(-> $x { $x + 3 }).join(', ') :> T 2, 3, 4/3, 4, 5/4, 5, 6 X [<<'T', { data => [1 .. 3] }, <<'X'], : for $data.map(-> $x { $x + 1 }) -> $v { [<: $v :>] : } T [2] [3] [4] X [<<'T', { data => ['', ''] }, <<'X'], : for $data.map(-> $x { $x }) -> $v { [<: $v :>] : } T [<foo>] [<bar>] X [<<'T', { data => ['a', 'c', 'b', 'd', 'a'] , cmp => sub { $_[1] cmp $_[0] }}, <<'X', 'sort with callback'], : for $data.sort($cmp) -> $v { [<: $v :>] : } T [d] [c] [b] [a] [a] X [<<'T', { data => [99, 20, 10, 1, 100] , cmp => sub { $_[0] <=> $_[1] }}, <<'X'], : for $data.sort($cmp) -> $v { [<: $v :>] : } T [1] [10] [20] [99] [100] X [<<'T', { data => [99, 20, 10, 1, 100] }, <<'X'], : for $data.sort(-> $x, $y { $x <=> $y }) -> $v { [<: $v :>] : } T [1] [10] [20] [99] [100] X [<<'T', { data => [99, 20, 10, 1, 100] }, <<'X'], : for $data.sort(-> $x, $y { $x cmp $y }) -> $v { [<: $v :>] : } T [1] [10] [100] [20] [99] X [<<'T', { data => [ { name => 'foo', value => 30 }, { name => 'foo', value => 20 }, { name => 'bar', value => 10 }] }, <<'X'], : for $data.sort(-> $x, $y { $x.name cmp $y.name or $x.value <=> $y.value }) -> $v { [<: $v.name :>=<: $v.value :>] : } T [bar=10] [foo=20] [foo=30] X [<<'T', { data => [map { +{ value => $_ } } reverse 1 .. 10 ] }, <<'X'], : for $data.sort(-> $x, $y { $x.value <=> $y.value }) -> $v { [<: $v.value :>] : } T [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] X [<<'T' x 2, { data => [map { +{ value => $_ } } reverse 1 .. 10 ] }, <<'X' x 2], : for $data.sort(-> $x, $y { $x.value <=> $y.value }) -> $v { [<: $v.value :>] : } T [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] X [<<'T', { data => [1 .. 10] }, <<'X', 'reduce/sum'], <: $data .reduce(-> $a, $b { $a + $b }) :> <: $data.reverse().reduce(-> $a, $b { $a + $b }) :> T 55 55 X [<<'T', { data => [1..10] }, <<'X', 'reduce/min-max'], <: $data .reduce(-> $a, $b { $a min $b }) :> <: $data.reverse().reduce(-> $a, $b { $a min $b }) :> <: $data .reduce(-> $a, $b { $a max $b }) :> <: $data.reverse().reduce(-> $a, $b { $a max $b }) :> T 1 1 10 10 X [<<'T', { }, <<'X'], <: [].reduce(-> $a, $b { $a + $b }) // "nil" :> <: [42].reduce(-> $a, $b { $a + $b }) // "nil" :> <: [42, 3].reduce(-> $a, $b { $a + $b }) // "nil" :> T nil 42 45 X [<<'T', { add => sub { $_[0] + $_[1] } }, <<'X'], <: [1, 2, 3, 4, 5, 6, 7, 8, 9, 10].reduce($add) // "nil" :> T 55 X ); foreach my $d(@set) { my($in, $vars, $out, $msg) = @$d; is $tx->render_string($in, $vars), $out, $msg or diag($in); } # TODO(?): builtin methods in XS dies if callback dies, while # those in PP doesn't. #foreach (1 .. 2) { # my $out = eval { # $tx->render_string(<<'T', { data => [1, 2, 3 ]}); # : macro bad_macro -> $x { bad_macro($x) } # : $data.map(bad_macro).join(', ') # : "Hello" #T # }; # is $out, ''; # like $@, qr/too deep/, 'callback died'; # is $tx->render_string('Hello, world!'), 'Hello, world!', 'restart'; #} done_testing; Text-Xslate-3.4.0/t/050_builtins/001_builtin_funcs.t0000644000175000017500000000756613040006205021357 0ustar syoheisyohei#!perl -w use strict; use Test::More; use Text::Xslate; use Text::Xslate::Util qw(p); my $tx = Text::Xslate->new( verbose => 2, ); my @set = ( # builtin filters ['<: $value | raw :>', { value => "Xslate" }, "Xslate", 'raw as a filter'], ['<: raw($value) :>', { value => "Xslate" }, "Xslate", 'raw as a functiun'], ['<: $value | html :>', { value => "" }, "<Xslate>", 'html'], ['<: $value | dump :>', { value => "" }, qr/<Xslate>/, 'dump'], ['<: $value | dump | raw :>', { value => "" }, qr//, 'x | dump | raw'], ['<: $value | html | html :>', { value => "" }, "<Xslate>", 'x | html | html'], ['<: $value | html | raw :>', { value => "" }, "<Xslate>", 'x | html | raw (-> html)'], ['<: $value | raw | html :>', { value => "" }, "", 'x | raw | html (-> raw)'], ['<: " foo " | uri :>', {}, '%20foo%20', 'x | uri'], ['<: "AZaz09-._~" | uri :>', {}, 'AZaz09-._~', 'RFC 3986' ], ['<: "/()\t" | uri :>', {}, '%2F%28%29%09' ], ['<: $s | uri :>', { s => ' ' x 255 }, '%20' x 255 ], ['<: (nil | uri) == nil ? "true" : "false" :>', {}, 'true' ], ['<: is_array_ref([]) ? 10 : 20 :>', {}, '10', 'is_array_ref'], ['<: is_array_ref({}) ? 10 : 20 :>', {}, '20', 'ref'], ['<: is_array_ref($v) ? 10 : 20 :>', {v => 42}, '20', 'ref'], ['<: is_array_ref($v) ? 10 : 20 :>', {v => bless []}, '20', 'ref'], ['<: is_hash_ref([]) ? 10 : 20 :>', {}, '20', 'ref'], ['<: is_hash_ref({}) ? 10 : 20 :>', {}, '10', 'ref'], ['<: is_hash_ref($v) ? 10 : 20 :>', {v => 42}, '20', 'ref'], ['<: is_hash_ref($v) ? 10 : 20 :>', {v => bless []}, '20', 'ref'], ['<: html($value) == "<Xslate>" ? "true" : "false" :>', { value => '' }, 'true'], ['<: raw($value) == "<Xslate>" ? "true" : "false" :>', { value => '' }, 'false'], ['<: $value | unmark_raw :>', { value => '' }, "<Xslate>", 'unmark_raw' ], ['<: $value | raw | unmark_raw :>', { value => '' }, "<Xslate>", 'unmark_raw' ], ['<: 1 ? raw($value) : html($value) :>', { value => '' }, ''], ['<: 1 ? html($value) : raw($value) :>', { value => '' }, '<Xslate>'], ['<: 0 ? raw($value) : html($value) :>', { value => '' }, '<Xslate>'], ['<: 0 ? html($value) : raw($value) :>', { value => '' }, ''], ['<: for [raw($value)] -> $i { :><: $i :><: } :>', { value => "" }, "" ], ['<: for [html($value)] -> $i { :><: $i :><: } :>', { value => "" }, "<Xslate>" ], ['<: raw :>', { value => '' }, qr/\b CODE \b/xms, 'raw itself'], ['<: html :>', { value => '' }, qr/\b CODE \b/xms, 'html itself'], ['<: mark_raw :>', { value => '' }, qr/\b CODE \b/xms, 'mark_raw itself'], ['<: unmark_raw :>', { value => '' }, qr/\b CODE \b/xms, 'unmark_raw itself'], ['<: my $x = is_array_ref; $x([]) ? "ok" : "ng" :>', {}, 'ok', 'the entity of ref'], ['<: my $x = is_hash_ref; $x({}) ? "ok" : "ng" :>', {}, 'ok', 'the entity of ref'], # with macros [<<'T', {}, <<'X'], : macro foo -> {
: } : foo() T
X [<<'T', {}, <<'X'], : macro foo -> {
: } : foo() | mark_raw T
X [<<'T', {}, <<'X'], : macro foo -> {
: } : foo() | unmark_raw T <br> X [<<'T', {}, <<'X'], : macro foo -> {
: } : foo() | unmark_raw | html T <br> X ); foreach my $d(@set) { my($in, $vars, $expected, $msg) = @$d; if(ref $expected) { like $tx->render_string($in, $vars), $expected, $msg or diag $in; } else { is $tx->render_string($in, $vars), $expected, $msg or diag $in; } } done_testing; Text-Xslate-3.4.0/t/050_builtins/004_copied.t0000644000175000017500000000137113040006205017745 0ustar syoheisyohei#!perl -w use strict; use Test::More; use Text::Xslate; use Text::Xslate::Compiler; my $tx = Text::Xslate->new( function => { 'array::inc' => sub { my($a, $i) = @_; $a->[$i]++; return $a; }, } ); my @a = (42); is $tx->render_string(q{<: $a.merge(3).inc(0).join(',') :>}, { a => \@a}), '43,3'; is_deeply \@a, [42]; is $tx->render_string(q{<: $a.merge(3).inc(1).join(',') :>}, { a => \@a}), '42,4'; my %h = (foo => 42); is $tx->render_string(q{<: $h.keys().inc(0).join(',') :>}, { h => \%h}), do{ my $x = 'foo'; $x++; $x }; is_deeply \%h, { foo => 42 }; is $tx->render_string(q{<: $h.values().inc(0).join(',') :>}, { h => \%h}), '43'; is_deeply \%h, { foo => 42 }; done_testing; Text-Xslate-3.4.0/t/050_builtins/002_autobox.t0000644000175000017500000001052513040006205020162 0ustar syoheisyohei#!perl -w use strict; use Test::More; use Text::Xslate; use Text::Xslate::Compiler; use Text::Xslate::Util qw(p); use t::lib::Util; use utf8; { package MyArray; use Mouse; has size => ( is => 'rw', default => 42, ); } my $tx = Text::Xslate->new( path => [path], function => { 'hash::foo' => sub { return 'hash foo'; }, 'array::foo' => sub { return 'array foo'; }, 'scalar::foo' => sub { return 'scalar foo'; }, }, ); my @set = ( # array ['<: $a.size() :>', { a => [] }, '0', 'for array'], ['<: $a.size() :>', { a => [0 .. 9] }, '10'], ['<: nil.size() :>', { }, '', 'nil.size() returns an empty string'], ['<: $a.join(",") :>', { a => [] }, '' ], ['<: $a.join(",") :>', { a => [1, 2, 3] }, '1,2,3'], ['<: $a.join(",") :>', { a => ["foo","bar","baz"] }, 'foo,bar,baz'], ['<: $a.reverse()[0] :>', { a => [] }, '' ], ['<: $a.reverse()[0] :>', { a => [1, 2, 3] }, '3'], ['<: $a.reverse()[0] :>', { a => ["foo","bar","baz"] }, 'baz'], ['<: $a.reverse().join(",") :>', { a => [] }, '', 'chained'], ['<: $a.reverse().join(",") :>', { a => [1, 2, 3] }, '3,2,1'], ['<: $a.reverse().join(",") :>', { a => ["foo","bar","baz"] }, 'baz,bar,foo'], ['<: $a.sort().join(",") :>', { a => [] }, '', 'sort'], ['<: $a.sort().join(",") :>', { a => ['b', 'c', 'a'] }, 'a,b,c'], ['<: $a.sort().join(",") :>', { a => ['a', 'b', 'c'] }, 'a,b,c'], ['<: $a.merge(42).join(",") :>', { a => [1, 2, 3] }, '1,2,3,42'], ['<: $a.merge($a).join(",") :>', { a => [1, 2, 3] }, '1,2,3,1,2,3'], ['<: $a.merge([1, 2, 3]).join(",") :>', { a => [0] }, '0,1,2,3'], ['<: $a.first() :>', { a => [1, 2, 3] }, '1', 'get first element'], ['<: $a.first() :>', { a => [] }, '', 'first for empty array'], ['<: $a.last() :>', { a => [1, 2, 3] }, '3', 'get last element'], ['<: $a.last() :>', { a => [] }, '', 'last for empty array'], # hash ['<: $h.size() :>', { h => {} }, '0', 'for hash'], ['<: $h.size() :>', { h => {a => 1, b => 2, c => 3} }, '3'], ['<: $h.keys().join(",") :>', { h => {} }, '', 'keys'], ['<: $h.keys().join(",") :>', { h => {a => 1, b => 2, c => 3} }, 'a,b,c'], ['<: $h.values().join(",") :>', { h => {} }, '', 'values'], ['<: $h.values().join(",") :>', { h => {a => 1, b => 2, c => 3} }, '1,2,3'], [<<'T', { h => {a => 1, b => 2, c => 3} }, <<'X', 'kv' ], <: for $h.kv() -> $pair { print $pair.key, "=", $pair.value, "\n"; } -:> T a=1 b=2 c=3 X [<<'T', { h => { } }, <<'X', 'kv (empty)' ], <: for $h.kv() -> $pair { print $pair.key, "=", $pair.value, "\n"; } -:> T X [<<'T', { h => {a => 1, b => 2, c => 3} }, <<'X', 'reversed kv (pairs as struct)' ], <: for $h.kv().reverse() -> $pair { print $pair.key, "=", $pair.value, "\n"; } -:> T c=3 b=2 a=1 X [<<'T', { h => {a => 1, b => 2, c => 3} }, <<'X', 'reversed kv (pairs as objects)' ], <: for $h.kv().reverse() -> $pair { print $pair.key(), "=", $pair.value(), "\n"; } -:> T c=3 b=2 a=1 X [<<'T', { h => {a => 1, b => 2, c => 3} }, <<'X', 'merge' ], <: for $h.merge({c => 30, d => 40}).kv() -> $pair { print $pair.key(), "=", $pair.value(), "\n"; } -:> T a=1 b=2 c=30 d=40 X ['<: $o.size() :>', { o => MyArray->new(size => 42) }, '42', 'object'], # register via function ['<: $v.foo() :>', { v => { foo => 'bar'}}, 'hash foo' ], ['<: $v.foo() :>', { v => [42] }, 'array foo' ], ['<: $v.foo() :>', { v => 'str' }, 'scalar foo' ], ['<: {}.foo() :>', { v => { foo => 'bar'}}, 'hash foo' ], ['<: [].foo() :>', { v => [42] }, 'array foo' ], ['<: "".foo() :>', { v => 'str' }, 'scalar foo' ], ); foreach my $d(@set) { my($in, $vars, $out, $msg) = @$d; is $tx->render_string($in, $vars), $out, $msg or diag($in); } $tx = Text::Xslate->new( function => { 'array::size' => sub{ my($array_ref) = @_; return @{$array_ref} + 100; }, }, ); is $tx->render_string('<: [1, 2, 3].size() :>'), 103, 'override builtin methods'; my $tx2 = Text::Xslate->new(); is $tx2->render_string('<: [1, 2, 3].size() :>'), 3, "doesn't affect other instances"; done_testing; Text-Xslate-3.4.0/t/100_plugin/0000755000175000017500000000000013040325435015402 5ustar syoheisyoheiText-Xslate-3.4.0/t/100_plugin/100_error.t0000644000175000017500000000061313040006205017267 0ustar syoheisyohei#!perl -w use strict; use Test::More; use Text::Xslate; use warnings FATAL => 'all'; eval { Text::Xslate->new( module => [ 'Text::Xslate::No::Such::Module' ], ); }; like $@, qr/Failed to import/; like $@, qr{Can't locate Text/Xslate/No/Such/Module.pm}; eval { Text::Xslate->new( module => [ '(^_^)' ], ); }; like $@, qr/Invalid module name/; done_testing; Text-Xslate-3.4.0/t/100_plugin/004_star.t0000644000175000017500000000364113040006205017116 0ustar syoheisyohei#!perl -w BEGIN{ eval "use Test::Name::FromLine" } use strict; use Test::More; use Text::Xslate; my $tx = Text::Xslate->new( cache => 0, module => ['Text::Xslate::Bridge::Star'], warn_handler => sub { die @_ }, verbose => 2, ); is $tx->render_string(': uc("foo")'), 'FOO'; is $tx->render_string(': uc(nil) // "ok"'), 'ok'; is $tx->render_string(': "foo".uc()'), 'FOO'; is $tx->render_string(': lc("FOO")'), 'foo'; is $tx->render_string(': lc(nil) // "ok"'), 'ok'; is $tx->render_string(': "FOO".lc()'), 'foo'; is $tx->render_string(': substr("foo", 1)'), 'oo'; is $tx->render_string(': substr("foo", 1, 1)'), 'o'; is $tx->render_string(': substr(nil, 1, 1) // "ok"'), 'ok'; is $tx->render_string(': "foo".substr(1)'), 'oo'; is $tx->render_string(': sprintf("a %d b", 3.14)'), 'a 3 b'; is $tx->render_string(': 3.1415 | sprintf("%.02f")'), '3.14'; is $tx->render_string(': match("foo", "o") ? "T" : "F"'), 'T'; is $tx->render_string(': match("foo", "f..") ? "T" : "F"'), 'F'; is $tx->render_string(': match("foo", rx("f..")) ? "T" : "F"'), 'T'; is $tx->render_string(': match(nil, rx("f..")) ? "T" : "F"'), 'F'; is $tx->render_string(': "foo".match(rx("f..")) ? "T" : "F"'), 'T'; is $tx->render_string(': replace("foo", "o", "x")'), 'fxx'; is $tx->render_string(<<'T'), 'fxx'; : "foo".replace("oo", "xx") T is $tx->render_string(<<'T'), 'fxx'; : "foo".replace(rx("o."), "xx") T is $tx->render_string(<<'T'), 'foo'; : "foo".replace("o.", "xx") T is $tx->render_string(': "foo::bar".split(rx("::")).join("/")'), 'foo/bar'; is $tx->render_string(': "foo[0-9]bar".split("[0-9]").join("/")'), 'foo/bar'; is $tx->render_string(': "foo3bar[0-9]".split(rx("[0-9]")).join("/")'), 'foo/bar[/-/]'; is $tx->render_string(': "foo/bar/baz".split("/", 2).join("--")'), 'foo--bar/baz'; is $tx->render_string(': "h o k".split(" ").join("-")'), 'h-o-k'; is $tx->render_string(': "h o k".split().join("-")'), 'h-o-k'; done_testing; Text-Xslate-3.4.0/t/100_plugin/002_import.t0000644000175000017500000000276613040006205017464 0ustar syoheisyohei#!perl -w use strict; use Test::More; use Text::Xslate qw(html_escape html_builder mark_raw); use Text::Xslate::Util qw(p); use Data::Dumper; use Time::localtime qw(localtime); #use CGI qw(span); use Digest::MD5 qw(md5 md5_hex); sub span { return "@_"; } $Data::Dumper::Sortkeys = 1; my $tx = Text::Xslate->new( module => [ 'Data::Dumper', 'Time::localtime' => [qw(localtime)], 'Scalar::Util' => [qw(blessed)], 'Digest::MD5' => [qw(md5 md5_hex)], ], function => { blessed => sub{ 42 }, # override span => html_builder(\&span), }, ); my @set = ( [ '<: Dumper($d) :>', { d => { foo => 'bar', baz => [42] } }, Dumper({ foo => 'bar', baz => [42] }), 'Data::Dumper' ], [ '<: localtime($t).mday :>', { t => $^T }, localtime($^T)->mday, 'Time::localtime', ], [ '<: md5_hex($x) :>', { x => 'foo' }, md5_hex('foo'), 'Digest::MD5', ], [ '<: blessed($x) :>', { x => bless {} }, 42, 'function overrides the imported', ], [ '<: dump($x) :>', { x => 42 }, p(42), 'builtins', ], [ '<: span($x) :>', { x => 42 }, mark_raw('42'), 'html_builder', ], ); foreach my $d(@set) { my($in, $vars, $out, $msg) = @$d; is $tx->render_string($in, $vars), html_escape($out), $msg; } done_testing; Text-Xslate-3.4.0/t/100_plugin/005_html_builder_module.t0000644000175000017500000000112613040006205022161 0ustar syoheisyohei#!perl -w use strict; use Test::More; use Text::Xslate; { package My::HTML::Builder; use parent qw(Exporter); our @EXPORT = qw(foo); sub foo { return "
"; } $INC{'My/HTML/Builder.pm'} = __FILE__; } my $tx = Text::Xslate->new( html_builder_module => [ 'My::HTML::Builder', ], ); my @set = ( [ '<: foo() :>', { }, "
", 'My::HTML::Builder returns a aprt of HTML' ], ); foreach my $d(@set) { my($in, $vars, $out, $msg) = @$d; is $tx->render_string($in, $vars), $out, $msg; } done_testing; Text-Xslate-3.4.0/t/100_plugin/001_import_from.t0000644000175000017500000000154613040006205020501 0ustar syoheisyohei#!perl -w use strict; use Test::More; use Text::Xslate::Util qw(import_from); for(1 .. 2) { my $f = import_from("Scalar::Util" => [qw(blessed looks_like_number)]); is_deeply $f, { blessed => \&Scalar::Util::blessed, looks_like_number => \&Scalar::Util::looks_like_number, }; $f = import_from( "Carp", "Data::Dumper" => [qw(Dumper)], ); is_deeply $f, { Dumper => \&Data::Dumper::Dumper, carp => \&Carp::carp, croak => \&Carp::croak, confess => \&Carp::confess, }; # for constants $f = import_from( "Fcntl" => [qw(:flock)], ); ok exists $f->{LOCK_EX} or diag explain($f); is $f->{LOCK_EX}->(), Fcntl::LOCK_EX(), 'constant'; is $f->{LOCK_SH}->(), Fcntl::LOCK_SH(), 'constant'; } done_testing; Text-Xslate-3.4.0/t/100_plugin/003_bridge.t0000644000175000017500000000266113040006205017401 0ustar syoheisyohei#!perl -w use strict; use Test::More; use Text::Xslate; use lib 't/lib'; sub verify_bridge2 { my $tx = shift; is $tx->render_string('<: "xx".bar() :>'), 'scalar bar'; is $tx->render_string('<: [42].bar() :>'), 'array bar'; is $tx->render_string('<: { }.bar() :>'), 'hash bar'; } sub verify_bridge1 { my $tx = shift; is $tx->render_string('<: "xx".foo() :>'), 'scalar foo'; is $tx->render_string('<: [42].foo() :>'), 'array foo'; is $tx->render_string('<: { }.foo() :>'), 'hash foo'; is $tx->render_string('<: "foo" | foo :>'), 'func foo'; is $tx->render_string('<: [].size() :>'), '42'; } { package MyBridge; use parent qw(Text::Xslate::Bridge); __PACKAGE__->bridge( scalar => { foo => sub { 'scalar foo' } }, array => { foo => sub { 'array foo' }, size => sub { 42 } }, hash => { foo => sub { 'hash foo' } }, function => { foo => sub { 'func foo' } }, ); } my $tx = Text::Xslate->new( module => [qw(MyBridge)], ); verify_bridge1( $tx ); $tx = Text::Xslate->new( module => ['MyBridge' => [-exclude => [qw(array::size)]] ], ); is $tx->render_string('<: [].foo() :>'), 'array foo'; is $tx->render_string('<: [].size() :>'), '0'; $tx = Text::Xslate->new( module => [qw(MyBridge2)], ); verify_bridge2( $tx ); $tx = Text::Xslate->new( module => [qw(MyBridge MyBridge2)], ); verify_bridge1( $tx ); verify_bridge2( $tx ); done_testing; Text-Xslate-3.4.0/t/040_tterse/0000755000175000017500000000000013040325435015415 5ustar syoheisyoheiText-Xslate-3.4.0/t/040_tterse/005_if.t0000644000175000017500000000524513040006205016561 0ustar syoheisyohei#!perl -w use strict; use Test::More; use t::lib::TTSimple; my @data = ( [<<'T', <<'X', "if-end (true)"], [% IF lang == "Xslate" -%] ok [% END -%] T ok X [<<'T', <<'X', "if-end (false)"], [% IF lang != "Xslate" -%] ok [% END -%] T X [<<'T', <<'X', "if-else-end (true)"], [% IF lang == "Xslate" -%] foo [% ELSE -%] bar [% END -%] T foo X [<<'T', <<'X', "if-else-end (false)"], [% IF lang != "Xslate" -%] foo [% ELSE -%] bar [% END -%] T bar X [<<'T', <<'X', "if-elsif-end (1)"], [% IF lang == "Xslate" -%] foo [% ELSIF value == 10 -%] bar [% ELSE -%] baz [% END -%] T foo X [<<'T', <<'X', "if-elsif-end (2)"], [% IF lang != "Xslate" -%] foo [% ELSIF value == 10 -%] bar [% ELSE -%] baz [% END -%] T bar X [<<'T', <<'X', "if-elsif-end (false)"], [% IF lang != "Xslate" -%] foo [% ELSIF value != 10 -%] bar [% ELSE -%] baz [% END -%] T baz X [<<'T', <<'X', "unless-end (true)"], [% UNLESS lang == "Xslate" -%] ok [% END -%] T X [<<'T', <<'X', "unless-end (false)"], [% UNLESS lang != "Xslate" -%] ok [% END -%] T ok X [<<'T', <<'X', "nesting if"], [% IF true %] one [% END %] [% IF false %] two [% END %] [% IF true %] [% IF true %] three [% END %] [% IF false %] four [% END %] [% END %] [% IF true %] five [% END %] [% IF false %] six [% END %] T one three five X [<<'T', <<'X', "lower cased if"], [% if lang == "Xslate" -%] foo [% elsif value == 10 -%] bar [% else -%] baz [% end -%] T foo X [<<'T', <<'X', "lower cased unless"], [% unless lang != "Xslate" -%] ok [% end -%] T ok X [<<'T', <<'X', "AND expression 1"], [% IF lang == "Xslate" AND 1 -%] ok [% END -%] T ok X [<<'T', <<'X', "AND expression 2"], [% IF lang == "Xslate" AND 0 -%] ok [% END -%] T X [<<'T', <<'X', "OR expression 1"], [% IF lang == "Xslate" OR 1 -%] ok [% END -%] T ok X [<<'T', <<'X', "OR expression 2"], [% IF lang == "Xslate" OR 0 -%] ok [% END -%] T ok X [<<'T', <<'X', "AND and OR expression 1"], [% IF 1 OR (lang == "Xslate" AND 0) -%] ok [% END -%] T ok X [<<'T', <<'X', "AND and OR expression 2"], [% IF 0 OR (lang == "Xslate" AND 0) -%] ok [% END -%] T X [<<'T', <<'X', "AND and OR expression 3"], [% IF 0 OR (lang == "Xslate" AND 1) -%] ok [% END -%] T ok X ); foreach my $d(@data) { my($in, $out, $msg) = @$d; my %vars = ( lang => 'Xslate', void => '', value => 10, true => 1, false => 0, ); is render_str($in, \%vars), $out, $msg or diag($in); } done_testing; Text-Xslate-3.4.0/t/040_tterse/004_for.t0000644000175000017500000000706713040006205016754 0ustar syoheisyohei#!perl -w use strict; use Test::More; use t::lib::TTSimple; my @data = ( [<<'T', <<'X', 'once'], [% lang %] [% FOREACH type IN types -%] * [% type %] [% END -%] END T Xslate * Str * Int * Object END X [<<'T', <<'X', 'twice'], [% lang %] [% FOREACH type IN types -%] * [% type %] [% END -%] [% FOREACH type IN types -%] + [% type %] [% END -%] END T Xslate * Str * Int * Object + Str + Int + Object END X [<<'T', <<'X', 'nested'], BEGIN [% FOREACH i IN types -%] [% FOREACH j IN types -%] * [[% i %]][[% j %]] [% END -%] [%- END -%] END T BEGIN * [Str][Str] * [Str][Int] * [Str][Object] * [Int][Str] * [Int][Int] * [Int][Object] * [Object][Str] * [Object][Int] * [Object][Object] END X [<<'T', <<'X', 'FOR-IN'], [% lang %] [% FOR type IN types -%] * [% type %] [% END -%] END T Xslate * Str * Int * Object END X [<<'T', <<'X', 'loop.index'], [% FOR type IN types -%] * [% loop.index %] [% END -%] END T * 0 * 1 * 2 END X [<<'T', <<'X', 'loop.index()'], [% FOR type IN types -%] * [% loop.index() %] [% END -%] END T * 0 * 1 * 2 END X [<<'T', <<'X', 'loop.count'], [% FOR type IN types -%] * [% loop.count %] [% END -%] END T * 1 * 2 * 3 END X [<<'T', <<'X', 'loop.first'], [% FOR type IN types -%] [% IF loop.first -%] ---- first ---- [% END -%] * [% loop.count %] [% END -%] END T ---- first ---- * 1 * 2 * 3 END X [<<'T', <<'X', 'loop.last'], [% FOR type IN types -%] * [% loop.count %] [% IF loop.last -%] ---- last ---- [% END -%] [% END -%] END T * 1 * 2 * 3 ---- last ---- END X [<<'T', <<'X', 'size'], [% FOR type IN types -%] * [% loop.size %] [% END -%] END T * 3 * 3 * 3 END X [<<'T', <<'X', 'max'], [% FOR type IN types -%] * [% loop.max + 1 %] [% END -%] END T * 3 * 3 * 3 END X [<<'T', <<'X', 'next'], [% FOR type IN types -%] * [% loop.next or "(none)" %] [% END -%] END T * Int * Object * (none) END X [<<'T', <<'X', 'prev'], [% FOR type IN types -%] * [% loop.prev or "(none)" %] [% END -%] END T * (none) * Str * Int END X [<<'T', <<'X', 'lower cased'], [% lang %] [% foreach type in types -%] * [% type %] [% end -%] END T Xslate * Str * Int * Object END X [<<'T', <<'X', 'for-in'], [% lang %] [% for type in types -%] * [% type %] [% end -%] END T Xslate * Str * Int * Object END X # ---- TTerse specific features ---- [<<'T', <<'X', 'is_first && is_last', 1], [% FOR type IN types -%] [% IF loop.is_first -%] ---- first ---- [% END -%]* [% loop.count %] [% IF loop.is_last -%] ---- last ---- [% END -%] [% END -%] END T ---- first ---- * 1 * 2 * 3 ---- last ---- END X [<<'T', <<'X', 'peek_next'], [% FOR type IN types -%] * [% loop.peek_next or "(none)" %] [% END -%] END T * Int * Object * (none) END X [<<'T', <<'X', 'peek_prev'], [% FOR type IN types -%] * [% loop.peek_prev or "(none)" %] [% END -%] END T * (none) * Str * Int END X [<<'T', <<'X', 'nested'], [%- FOR outer IN nested -%] [% SET o_index = loop.index -%] [% FOR elem IN outer -%] [% o_index %].[% loop.index %]: [% elem %] [% END -%] END inner [% END -%] END T 0.0: A1 0.1: A2 0.2: A3 END inner 1.0: B1 1.1: B2 1.2: B3 END inner 2.0: C1 2.1: C2 2.2: C3 END inner END X ); foreach my $d(@data) { my($in, $out, $msg, $is_tterse_specific) = @$d; last if $is_tterse_specific && $ENV{USE_TT}; my %vars = ( lang => 'Xslate', types => [qw(Str Int Object)], nested => [ [ qw( A1 A2 A3 ) ], [ qw( B1 B2 B3 ) ], [ qw( C1 C2 C3 ) ], ] ); is render_str($in, \%vars), $out, $msg; } done_testing; Text-Xslate-3.4.0/t/040_tterse/009_comments.t0000644000175000017500000000061713040006205020012 0ustar syoheisyohei#!perl -w use strict; use Test::More; use t::lib::TTSimple; my @data = ( [ <<'T', <<'X', ], A[%# foo %]B T AB X [ <<'T', <<'X', ], A[%# foo %]B T AB X [ <<'T', <<'X', ], A[%# [foo] [bar] [baz] %]B T AB X ); foreach my $d(@data) { my($in, $out, $msg) = @$d; my %vars = (); is render_str($in, \%vars), $out, $msg or diag $in; } done_testing; Text-Xslate-3.4.0/t/040_tterse/002_interpolate.t0000644000175000017500000000222513040006205020501 0ustar syoheisyohei#!perl -w use strict; use Test::More; use t::lib::TTSimple; my @data = ( ['Hello, world!' => 'Hello, world!'], ['Hello, [% lang %] world!' => 'Hello, Xslate world!'], ['Hello, [% foo %] world!' => 'Hello, <bar> world!'], ['Hello, [% lang %] [% foo %] world!' => 'Hello, Xslate <bar> world!'], ['Hello, [% $lang %] world!' => 'Hello, Xslate world!'], ['Hello, [% ${lang} %] world!' => 'Hello, Xslate world!'], ['Hello, [% ${ lang } %] world!' => 'Hello, Xslate world!'], ['Hello, [% $no_such_field %] world!' => 'Hello, world!', 'nil as empty'], ['Hello, [% $no_such_field or "Default" %] world!' => 'Hello, Default world!', 'empty or default'], ['[% $IF %]', 'This is IF' ], ['[% +IF %]', 'This is IF' ], ['[% GET lang %]', 'Xslate'], ['[% get lang %]', 'Xslate'], ['[% get IF %]', 'This is IF'], ); my %vars = ( lang => 'Xslate', foo => "", '$lang' => 'XXX', IF => 'This is IF', ); foreach my $pair(@data) { my($in, $out, $msg) = @$pair; is render_str($in, \%vars), $out, $msg or diag $in; } done_testing; Text-Xslate-3.4.0/t/040_tterse/023_loop_ctl.t0000644000175000017500000000214713040006205017774 0ustar syoheisyohei#!perl -w use strict; use Test::More; use Text::Xslate; my %vpath = ( ); my $tx = Text::Xslate->new( syntax => 'TTerse', cache => 0, path => \%vpath, verbose => 2, warn_handler => sub { die @_ }, ); note 'for'; is $tx->render_string(<<'T'), <<'X' or die; %% for it in [42, 43, 44] %% last if it == 43 * [% it %] %% end T * 42 X is $tx->render_string(<<'T'), <<'X' or die; %% for it in [42, 43, 44] %% NEXT if it == 43 * [% it %] %% END T * 42 * 44 X note 'while'; my $iter = do{ my @a = (42, 43, 44); sub { shift @a } }; is $tx->render_string(<<'T', { iter => $iter }), <<'X'; %% while it = iter() %% NEXT if it == 43 * [% it %] %% END T * 42 * 44 X $iter = do{ my @a = (42, 43, 44); sub { shift @a } }; is $tx->render_string(<<'T', { iter => $iter }), <<'X'; %% while it = iter() %% LAST if it == 43 * [% it %] %% END T * 42 X $iter = do{ my @a = (42, 43, 44); sub { shift @a } }; is $tx->render_string(<<'T', { iter => $iter }), <<'X'; %% while it = iter() * [% it %] %% LAST if it == 43 %% END T * 42 * 43 X done_testing; Text-Xslate-3.4.0/t/040_tterse/003_field.t0000644000175000017500000000273413040006205017244 0ustar syoheisyohei#!perl -w use strict; use Test::More; use t::lib::TTSimple; my @data = ( ['[% var.attr %]', 'value'], ['[% g.f.x %]', 'gfx'], ['[% x.f.g %]', 'xfg'], ['[% a.foo %]', 'bar'], ['[% ary.0 %]', 10], ['[% ary.1 %]', 20], ['[% ary.2 %]', 30], ['[% var.$xyz %]', 'value'], ['[% var.${xyz} %]', 'value'], ['[% var.${ xyz } %]', 'value'], ['[% var.${"attr"} %]', 'value'], # tterse specific features ['[% g["f"]["x"] %]', 'gfx', 'var["field"]', 1], ['[% var.${"at" _ "tr"} %]', 'value'], ['[% var.nil %]', 'This is nil', 'keyword as a field (nil)'], ['[% var.GET %]', 'This is GET', 'keyword as a field (GET)'], ['[% var.if %]', 'This is if', 'keyword as a field (if)'], ['[% var.not %]', 'This is not', 'keyword as a field (not)'], ); { package A; use Mouse; has foo => ( is => 'rw', ); } my %vars = ( var => { attr => 'value', nil => 'This is nil', GET => 'This is GET', if => 'This is if', not => 'This is not', }, g => { f => { x => 'gfx' } }, x => { f => { g => 'xfg' } }, a => A->new(foo => 'bar'), ary => [10, 20, 30], foo => 'foo', xyz => 'attr', ); foreach my $pair(@data) { my($in, $out, $msg, $is_tterse_specific) = @$pair; last if $ENV{USE_TT} && $is_tterse_specific; is render_str($in, \%vars), $out, $msg or diag $in; } done_testing; Text-Xslate-3.4.0/t/040_tterse/022_post_if.t0000644000175000017500000000157013040006205017622 0ustar syoheisyohei#!perl -w use strict; use Test::More; use t::lib::TTSimple; my @data = ( [<<'T', <<'X', 'post if'],, {[% "foo" IF 1 %]} {[% "bar" IF 1 %]} T {foo} {bar} X [<<'T', <<'X'], {[% "foo" IF 0 %]} {[% "bar" IF 0 %]} T {} {} X [<<'T', <<'X', 'post unless'], {[% "foo" UNLESS 0 %]} {[% "bar" UNLESS 0 %]} T {foo} {bar} X [<<'T', <<'X'], {[% "foo" UNLESS 1 %]} {[% "bar" UNLESS 1 %]} T {} {} X [<<'T', <<'X', 'include if'], [% INCLUDE "hello.tt" IF 1 -%] [% INCLUDE "hello.tt" IF 1 -%] T Hello, Xslate world! Hello, Xslate world! X [<<'T', <<'X'], [% INCLUDE "hello.tt" IF 0 -%] [% INCLUDE "hello.tt" IF 0 -%] T X ); my %vars = ( lang => 'Xslate', value => 10, ); foreach my $d(@data) { my($in, $out, $msg) = @$d; is render_str($in, \%vars), $out, $msg or diag($in); } done_testing; Text-Xslate-3.4.0/t/040_tterse/008_methods.t0000644000175000017500000000177013040006205017630 0ustar syoheisyohei#!perl -w use strict; use Test::More; use Text::Xslate; my $tx = Text::Xslate->new(syntax => 'TTerse'); { package Obj; use Mouse; sub join :method { my($self, $sep, @args) = @_; return join $sep, @args; } sub ok { 42 } sub switch { 'switch' } sub CASE { 'CASE' } } my @data = ( [ <<'T', <<'X', "method call without args" ], [% obj.ok() %] T 42 X [ <<'T', <<'X', "method call" ], [% obj.join(".") %] T X [ <<'T', <<'X', "method call" ], [% obj.join(".", "foo", "bar") %] T foo.bar X [ <<'T', <<'X', "method call" ], [% obj.join(".", "foo", "bar", "baz") %] T foo.bar.baz X [ <<'T', <<'X', "keywords as fields/methods" ], [% obj.switch %] [% obj.switch() %] [% obj.CASE %] [% obj.CASE() %] T switch switch CASE CASE X ); foreach my $d(@data) { my($in, $out, $msg) = @$d; my %vars = ( obj => Obj->new, ); is $tx->render_string($in, \%vars), $out, $msg or diag $in; } done_testing; Text-Xslate-3.4.0/t/040_tterse/100_not_supported.t0000644000175000017500000000065413040006205021063 0ustar syoheisyohei#!perl -w use strict; use Test::More; use t::lib::TTSimple; my @data = ( [<<'T'], [% PERL %] print "Hello, world"\n"; [% PERL %] T [<<'T'], [% TRY %] print "Hello, world"\n"; [% END %] T ); my %vars = ( lang => 'Xslate', void => '', value => 10, ); foreach my $d(@data) { my($in, $out, $msg) = @$d; eval { render_str($in, \%vars) }; note $@; like $@, qr/not supported/; } done_testing; Text-Xslate-3.4.0/t/040_tterse/021_fake_use.t0000644000175000017500000000154413040006205017741 0ustar syoheisyohei#!perl -w use strict; use Test::Requires qw(Template::Plugin::Math); use Test::More; use t::lib::TTSimple; use Template::Plugin::String; # XXX: TTerse does not support plugins (i.e. USE directive), but grokes # the USE keyword as an alias to 'CALL', which takes expressions. my @data = ( [<<'T', <<'X'], [% USE Math -%] [% Math.abs(-100) %] [% Math.abs( 100) %] T 100 100 X [<<'T', <<'X'], [% USE String -%] [% s = String.new("foo") -%] [% s.upper %] [% s.repeat(2) %] T FOO FOOFOO X ); my %vars = ( lang => 'Xslate', void => '', value => 10, Math => Template::Plugin::Math->new(), # as a namespace String => Template::Plugin::String->new(), # as a prototype ); foreach my $d(@data) { my($in, $out, $msg) = @$d; is render_str($in, \%vars), $out, $msg or diag($in); } done_testing; Text-Xslate-3.4.0/t/040_tterse/024_for_else.t0000644000175000017500000000067013040006205017757 0ustar syoheisyohei#!perl -w use strict; use warnings; use Test::More; use Text::Xslate; my $tx = Text::Xslate->new(syntax => 'TTerse'); is $tx->render_string(<<'T'), <<'X'; %% for i in [42] {[% i %]} %% else empty %% end T {42} X is $tx->render_string(<<'T'), <<'X'; %% for i in [] {[% i %]} %% else empty %% end T empty X is $tx->render_string(<<'T', { y => 'y' }), <<'X'; %% FOR i IN [] {[% i %]} %% ELSE empt[% $y %] %% END T empty X done_testing; Text-Xslate-3.4.0/t/040_tterse/020_chomp.t0000644000175000017500000000164413040006205017265 0ustar syoheisyohei#!perl -w use strict; use Test::More; use t::lib::TTSimple; my @data = ( [<<'T', 'Xslate' ], [%- lang -%] T [<<'T', <<'X' ], - [%- lang -%] - T - Xslate - X [<<'T', <<'X' ], * [%- lang -%] * T *Xslate * X [<<'T', <<'X' ], * [%- lang -%] * T * Xslate * X [<<'T', <<'X' ], [%- lang -%] T Xslate X [<<'T', <<'X' ], [%- lang -%] T Xslate X [<<'T', <<'X' ], [%- lang -%] T Xslate X [<<'T', <<'X' ], [%- lang -%] T Xslate X # http://github.com/gfx/p5-Text-Xslate/issues#issue/12 #['Hello, [%~ "Xslate" ~%] world!', 'Hello,Xslateworld!'], ); my %vars = ( lang => 'Xslate', void => '', value => 10, ); foreach my $d(@data) { my($in, $out, $msg) = @$d; is render_str($in, \%vars), $out, $msg or diag($in); } done_testing; Text-Xslate-3.4.0/t/040_tterse/011_objectliterals.t0000644000175000017500000000161413040006205021162 0ustar syoheisyohei#!perl -w use strict; use Test::More; use t::lib::TTSimple; my @data = ( [<<'T', <<'X'], %% FOR i IN [1, 2, 3] [% i %] %% END T 1 2 3 X [<<'T', <<'X'], [% { a => 1, b => 2, c => 3 }.a %] [% { a => 1, b => 2, c => 3 }.b %] [% { a => 1, b => 2, c => 3 }.c %] T 1 2 3 X [<<'T', <<'X', 'with literals'], [% { "if" => 42 }.if %] [% { "not" => 43 }.not %] [% { "for" => 44 }.for %] [% { "FOR" => 45 }.FOR %] T 42 43 44 45 X [<<'T', <<'X', 'with keywords'], [% { if => 42 }.if %] [% { not => 43 }.not %] [% { for => 44 }.for %] [% { FOR => 45 }.FOR %] T 42 43 44 45 X ); foreach my $pair(@data) { my($in, $out, $msg) = @$pair; my %vars = (lang => 'Xslate', foo => "", '$lang' => 'XXX'); is render_str($in, \%vars), $out, $msg or diag $in; } done_testing; Text-Xslate-3.4.0/t/040_tterse/017_filter.t0000644000175000017500000000266113040006205017452 0ustar syoheisyohei#!perl -w use strict; use Test::More; BEGIN { %t::lib::TTSimple::Func = ( indent => \&mk_indent, ); } use t::lib::TTSimple; use Text::Xslate::Util qw(p); sub mk_indent { my($prefix) = @_; return sub { my($str) = @_; $str =~ s/^/$prefix/xmsg; return $str; } } my @data = ( [<<'T', <<'X'],

[% FILTER html -%] Hello, world! [% END -%]

T

Hello, <Xslate> world!

X [<<'T', <<'X'],

[% FILTER html -%] Hello, world! [% END -%]

[% FILTER html -%] Hello, world! [% END -%]

T

Hello, <Xslate> world!

Hello, <TTerse> world!

X [<<'T', <<'X'],

[% filter html -%] Hello, world! [% END -%]

T

Hello, <Xslate> world!

X [<<'T', <<'X'],

[% filter mark_raw -%] Hello, world! [% END -%]

T

Hello, world!

X [<<'T', <<'X'],

[% filter unmark_raw -%] Hello, world! [% END -%]

T

Hello, <Xslate> world!

X [ <<'T', <<'X' ], [% FILTER indent("| ") -%] foo bar baz [% END -%] T | foo | bar | baz X [ <<'T', <<'X' ], [% "foo\n" FILTER indent("| ") -%] [% "bar\n" filter indent("| ") -%] T | foo | bar X ); my %vars = (lang => 'Xslate', foo => { bar => 43 }); foreach my $d(@data) { my($in, $out, $msg) = @$d; is render_str($in, \%vars), $out, $msg or diag $in; } done_testing; Text-Xslate-3.4.0/t/040_tterse/016_call.t0000644000175000017500000000072613040006205017077 0ustar syoheisyohei#!perl -w use strict; use Test::More; use t::lib::TTSimple; use Text::Xslate::Util qw(p); my @data = ( [<<'T', <<'X'], foo [% CALL lang -%] [% CALL foo.bar -%] bar T foo bar X [<<'T', <<'X', 'lower cased'], foo [% call lang -%] [% call foo.bar -%] bar T foo bar X ); my %vars = (lang => 'Xslate', foo => { bar => 43 }); foreach my $d(@data) { my($in, $out, $msg) = @$d; is render_str($in, \%vars), $out, $msg or diag $in; } done_testing; Text-Xslate-3.4.0/t/040_tterse/018_process.t0000644000175000017500000000437613040006205017651 0ustar syoheisyohei#!perl -w use strict; use Test::More; use t::lib::TTSimple; use t::lib::Util; use Text::Xslate::Util qw(p); #use Template; #my $t = Template->new( # INCLUDE_PATH => [path], # ANYCASE => 1, # # PRE_PROCESS => ['header1.tt', 'header2.tt'], # POST_PROCESS => ['footer1.tt', 'footer2.tt'], #); # #my $out; #$t->process(\<<'T', {lang => "Xslate"}, \$out) or die $t->error; #Hello, [% lang %] world! #T # #is $out, <<'X'; #header1 #header2 #Hello, Xslate world! #footer1 #footer2 #X #use Template; #my $t = Template->new( # INCLUDE_PATH => [path], # ANYCASE => 1, # # WRAPPER => ['wrapper1.tt', 'wrapper2.tt'], #); # #my $out; #$t->process(\<<'T', {lang => "Xslate"}, \$out) or die $t->error; #Hello, [% lang %] world! #T #is $out, <<'X'; #
#
#Hello, Xslate world! #
#
#X my $t = Text::Xslate->new( syntax => 'TTerse', path => path, cache => 0, header => ['header1.tt', 'header2.tt'], footer => ['footer1.tt', 'footer2.tt'], ); my $out = $t->render_string(<<'T', { lang => "Xslate" }); Hello, [% lang %] world! T is $out, <<'X'; header1 header2 Hello, Xslate world! footer1 footer2 X $t = Text::Xslate->new( syntax => 'TTerse', path => path, cache => 0, header => ['config.tt', 'header1.tt'], footer => ['footer1.tt'], ); $out = $t->render_string(<<'T'); Hello, [% lang %] world! T is $out, <<'X', 'header x 2 and footer x 2'; header1 Hello, TTerse world! footer1 X $out = $t->render_string(<<'T', { lang => 'Xslate' }); Hello, [% lang %] world! T is $out, <<'X'; header1 Hello, Xslate world! footer1 X $out = $t->render('hello.tt', { lang => 'Xslate' }); is $out, <<'X'; header1 Hello, Xslate world! footer1 X $out = $t->render_string(<<'T', { lang => 'Xslate' }); Hello, [% em(lang) %] world! T is $out, <<'X', 'call macros in header'; header1 Hello, Xslate world! footer1 X my %vpath = ( wrap_begin => '[% WRAPPER "base" %]', wrap_end => '[% END %]', base => 'Hello, [% content %] world!', content => 'Xslate', ); my $tx = Text::Xslate->new( syntax => 'TTerse', path => \%vpath, header => ['wrap_begin'], footer => ['wrap_end'], ); is $tx->render('content'), 'Hello, Xslate world!'; done_testing; Text-Xslate-3.4.0/t/040_tterse/014_set.t0000644000175000017500000000541413040006205016754 0ustar syoheisyohei#!perl -w use strict; use Test::More; use t::lib::TTSimple; use Text::Xslate::Util qw(p); my @data = ( [<<'T', <<'X'], [% SET lang = 'TTerse' -%] Hello, [% lang %] world! T Hello, TTerse world! X [<<'T', <<'X'], [% SET lang = 'TTerse', foo = "bar" -%] Hello, [% lang %] world! Hello, [% foo %] world! T Hello, TTerse world! Hello, bar world! X [<<'T', <<'X'], [% SET a = 10 b = 20 c = 30 -%] a = [% a %] b = [% b %] c = [% c %] T a = 10 b = 20 c = 30 X [<<'T', <<'X', 'lexical scoped'], [% MACRO foo BLOCK %] [% SET lang = "TTerse" -%] Hello, [% lang %] world! [% END -%] Hello, [% lang %] world! T Hello, Xslate world! X [<<'T', <<'X', 'lexical scoped (macro)'], [% MACRO foo BLOCK -%] [%- SET lang = "TTerse" -%] Hello, [% lang %] world! [% END -%] [%- foo() -%] Hello, [% lang %] world! T Hello, TTerse world! Hello, Xslate world! X # http://github.com/gfx/p5-Text-Xslate/issues#issue/9 [<<'T', <<'X', 'issue #9'], [%- SET lang = "TTerse" -%] [%- MACRO foo BLOCK -%] [%- lang -%] [%- END -%] Hello, [%- foo() -%] world! T Hello, TTerse world! X # [<<'T', <<'X', 'lexical scoped (for)'], #[% FOR item IN [1] %] #[%- SET lang = "TTerse" -%] # Hello, [% lang %] world! #[% END -%] # Hello, [% lang %] world! #T # Hello, TTerse world! # Hello, Xslate world! #X [<<'T', <<'X', 'set x 2'], [% SET lang = 'TTerse' -%] [% SET lang = 'Perl' -%] Hello, [% lang %] world! T Hello, Perl world! X [<<'T', <<'X', 'assignment'], [% lang = 'Perl' -%] Hello, [% lang %] world! T Hello, Perl world! X [<<'T', <<'X', 'assignment x 2'], [% lang = 'TTerse' -%] [% lang = 'Perl' -%] Hello, [% lang %] world! T Hello, Perl world! X [<<'T', <<'X', 'assignment x 2'], [% lang = "/" _ lang _ "/" -%] Hello, [% lang %] world! T Hello, /Xslate/ world! X [<<'T', <<'X', 'DEFAULT' ], [% DEFAULT lang = 'TTerse' -%] Hello, [% lang %] world! T Hello, Xslate world! X [<<'T', <<'X', 'DEFAULT' ], [% DEFAULT dialect = 'TTerse' -%] Hello, [% dialect %] world! T Hello, TTerse world! X [<<'T', <<'X', 'lower cased'], [% set lang = 'TTerse' -%] Hello, [% lang %] world! T Hello, TTerse world! X [<<'T', <<'X' ], [% default lang = 'TTerse' -%] Hello, [% lang %] world! T Hello, Xslate world! X [<<'T', <<'X', 'chained assignment', 1], [% foo = bar = 'TTerse' -%] Hello, [% foo %] world! Hello, [% bar %] world! T Hello, TTerse world! Hello, TTerse world! X ); my %vars = (lang => 'Xslate', foo => '', '$lang' => 'XXX'); my $orig = p(\%vars); foreach my $d(@data) { my($in, $out, $msg, $is_tterse_specific) = @$d; last if $is_tterse_specific && $ENV{USE_TT}; is render_str($in, \%vars), $out, $msg or diag $in; is p(\%vars), $orig, '%vars is not changed'; } done_testing; Text-Xslate-3.4.0/t/040_tterse/012_macro.t0000644000175000017500000000130213040006205017250 0ustar syoheisyohei#!perl -w use strict; use Test::More; use t::lib::TTSimple; my @data = ( [<<'T', <<'X'], [% MACRO foo BLOCK -%] Hello, [% lang %] world! [% END -%] [% foo() -%] T Hello, Xslate world! X [<<'T', <<'X'], [% MACRO foo(lang) BLOCK -%] foo [% lang %] bar [% END -%] [%- foo(42) -%] Hello, [% lang %] world! T foo 42 bar Hello, Xslate world! X [<<'T', <<'X'], [% MACRO add(a, b) BLOCK -%] [% a + b %] [% END -%] [%- add(10, 32) -%] T 42 X ); foreach my $pair(@data) { my($in, $out, $msg) = @$pair; my %vars = (lang => 'Xslate', foo => "", '$lang' => 'XXX'); is render_str($in, \%vars), $out, $msg or diag $in; } done_testing; Text-Xslate-3.4.0/t/040_tterse/019_switch.t0000644000175000017500000000271713040006205017472 0ustar syoheisyohei#!perl -w use strict; use Test::More; use t::lib::TTSimple; my @data = ( [<<'T', <<'X' ], [% SWITCH lang -%] [% CASE "Xslate" -%] ok [% CASE DEFAULT -%] unlikely [% END -%] T ok X [<<'T', <<'X' ], [% SWITCH lang -%] [% CASE "Perl" -%] unlikely [% CASE DEFAULT -%] ok [% END -%] T ok X [<<'T', <<'X' ], [% SWITCH lang -%] [% CASE ["TTerse", "Xslate"] -%] ok [% CASE DEFAULT -%] unlikely [% END -%] T ok X [<<'T', <<'X' ], [% SWITCH lang -%] [% CASE "TTerse" -%] unlikely [% CASE "Xslate" -%] ok [% CASE DEFAULT -%] unlikely [% END -%] T ok X [<<'T', <<'X' ], [% SWITCH lang -%] [% CASE "TTerse" -%] unlikely [% CASE "Perl" -%] unlikely [% END -%] T X [<<'T', <<'X' ], [% SWITCH value -%] [% CASE 10 -%] ok [% END -%] T ok X [<<'T', <<'X' ], [% SWITCH lang -%] [% CASE DEFAULT -%] ok [% END -%] T ok X [<<'T', <<'X', 'extra newline'], [% SWITCH lang -%] [% CASE "TTerse" -%] unlikely [% CASE "Xslate" -%] ok [% CASE DEFAULT -%] unlikely [% END -%] T ok X [<<'T', <<'X', 'lower cased'], [% switch lang -%] [% case "TTerse" -%] unlikely [% case "Xslate" -%] ok [% case default -%] unlikely [% end -%] T ok X ); foreach my $d(@data) { my($in, $out, $msg) = @$d; my %vars = ( lang => 'Xslate', void => '', value => 10, ); is render_str($in, \%vars), $out, $msg or diag($in); } done_testing; Text-Xslate-3.4.0/t/040_tterse/007_funcs.t0000644000175000017500000000350013040006205017273 0ustar syoheisyohei#!perl -w use strict; use Test::More; use Text::Xslate; my %funcs = ( uc => sub { uc $_[0] }, sprintf => sub { sprintf shift, @_ }, pi => sub { 3.14 }, last => sub { 'last' }, # lower cased keyword IF => sub { 'IF' }, # upper cased keyword ); my $tx = Text::Xslate->new( syntax => 'TTerse', function => \%funcs, ); my @set = ( [ q{Hello, [% $a | uc %] world!}, "Hello, XSLATE world!", ], [ q{Hello, [% uc($a) %] world!}, "Hello, XSLATE world!", ], [ q{Hello, [% uc($b) %] world!}, "Hello, <XSLATE> world!", ], [ q{Hello, [% sprintf('<%s>', $a) %] world!}, "Hello, <Xslate> world!", ], [ q{Hello, [% sprintf('<%s>', $a | uc) %] world!}, "Hello, <XSLATE> world!", ], [ q{Hello, [% sprintf('<%s>', uc($a)) %] world!}, "Hello, <XSLATE> world!", ], [ q{Hello, [% sprintf('%s and %s', $a, $b) %] world!}, "Hello, Xslate and <Xslate> world!", ], [ q{Hello, [% sprintf('%s and %s', uc($a), uc($b)) %] world!}, "Hello, XSLATE and <XSLATE> world!", ], [ q{Hello, [% pi() %] world!}, "Hello, 3.14 world!", ], [ q{Hello, [% GET last() %] world!}, "Hello, last world!", ], [ q{Hello, [% GET IF() %] world!}, "Hello, IF world!", ], ); my %vars = ( a => 'Xslate', b => '', ); foreach my $d(@set) { my($in, $out) = @$d; is $tx->render_string($in, \%vars), $out or diag $in; } eval { my $tx = Text::Xslate->new( syntax => 'TTerse', warn_handler => sub{ die @_ } ); $tx->render_string("[% foobar() %]"); }; like $@, qr/Undefined function/; like $@, qr/\b foobar \b/xms; done_testing; Text-Xslate-3.4.0/t/040_tterse/013_wrapper.t0000644000175000017500000000255313040006205017641 0ustar syoheisyohei#!perl -w use strict; use Test::More; use t::lib::TTSimple; my @data = ( [<<'T', <<'X'], [% WRAPPER "wrapper.tt" -%] Hello, [% lang %] world! [% END -%] T ------------------ Hello, Xslate world! ------------------ X [<<'T', <<'X'], [% WRAPPER "wrapper_div.tt" -%] Hello, [% lang %] world! [% END -%] T
Hello, Xslate world!
X [<<'T', <<'X'], [% WRAPPER "hello.tt" -%] [% END -%] T Hello, Xslate world! X [<<'T', <<'X', 'WITH local vars'], [% WRAPPER "hello.tt" WITH lang = "Perl" -%] [% END -%] T Hello, Perl world! X [<<'T', <<'X', 'macros outside wrapper'], [% MACRO foo BLOCK %][% lang %][% END -%] [% WRAPPER "wrapper.tt" -%] Hello, [% foo() %] world! [% END -%] T ------------------ Hello, Xslate world! ------------------ X [<<'T', <<'X', 'macros inside wrapper'], [% WRAPPER "wrapper.tt" -%] [% MACRO foo BLOCK %][% lang %][% END -%] Hello, [% foo() %] world! [% END -%] T ------------------ Hello, Xslate world! ------------------ X [<<'T', <<'X', 'INTO'], [% WRAPPER "hello.tt" INTO lang %]TTerse[% END -%] T Hello, TTerse world! X ); foreach my $pair(@data) { my($in, $out, $msg) = @$pair; last if $ENV{USE_TT} && defined($msg) and $msg eq 'INTO'; my %vars = (lang => 'Xslate', foo => "", '$lang' => 'XXX'); is render_str($in, \%vars), $out, $msg or diag $in; } done_testing; Text-Xslate-3.4.0/t/040_tterse/025_macro.t0000644000175000017500000000035013040006205017256 0ustar syoheisyohei#!perl -w use strict; use warnings; use Test::More; use Text::Xslate; my $tx = Text::Xslate->new(syntax => 'TTerse', macro => ['t/template/macro.tt']); is $tx->render_string(<<'T'), <<'X'; {[% foo() %]} T {foo} X done_testing; Text-Xslate-3.4.0/t/040_tterse/006_include.t0000644000175000017500000000253413040006205017605 0ustar syoheisyohei#!perl -w use strict; use Test::More; use t::lib::TTSimple; is render_file('include.tt', { lang => "Xslate" }), "include:\n" . "Hello, Xslate world!\n"; is render_file('include2.tt', { file => "hello.tt", lang => "Xslate" }), "include2:\n" . "Hello, Xslate world!\n"; is render_file('include2.tt', { file => "include.tt", lang => "Xslate" }), "include2:\n" . "include:\n" . "Hello, Xslate world!\n"; is render_str(<<'T', { lang => "Xslate" }), <<'X'; [% INCLUDE "hello.tt" WITH lang = "TTerse" -%] Hello, [% lang %] world! T Hello, TTerse world! Hello, Xslate world! X is render_str(<<'T', { lang => "Xslate" }), <<'X'; [% INCLUDE "hello.tt" WITH pi = 3.14 lang = "TTerse" -%] Hello, [% lang %] world! T Hello, TTerse world! Hello, Xslate world! X is render_str(<<'T', { lang => "Xslate" }), <<'X'; [% INCLUDE "hello.tt" WITH pi = 3.14, lang = "TTerse" -%] Hello, [% lang %] world! T Hello, TTerse world! Hello, Xslate world! X is render_str(<<'T', { lang => "Xslate" }), <<'X', 'lower-cased'; [% include "hello.tt" with pi = 3.14, lang = "TTerse" -%] Hello, [% lang %] world! T Hello, TTerse world! Hello, Xslate world! X #is render_str(<<'T', { lang => "Xslate" }), <<'X', 'WITH is optional'; #[% INCLUDE "hello.tt" pi = 3.14, lang = "TTerse" -%] #Hello, [% lang %] world! #T #Hello, TTerse world! #Hello, Xslate world! #X done_testing; Text-Xslate-3.4.0/t/040_tterse/001_parse.t0000644000175000017500000000172213040006205017265 0ustar syoheisyohei#!perl -w use strict; use Test::More; use Text::Xslate::Syntax::TTerse; use Text::Xslate::Util qw(p); my $parser = Text::Xslate::Syntax::TTerse->new(); my @data = ( ['Hello, world!' => qr/Hello, world!/], ['Hello, [% lang %] world!' => qr/Hello/, qr/\b lang \b/xms, qr/world/], ['Hello, [% foo %] world!' => qr/\b foo \b/xms], ['Hello, [% lang %] [% foo %] world!', qr/\b lang \b/xms, qr/\b foo \b/xms], [<<'T', qr/\b foo \b/xms, qr/\b if \b/xms], [% IF foo %] This is true [% END %] T [<<'T', qr/\b foo \b/xms, qr/\b if \b/xms], [% IF foo %] This is true [% ELSE %] This is false [% END %] T [<<'T', qr/\b item \b/xms, qr/\b foo \b/xms, qr/\b for \b/xms], [% FOREACH item IN foo %] This is true [% END %] T ); foreach my $d(@data) { my($str, @patterns) = @{$d}; #note($str); my $code = p($parser->parse($str)); #note($code); foreach my $pat(@patterns) { like $code, $pat; } } done_testing; Text-Xslate-3.4.0/t/040_tterse/010_expr.t0000644000175000017500000000255413040006205017135 0ustar syoheisyohei#!perl -w use strict; use Test::More; use t::lib::TTSimple; my @data = ( ['Hello, [% lang or "Perl" %] world!' => 'Hello, Xslate world!'], ['Hello, [% empty or "Perl" %] world!' => 'Hello, Perl world!'], ['Hello, [% "foo" _ "bar" %] world!' => 'Hello, foobar world!'], ['[% ( NOT value == 10 ) ? "true" : "false" %]', "false" ], ['[% (NOT value AND (value == 10)) ? "true" : "false" %]', "false" ], ['[% (NOT( value == 10 )) ? "true" : "false" %]', "false", ], ['[% (value == 10 AND value == 10) ? "true" : "false" %]', "true" ], ['[% (value == 10) AND (value == 10) ? "true" : "false" %]', "true" ], ['[% (value == 10 AND value == 10 OR value == 10) ? "true" : "false" %]', "true" ], ['[% ((value == 10) AND (value == 10) OR (value == 10)) ? "true" : "false" %]', "true" ], ['[% (value == 10 AND value == 10 OR value == 11) ? "true" : "false" %]', "true" ], ['[% (((value == 10) AND (value == 10)) OR (value == 11)) ? "true" : "false" %]', "true" ], # TTerse specific features ['[% 0x110 +& 0x101 %]', 0x100, undef, 1 ], ); my %vars = ( lang => 'Xslate', foo => "", '$lang' => 'XXX', value => 10, ); foreach my $d(@data) { my($in, $out, $msg, $is_tterse_specific) = @$d; last if $is_tterse_specific; is render_str($in, \%vars), $out, $msg or diag $in; } done_testing; Text-Xslate-3.4.0/t/040_tterse/015_while.t0000644000175000017500000000235213040006205017270 0ustar syoheisyohei#!perl -w use strict; use Test::More; use t::lib::TTSimple; use Text::Xslate::Util qw(p); my @data = ( [<<'T', <<'X'], [% SET i = 0 -%] [% WHILE i < 3 -%] [% i %] [% i = i + 1 -%] [% END -%] T 0 1 2 X [<<'T', <<'X'], [% SET i = 0 -%] [% WHILE i < 3 -%] [% SET j = 10 -%] [% WHILE j < 12 -%] [% i %]-[% j %] [% j = j + 1 -%] [% END -%] [% i = i + 1 -%] [% END -%] T 0-10 0-11 1-10 1-11 2-10 2-11 X [<<'T', <<'X'], [% set i = 0 -%] [% while i < 3 -%] [% i %] [% i = i + 1 -%] [% end -%] T 0 1 2 X [<<'T', <<'X'], [% set i = 0 -%] [% while !(i == 3) -%] [% i %] [% i = i + 1 -%] [% end -%] T 0 1 2 X [<<'T', <<'X'], [% set i = 0 -%] [% while !!!(i == 3) -%] [% i %] [% i = i + 1 -%] [% end -%] T 0 1 2 X [<<'T', <<'X'], [% set i = 0 -%] [% while not(i == 3) -%] [% i %] [% i = i + 1 -%] [% end -%] T 0 1 2 X ); my %vars = (lang => 'Xslate', foo => '', '$lang' => 'XXX'); foreach my $d(@data) { my($in, $out, $msg) = @$d; is join(' ', split ' ', render_str($in, \%vars)), join(' ', split ' ', $out), $msg or diag $in; } done_testing; Text-Xslate-3.4.0/t/template/0000755000175000017500000000000013040325435015337 5ustar syoheisyoheiText-Xslate-3.4.0/t/template/common.tx0000644000175000017500000000017313040006205017174 0ustar syoheisyohei: macro foo -> { This is ! : } : before bar -> { before ! : } : block baz -> { This is ! : } Text-Xslate-3.4.0/t/template/oi/0000755000175000017500000000000013040325435015746 5ustar syoheisyoheiText-Xslate-3.4.0/t/template/oi/bad_component.tx0000644000175000017500000000012613040006205021121 0ustar syoheisyohei: # This is a cascading component : after hello -> { <: $a.bad_code_bar() :> : } Text-Xslate-3.4.0/t/template/oi/bad_base.tx0000644000175000017500000000011413040006205020026 0ustar syoheisyoheiHEAD : block hello -> { Hello, <:= $a.bad_code_foo() :> world! : } FOOT Text-Xslate-3.4.0/t/template/error/0000755000175000017500000000000013040325435016470 5ustar syoheisyoheiText-Xslate-3.4.0/t/template/error/bad_method.tx0000644000175000017500000000006213040006205021120 0ustar syoheisyohei : for [42] -> $it { <: $it.foobar() :> : } Text-Xslate-3.4.0/t/template/error/bad_tags.tx0000644000175000017500000000005013040006205020573 0ustar syoheisyohei : for [42] -> $it { <: $it : } Text-Xslate-3.4.0/t/template/error/bad_include.tx0000644000175000017500000000007113040006205021263 0ustar syoheisyohei: for [42] -> $it { <: include "no_such_file" :> : } Text-Xslate-3.4.0/t/template/error/bad_syntax.tx0000644000175000017500000000005713040006205021172 0ustar syoheisyohei : for [42] -> $it { <: dump($it)) :> : } Text-Xslate-3.4.0/t/template/eg/0000755000175000017500000000000013040325435015732 5ustar syoheisyoheiText-Xslate-3.4.0/t/template/eg/child.tx0000644000175000017500000000033113040006205017356 0ustar syoheisyohei: cascade eg::base <: around title ->{ :>My amazing blog<: } :> : around content -> { : for $blog_entries -> ($entry) {

<:= $entry.title :>

<:= $entry.body :>

: } # end for : } # end content Text-Xslate-3.4.0/t/template/eg/base.tx0000644000175000017500000000113213040006205017205 0ustar syoheisyohei <: block title -> { :>My amazing site<: } :>
: block content -> { ; }
Text-Xslate-3.4.0/t/template/include.tt0000644000175000017500000000004313040006205017317 0ustar syoheisyoheiinclude: [% INCLUDE "hello.tt" -%] Text-Xslate-3.4.0/t/template/other/0000755000175000017500000000000013040325435016460 5ustar syoheisyoheiText-Xslate-3.4.0/t/template/other/hello.tx0000644000175000017500000000003313040006205020123 0ustar syoheisyoheiHello, <:= $lang :> world! Text-Xslate-3.4.0/t/template/include2.tt0000644000175000017500000000003713040006205017404 0ustar syoheisyoheiinclude2: [% INCLUDE $file -%] Text-Xslate-3.4.0/t/template/hello_sjis.tx0000644000175000017500000000003413040006205020033 0ustar syoheisyohei‚±‚ñ‚É‚¿‚ÍI <:= $name :>I Text-Xslate-3.4.0/t/template/for.tx0000644000175000017500000000006213040006205016467 0ustar syoheisyohei: for $books ->($item) { [<:= $item.title :>] : } Text-Xslate-3.4.0/t/template/hello.tx0000644000175000017500000000003313040325516017013 0ustar syoheisyoheiHello, <:= $lang :> world! Text-Xslate-3.4.0/t/template/wrapper_div.tt0000644000175000017500000000005413040006205020220 0ustar syoheisyohei
[% content -%]
Text-Xslate-3.4.0/t/template/func.tx0000644000175000017500000000003613040006205016635 0ustar syoheisyoheiHello, <:= f($lang) :> world! Text-Xslate-3.4.0/t/template/include2.tx0000644000175000017500000000003113040006205017402 0ustar syoheisyoheiinclude2: :include $file Text-Xslate-3.4.0/t/template/wrapper.tt0000644000175000017500000000006513040006205017360 0ustar syoheisyohei------------------ [% content -%] ------------------ Text-Xslate-3.4.0/t/template/myapp/0000755000175000017500000000000013040325435016465 5ustar syoheisyoheiText-Xslate-3.4.0/t/template/myapp/derived.tx0000644000175000017500000000013713040006205020454 0ustar syoheisyohei: cascade myapp::base : before hello -> { D-BEFORE : } : after hello -> { D-AFTER : } Text-Xslate-3.4.0/t/template/myapp/base.tx0000644000175000017500000000010013040006205017732 0ustar syoheisyoheiHEAD : block hello -> { Hello, <:= $lang :> world! : } FOOT Text-Xslate-3.4.0/t/template/myapp/bad_redefine.tx0000644000175000017500000000007713040006205021424 0ustar syoheisyohei: cascade myapp::base : block hello -> { BAD REDEFINE : } Text-Xslate-3.4.0/t/template/myapp/cfoo.tx0000644000175000017500000000010313040006205017751 0ustar syoheisyohei: # This is a cascading component : before hello -> { FOO : } Text-Xslate-3.4.0/t/template/myapp/base.tx.mod0000644000175000017500000000010113040006205020511 0ustar syoheisyoheiHEAD : block hello -> { Modified version of base.tx : } FOOT Text-Xslate-3.4.0/t/template/myapp/cbar.tx0000644000175000017500000000010213040006205017731 0ustar syoheisyohei: # This is a cascading component : after hello -> { BAR : } Text-Xslate-3.4.0/t/template/footer1.tt0000644000175000017500000000001013040006205017245 0ustar syoheisyoheifooter1 Text-Xslate-3.4.0/t/template/hello.tx.mod0000644000175000017500000000002213040006205017556 0ustar syoheisyoheiHi, <:= $lang :>. Text-Xslate-3.4.0/t/template/hello.tt0000644000175000017500000000003113040006205016774 0ustar syoheisyoheiHello, [% lang %] world! Text-Xslate-3.4.0/t/template/config.tt0000644000175000017500000000012513040006205017142 0ustar syoheisyohei[% DEFAULT lang = 'TTerse' -%] [% MACRO em(s) BLOCK -%] [% s %] [%- END -%] Text-Xslate-3.4.0/t/template/macro.tt0000644000175000017500000000004513040006205016777 0ustar syoheisyohei[% MACRO foo() BLOCK %]foo[% END -%] Text-Xslate-3.4.0/t/template/include.tx0000644000175000017500000000003513040006205017324 0ustar syoheisyoheiinclude: :include "hello.tx" Text-Xslate-3.4.0/t/template/header1.tt0000644000175000017500000000001013040006205017177 0ustar syoheisyoheiheader1 Text-Xslate-3.4.0/t/template/taint.tx0000644000175000017500000000277613040006205017036 0ustar syoheisyoheifoo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo foo <:= $scalar_variable :> <:= $hash_variable.hash_value_key :> <:= $array_variable[ 2 ] :> <:= $this.is.a.very.deep.hash.structure :> <: for $array_loop ->($i) { :><:= $i :><: } :> <: for $hash_loop.keys() ->($k) { :> <:= $k :>: <:= $hash_loop[ $k ] :> <: } :> <: for $records_loop ->($r) { :> <:= $r.name :>: <:= $r.age :> <: } :> <: for $array_loop ->($i) { :> <:= $i :> <: } :> <: for $hash_loop.keys() ->($k) { :> <:= $k :>: <:= $hash_loop[ $k ] :> <: } :> <: for $records_loop ->($r) { :> <:= $r.name :>: <:= $r.age :> <: } :> <: if 1 { :>true<: } :> <: if $variable_if { :>true<: } :> <: if 1 { :>true<: } else { :>false<: } :> <: if $variable_if_else { :>true<: } else { :>false<: } :> <: if 1 { :><:= $template_if_true :><: } :> <: if $variable_if { :><:= $template_if_true :><: } :> <: if 1 { :><:= $template_if_true :><: } else { :><:= $template_if_false :><: } :> <: if $variable_if_else { :><:= $template_if_true :><: } else { :><:= $template_if_false :><: } :> <:= 10 + 12 :> <:= $variable_expression_a * $variable_expression_b :> <:= ( ( $variable_expression_a * $variable_expression_b ) + $variable_expression_a - $variable_expression_b ) / $variable_expression_b :> <:= substr( 'this has a substring.', 11, 9 ) :> <:= substr( $variable_function_arg, 4, 2 ) :> Text-Xslate-3.4.0/t/template/header2.tt0000644000175000017500000000001013040006205017200 0ustar syoheisyoheiheader2 Text-Xslate-3.4.0/t/template/hello_utf8.tx0000644000175000017500000000004313040006205017751 0ustar syoheisyoheiã“ã‚“ã«ã¡ã¯ï¼ <:= $name :>ï¼ Text-Xslate-3.4.0/t/template/footer2.tt0000644000175000017500000000001013040006205017246 0ustar syoheisyoheifooter2 Text-Xslate-3.4.0/t/200_app/0000755000175000017500000000000013040325435014665 5ustar syoheisyoheiText-Xslate-3.4.0/t/200_app/simple/0000755000175000017500000000000013040325435016156 5ustar syoheisyoheiText-Xslate-3.4.0/t/200_app/simple/goodbye.tx0000644000175000017500000000005413040006205020151 0ustar syoheisyoheiGoodbye, <: $world_type // "Cruel" :> world!Text-Xslate-3.4.0/t/200_app/simple/hello.tx0000644000175000017500000000004313040006205017622 0ustar syoheisyoheiHello, <: $lang // "Perl" :> world!Text-Xslate-3.4.0/t/200_app/simple/dont_touch.tx0000644000175000017500000000006313040006205020667 0ustar syoheisyoheiThiis file will be ignored by the --ignore option. Text-Xslate-3.4.0/t/200_app/004_encoding.t0000644000175000017500000000211613040006205017212 0ustar syoheisyohei#!perl use strict; use warnings; use utf8; use Test::More; use SelectSaver; use Text::Xslate::Runner; use Encode qw(encode decode); sub capture(&) { my($block) = @_; my $s = ''; { open my $out, '>', \$s; my $saver = SelectSaver->new($out); $block->(); } return $s; } my $app = Text::Xslate::Runner->new( define => { name => '' }, cache_dir => '.xslate_cache/app3', ); is capture { $app->run('t/template/hello_utf8.tx') }, encode("UTF-8", "ã“ã‚“ã«ã¡ã¯ï¼ <Xslate>ï¼\n"); $app->output_encoding('Shift_JIS'); is capture { $app->run('t/template/hello_utf8.tx') }, encode("Shift_JIS", "ã“ã‚“ã«ã¡ã¯ï¼ <Xslate>ï¼\n"); $app->input_encoding('Shift_JIS'); $app->output_encoding('utf-8'); is capture { $app->run('t/template/hello_sjis.tx') }, encode("UTF-8", "ã“ã‚“ã«ã¡ã¯ï¼ <Xslate>ï¼\n"); $app->input_encoding('Shift_JIS'); $app->output_encoding('Shift_JIS'); is capture { $app->run('t/template/hello_sjis.tx') }, encode("Shift_JIS", "ã“ã‚“ã«ã¡ã¯ï¼ <Xslate>ï¼\n"); done_testing; Text-Xslate-3.4.0/t/200_app/003_runner.t0000644000175000017500000000357613040006205016747 0ustar syoheisyoheiuse strict; use warnings; use Test::More; use SelectSaver; use Text::Xslate::Runner; sub capture(&) { my($block) = @_; my $s = ''; { open my $out, '>', \$s; my $saver = SelectSaver->new($out); $block->(); } return $s; } my $app = Text::Xslate::Runner->new( eval => 'Hello, <: $lang :> world!', define => { lang => '' }, ); is capture { $app->run() }, "Hello, <Xslate> world!\n"; $app = Text::Xslate::Runner->new( eval => 'Hello, <: $lang :> world!', define => { lang => '' }, type => 'text', ); is capture { $app->run() }, "Hello, world!\n"; $app = Text::Xslate::Runner->new( eval => 'Hello, [% $lang %] world!', define => { lang => '' }, syntax => 'TTerse', ); is capture { $app->run() }, "Hello, <Xslate> world!\n"; $app = Text::Xslate::Runner->new( eval => 'Hello, [% $lang %] world!', define => { lang => '' }, syntax => 'TTerse', ); is capture { $app->run() }, "Hello, <Xslate> world!\n"; my @argv; @argv = ( '-e<: max(10, 20, 30, 25, 15) :>/<: min(10, 20, 30, 25, 15) :>', '-MList::Util=max,min', ); $app = Text::Xslate::Runner->new_from(@argv); is capture { $app->run() }, "30/10\n"; @argv = ( '-e', '<: $foo :>/<: $bar :>', '-Dfoo=100', '-Dbar=200', ); $app = Text::Xslate::Runner->new_from(@argv); is capture { $app->run() }, "100/200\n"; @argv = ( '-e', '<: $foo :>/<: $bar :>', '-D', 'foo=100', '-D', 'bar=200', ); $app = Text::Xslate::Runner->new_from(@argv); is capture { $app->run() }, "100/200\n"; my $help = capture { Text::Xslate::Runner->new_from('--help')->run(); }; like $help, qr/--help/; like $help, qr/--define/; like $help, qr/--eval/; my $version_info = capture { Text::Xslate::Runner->new_from('--version')->run(); }; like $version_info, qr/Text::Xslate::Runner/; done_testing; Text-Xslate-3.4.0/t/200_app/001_hello.t0000644000175000017500000000230613040006212016523 0ustar syoheisyoheiuse strict; use Test::More (tests => 8); use File::Path (); use FindBin qw($Bin); use constant CACHE_DIR => '.xslate/app1'; sub clean { File::Path::rmtree( $Bin . "/out" ); File::Path::rmtree( CACHE_DIR ); } clean(); END{ clean(); } system $^X, (map { "-I$_" } @INC), "script/xslate", '--suffix', 'tx=txt', sprintf('--dest=%s/out', $Bin), '--cache_dir=' . CACHE_DIR, '--verbose=1', '--cache=2', sprintf('%s/simple/hello.tx', $Bin), ; is $?, 0, "command executed successfully (1)"; ok -d CACHE_DIR, 'cache directory created'; ok -f sprintf('%s/out/hello.txt', $Bin), 'correct file generated'; my $fh; ok open($fh, '<', sprintf('%s/out/hello.txt', $Bin)), 'file opened'; my $content = do { local $/; <$fh> }; like $content, qr/Hello, Perl world!/; system $^X, (map { "-I$_" } @INC), "script/xslate", '--suffix', 'tx=txt', sprintf('--dest=%s/out', $Bin), '--cache_dir=' . CACHE_DIR, '--define=lang=Xslate', '--cache=2', sprintf('%s/simple/hello.tx', $Bin), ; is $?, 0, "command executed successfully (2)"; ok open($fh, '<', sprintf('%s/out/hello.txt', $Bin)), 'file opened'; $content = do { local $/; <$fh> }; like $content, qr/Hello, Xslate world!/; Text-Xslate-3.4.0/t/200_app/002_tree.t0000644000175000017500000000201013040006205016352 0ustar syoheisyoheiuse strict; use Test::More (tests => 8); use File::Path (); use FindBin qw($Bin); sub clean { File::Path::rmtree( ".app_cache2" ); File::Path::rmtree( ".tree_out" ); } clean(); END{ clean(); } system $^X, (map { "-I$_" } @INC), "script/xslate", '--suffix', 'tx=txt', '--cache_dir=.xslate_cache/app2', '--dest=.tree_out', '--ignore=dont_touch', "$Bin/simple", ; if (is $?, 0, "command executed successfully") { { ok -f '.tree_out/hello.txt', 'correct file generated'; my $fh; ok open($fh, '<', '.tree_out/hello.txt'), 'file opened'; my $content = do { local $/; <$fh> }; like $content, qr/Hello, Perl world!/; } { ok -f '.tree_out/goodbye.txt', 'correct file generated'; my $fh; ok open($fh, '<', '.tree_out/goodbye.txt'), 'file opened'; my $content = do { local $/; <$fh> }; like $content, qr/Goodbye, Cruel world!/; } { ok !-f '.tree_out/dont_touch.tx', '--ignore works'; } } Text-Xslate-3.4.0/t/900_bugs/0000755000175000017500000000000013040325435015054 5ustar syoheisyoheiText-Xslate-3.4.0/t/900_bugs/034_hash_key_utf8.t0000644000175000017500000000156713040006205020370 0ustar syoheisyoheiuse strict; use warnings; use utf8; use Test::More; use File::Temp qw(tempdir); use File::Spec; use File::Basename; use Carp (); use File::Spec (); use Text::Xslate 1.6001; use Encode; my $tmp = tempdir(CLEANUP => 1); sub spew { my $fname = shift; open my $fh, '>', $fname or Carp::croak("Can't open '$fname' for writing: '$!'"); print {$fh} $_[0]; } sub make_view { my $view = Text::Xslate->new(+{ path => [ $tmp ], cache_dir => $tmp, function => { foo => sub { my($args) = @_; Encode::is_utf8([keys %$args]->[0]) ? 1 : 0; } }, }); return $view; } spew("$tmp/index.tt", "<: foo({page => 1}) :>\n"); { my $p1 = make_view()->render('index.tt'); my $p2 = make_view()->render('index.tt'); is $p1, "1\n", 'p1'; is $p2, "1\n", 'p2'; } done_testing; Text-Xslate-3.4.0/t/900_bugs/011_reserved_words.t0000644000175000017500000000041313040006205020644 0ustar syoheisyohei#!perl -w use strict; use Test::More; use Text::Xslate; my $tx = Text::Xslate->new( syntax => 'TTerse', ); is eval { $tx->render_string(<<'T'); [% block = "Hello" -%] [% block %] T }, undef; isnt $@, ''; like $@, qr/not a lexical variable/; done_testing; Text-Xslate-3.4.0/t/900_bugs/043_issue107.t0000644000175000017500000000063013040006205017175 0ustar syoheisyohei#!perl # https://github.com/xslate/p5-Text-Xslate/issues/107 use strict; use warnings; use Test::More; use Text::Xslate; use Text::Xslate::Util qw(hash_with_default); my $tx = Text::Xslate->new(); is($tx->render_string('[<: $oops :>]', hash_with_default(+{}, sub { 'null' })), '[null]'); is($tx->render_string('[<: $oops :>]', hash_with_default(+{ oops => undef }, sub { 'null' })), '[]'); done_testing; Text-Xslate-3.4.0/t/900_bugs/036_vpath_utf8.t0000644000175000017500000000050313040006205017706 0ustar syoheisyohei#!perl -w # "Strings with code points over 0xFF may not be mapped into in-memory file handles" use strict; use warnings; use utf8; use Test::More; use Text::Xslate; my %vpath = ( entry => 'ã‚ã„ã†' ); my $tx = Text::Xslate->new( cache => 0, path => \%vpath ); is $tx->render('entry'), 'ã‚ã„ã†'; done_testing; Text-Xslate-3.4.0/t/900_bugs/023_deploy_problem.t0000644000175000017500000000215213040006205020630 0ustar syoheisyohei#!perl use strict; use warnings; use Fatal qw(open close utime); use Test::More; use File::Basename qw(basename); use File::Temp qw(tempdir); use File::Copy qw(copy); use File::stat qw(stat); use Text::Xslate; # problems on deploying # # 1. mtime of foo.tx@stage is 12:00 # 2. there's access to the service and then mtime of foo.txc@service gets 12:00 # 3. to deploy foo.tx, mtime of which@service is 12:00 # 4. there's access to the service; mtime of foo.tx and foo.txc is the same my $content0 = <<'T'; Hello, world! T my $content1 = <<'T'; modified T { my $service = tempdir(CLEANUP => 1); my $tx = Text::Xslate->new( cache_dir => "$service/cache", path => [$service], ); write_file("$service/foo.tx", $content0); sleep 1; # time goes is $tx->render("foo.tx"), $content0; write_file("$service/foo.tx", $content1); is $tx->render("foo.tx"), $content1; } done_testing; exit; sub write_file { my($file, $content) = @_; open my($fh), ">", $file; print $fh $content; eval { $fh->flush; $fh->sync; }; close $fh; return; } Text-Xslate-3.4.0/t/900_bugs/004_errorhandling.t0000644000175000017500000000130613040006205020451 0ustar syoheisyoheiuse strict; use Text::Xslate; use Test::More; my $view = Text::Xslate->new( verbose => 1, syntax => 'TTerse', function => { f => sub { die } }, ); close STDERR; open STDERR, '>', \my $stderr; { package MyMap; sub wrapper { my ( $self, $res ) = @_; return $res; } sub call { my ( $self, $env ) = @_; my $app = sub { my $html = $view->render_string( <<'...' ); [% f() -%] [% f() -%] [% f() -%] [% f() -%] [% f() -%] ... return [ 200, [], [$html] ]; }; return $self->wrapper( $app->($env) ); } } my $res = MyMap->call( {} ); is ref($res), 'ARRAY'; note $stderr; done_testing; Text-Xslate-3.4.0/t/900_bugs/025_clobber-macro-args.t0000644000175000017500000000113513040006205021257 0ustar syoheisyohei#!perl # https://gist.github.com/3499604 # reported by ktat # modified by gfx use strict; use warnings; use Test::More; use Text::Xslate; my %vpath; $vpath{"test.tt"} = <<'_TMPL_'; [%- MACRO hoge1 (aaa) BLOCK -%] [%- END -%] [%- SET foo = 42 -%] [%- MACRO hoge2 (bbb) BLOCK -%] Calling this macro clobbered "foo". [%- END -%] [%- hoge2("a") -%] [% hoge1("b") %] [% foo %] should be 42. _TMPL_ my $t = Text::Xslate->new( syntax => 'TTerse', cache => 0, path => \%vpath ); my $text = $t->render("test.tt"); note $text; like $text, qr/^42 \s+ should \s+ be \s+ 42\.$/xms; done_testing; Text-Xslate-3.4.0/t/900_bugs/001_super.t0000644000175000017500000000107713040006205016753 0ustar syoheisyohei#!perl -w use strict; use warnings; use Test::More; use Text::Xslate; my %vpath = ( 'component.tx' => <<'T', : around body -> { Welcome : super : } T 'main.tx' => <<'T', : cascade with component : block body -> {

<: $message :>

This page was generated from the template : } T ); my $tx = Text::Xslate->new(path => \%vpath, cache => 0); my $out = $tx->render('main.tx', { message => 'OK'}); like $out, qr//; like $out, qr/

/; like $out, qr/OK/; done_testing; Text-Xslate-3.4.0/t/900_bugs/009_quote_in_comments.t0000644000175000017500000000204213040006205021346 0ustar syoheisyohei#!perl -w use strict; use warnings; use Test::More; use Text::Xslate; note 'Kolon'; my $tx = Text::Xslate->new(type => 'text'); is $tx->render_string(<<'T'), "\n"; <: # it's a comment! :> T is $tx->render_string(<<'T'), "# it's a comment!\n"; <: "# it's a comment!" :> T is $tx->render_string(<<'T'), "# it's a comment!\n"; <: '# it\'s a comment!' :> T is $tx->render_string(<<'T'), "\n"; <: '' # it's a comment! :> T is $tx->render_string(<<'T'), "\n"; <:''# it's a comment! :> T note 'TTerse'; $tx = Text::Xslate->new(type => 'text', syntax => 'TTerse'); is $tx->render_string(<<'T'), "\n"; [% # it's a comment! %] T is $tx->render_string(<<'T'), "# it's a comment!\n"; [% "# it's a comment!" %] T is $tx->render_string(<<'T'), "# it's a comment!\n"; [% '# it\'s a comment!' %] T is $tx->render_string(<<'T'), "\n"; [% '' # it's a comment! %] T is $tx->render_string(<<'T'), "\n"; [%''# it's a comment! %] T is $tx->render_string(<<'T'), "Hello, world!\n"; [%# it's a comment! it is also a comment! -%] Hello, world! T done_testing; Text-Xslate-3.4.0/t/900_bugs/030_issue71.t0000644000175000017500000000136713040006205017121 0ustar syoheisyohei#!perl # https://github.com/xslate/p5-Text-Xslate/issues/71 use strict; use warnings; use Text::Xslate; use Test::More; my $tx = Text::Xslate->new('syntax' => 'TTerse',); my $CLEANUP_OK; { package MyHandle; sub new { bless {}, shift } sub DESTROY { $CLEANUP_OK++; } } { my $dbh = MyHandle->new(); my @book = ( {title => "foo", dbh => $dbh}, {title => "bar", dbh => $dbh}, ); my $template = q{

[% title %]

    [% FOREACH book IN books %] [% SET test = book %]
  • [% book.title %]
    • [% END %]
}; my $body = $tx->render_string($template, { books => \@book, }); isnt $body, '', 'render_string() succeeded'; } ok($CLEANUP_OK, '$dbh is released'); done_testing; Text-Xslate-3.4.0/t/900_bugs/040_issue95.t0000644000175000017500000000316113040006205017122 0ustar syoheisyohei#!perl # https://github.com/xslate/p5-Text-Xslate/issues/95 use strict; use warnings; use Fatal qw(open close); use File::Path qw(remove_tree); use Test::More; use Text::Xslate; # here's some test template files my $base_a = <<'EOF'; here is base A : block body -> {} EOF my $sub_a = <<'EOF'; : cascade base : override body { this is sub A : } EOF my $sub_b = <<'EOF'; : cascade base : override body { this is sub B : } EOF # remove old directories if they exist and re-create remove_tree('path_a', 'path_b'); END { remove_tree('path_a', 'path_b') } mkdir 'path_a'; mkdir 'path_b'; write_file('path_a/base.tx', $base_a); write_file('path_a/sub.tx', $sub_a); my $tx = Text::Xslate->new( path => ['path_b', 'path_a'], cache => 1, ); my $out = $tx->render('sub.tx'); # expect both base and sub A since there is nothing in path B is($out, "here is base A\nthis is sub A\n", "cascade with base in same directory"); # now a new path_b sub file, and render again write_file('path_b/sub.tx', $sub_b); my $out2 = $tx->render('sub.tx'); # we should get the A base (since there is no B base) with the B sub (since that is first in path) { local $TODO = 'not yet'; is($out2, "here is base A\nthis is sub B\n", "cascade with base in different directory"); } $tx = Text::Xslate->new( path => ['path_b', 'path_a'], cache => 1, ); note 'after re-creating an Xslate instance'; my $out3 = $tx->render('sub.tx'); is($out3, "here is base A\nthis is sub B\n", "cascade with base in different directory"); done_testing; sub write_file { my($path, $content) = @_; open my $fh, ">", $path; print $fh $content; close $fh; } Text-Xslate-3.4.0/t/900_bugs/005_rec_include.t0000644000175000017500000000074213040006205020073 0ustar syoheisyohei#!perl -w # copied from t/030_kolon/009_include.t use strict; #use warnings FATAL => 'all'; use Test::More; use Text::Xslate; use t::lib::Util; my $tx = Text::Xslate->new( cache => 0, path => [path] ); eval { $tx->render('include2.tx', { file => 'include2.tx', lang => 'Xslate' }); }; like $@, qr/too deep/, 'first'; note $@; eval { $tx->render('include2.tx', { file => 'include2.tx', lang => 'Xslate' }); }; like $@, qr/too deep/, 'second'; note $@; done_testing; Text-Xslate-3.4.0/t/900_bugs/013_comments_lineno.t0000644000175000017500000000051013040006205021000 0ustar syoheisyohei#!perl -w use strict; use Test::More; use Text::Xslate; my $tx = Text::Xslate->new( syntax => 'TTerse', ); is $tx->render_string(<<'T'), "1\n5\n"; [% __LINE__ ~ "\n"; # 2 # 3 # 4 __LINE__ %] T is $tx->render_string(<<'T'), "1\n5\n"; %%__LINE__ ~ "\n" %% # 2 %% # 3 %% # 4 %% __LINE__ ~ "\n" T done_testing; Text-Xslate-3.4.0/t/900_bugs/008_include_var.t0000644000175000017500000000067013040006205020115 0ustar syoheisyohei#!perl -w use strict; use Test::More; use Text::Xslate; my %vpath = ( 'foo.tx' => 'foo.tx', ); my $tx = Text::Xslate->new( function => { f => sub { 'foo.tx' } }, path => \%vpath, cache => 0, ); is eval { $tx->render_string(': include f() ') }, 'foo.tx'; is eval { $tx->render_string(': my $x = f(); include "" ~ $x;') }, 'foo.tx'; is eval { $tx->render_string(': my $x = f(); include $x; ') }, 'foo.tx'; done_testing; Text-Xslate-3.4.0/t/900_bugs/032_issue79.t0000644000175000017500000000131713040006205017126 0ustar syoheisyohei#!perl use strict; use warnings; use Fatal qw(utime); use FindBin qw($Bin); use File::Path qw(rmtree); use Config (); use Test::More; use Text::Xslate; my $dir = "$Bin/issue79"; rmtree "$dir/cache"; my %std_inc = map { $_ => 1 } (".", @Config::Config{qw( sitelibexp sitearchexp privlibexp archlibexp )}); my $libs = join " ", map { qq{"-I$_" } } grep { !$std_inc{$_} } @INC; my $run_cmd = qq{$^X $libs "$dir/xslate.pl"}; note $run_cmd; my @tmpls = qw/ contentA.tt contentB.tt /; note 'run with cache'; my $expected = `$run_cmd`; is $?, 0, 'process succeed'; utime time()+2, time()+2, map { "$dir/tmpl/$_" } @tmpls; my $got = `$run_cmd`; is $?, 0, 'process succeed'; is $got, $expected; done_testing; Text-Xslate-3.4.0/t/900_bugs/006_complex_lex.t0000644000175000017500000000066113040006205020137 0ustar syoheisyohei#!perl # vim:ft=perl: # reported by cho45 # modified from https://github.com/gfx/p5-Text-Xslate/issues#issue/27 use strict; use warnings; use Test::More; use Text::Xslate; use Text::Xslate::Parser; my $template = sprintf <<'EOF', qq{ "a",\n} x 5000; [%% JS = [ %s ] %%] foobar EOF my $XSLATE = Text::Xslate->new( syntax => 'TTerse', cache => 0, ); like $XSLATE->render_string($template), qr/foobar/; done_testing; Text-Xslate-3.4.0/t/900_bugs/047_undef_concat.t0000644000175000017500000000247413040006212020257 0ustar syoheisyohei#!perl # https://github.com/xslate/p5-Text-Xslate/issues/xx use strict; use warnings; use Test::More; use utf8; use Text::Xslate 'mark_raw'; my $xslate = Text::Xslate->new(); # without the fix, these fail with # "Use of uninitialized value in subroutine entry" my $t = sub { is $xslate->render_string('<: $s1 ~ $s2 :>', shift), shift; }; $t->( {s1 => 'A', s2 => 'B' } => 'AB'); $t->( {s1 => 'A', s2 => undef } => 'A'); $t->( {s1 => undef, s2 => 'B' } => 'B'); $t->( {s1 => mark_raw('A'), s2 => undef } => 'A'); $t->( {s1 => undef, s2 => mark_raw('B') } => 'B'); # the automatic html-escaping that xslate does $t->({s1 => 'A', s2 => '' } => 'A<B>'); $t->({s1 => 'A', s2 => mark_raw('') } => 'A' ); $t->({s1 => '', s2 => 'B' } => '<A>B'); $t->({s1 => mark_raw(''), s2 => 'B' } => 'B' ); # those two again with undefs $t->({s1 => '', s2 => undef } => '<A>'); $t->({s1 => mark_raw(''), s2 => undef } => ''); $t->({s1 => undef, s2 => '' } => '<B>'); $t->({s1 => undef, s2 => mark_raw('') } => ''); # undef on both sides $t->({s1 => undef, s2 => undef } => ''); done_testing(); Text-Xslate-3.4.0/t/900_bugs/028_issue68.t0000644000175000017500000000067513040006205017137 0ustar syoheisyohei#!/usr/bin/env perl # https://github.com/xslate/p5-Text-Xslate/issues/68 # "Logic for constant folding unary ops isn't quite right" use strict; use warnings; use Test::More; use Text::Xslate; my $tx = Text::Xslate->new(cache => 0); { my $warnings = ''; local $SIG{__WARN__} = sub { $warnings .= $_[0] }; my $result = $tx->render_string(': -(1 + $a)', { a => 2 }); is($result, "-3"); is($warnings, ''); } done_testing; Text-Xslate-3.4.0/t/900_bugs/046_issue88.t0000644000175000017500000000153113040006212017127 0ustar syoheisyohei#!perl # https://github.com/xslate/p5-Text-Xslate/issues/88 use strict; use warnings; use Test::More; use utf8; use Text::Xslate 'mark_raw'; my $xslate = Text::Xslate->new(); is $xslate->render_string('<: $string :>', {string => "Ä"}) => 'Ä'; is $xslate->render_string('<: $string :>', {string => "\x{c4}"}) => 'Ä'; is $xslate->render_string('ã‚<: $string :>', {string => "Ä"}) => 'ã‚Ä'; is $xslate->render_string('ã‚<: $string :>', {string => "\x{c4}"}) => 'ã‚Ä'; is $xslate->render_string('<: $string :>', {string => mark_raw("Ä")}) => 'Ä'; is $xslate->render_string('<: $string :>', {string => mark_raw("\x{c4}")}) => 'Ä'; is $xslate->render_string('ã‚<: $string :>', {string => mark_raw("Ä")}) => 'ã‚Ä'; is $xslate->render_string('ã‚<: $string :>', {string => mark_raw("\x{c4}")}) => 'ã‚Ä'; done_testing(); Text-Xslate-3.4.0/t/900_bugs/029_fork_and_cache.t0000644000175000017500000000346313040006205020536 0ustar syoheisyohei#!perl # https://gist.github.com/3890412 use strict; use warnings; use Fatal qw(open close); use File::Temp qw(tempdir); use Test::More skip_all => 'deal with memorycache-filecache-original model more effectively'; use Text::Xslate; { package MyXslate; use parent qw(Text::Xslate); sub _load_source { my ($self, $fi) = @_; my $fullpath = $fi->{fullpath}; $self->{_load_source_count}{$fullpath}++; $self->SUPER::_load_source($fi); } } my $content_main = <<'T'; : cascade base T my $content_base = <<'T'; I am base T { my $service = tempdir(CLEANUP => 1); write_file("$service/main.tx", $content_main); write_file("$service/base.tx", $content_base); # emulate fork() (tow instances with the same options) my $tx1 = MyXslate->new( cache_dir => "$service/cache", path => [$service], ); my $tx2 = MyXslate->new( cache_dir => "$service/cache", path => [$service], ); note 'first time'; is $tx1->render("main.tx"), $content_base; is $tx2->render("main.tx"), $content_base; is $tx1->{_load_source_count}{"$service/main.tx"} => 1; is $tx2->{_load_source_count}{"$service/main.tx"} => undef; sleep 1; # time goes note 'template was modified and time went'; $content_base .= '2'; write_file("$service/base.tx", $content_base); is $tx1->render("main.tx"), $content_base; is $tx1->{_load_source_count}{"$service/main.tx"} => 2; # render() should use cache without recompiling is $tx2->render("main.tx"), $content_base; is $tx2->{_load_source_count}{"$service/main.tx"} => undef, 'did not re-compile'; } done_testing; exit; sub write_file { my($file, $content) = @_; open my($fh), ">", $file; print $fh $content; close $fh; return; } Text-Xslate-3.4.0/t/900_bugs/033_ex_safe_render.t0000644000175000017500000000161113040006205020565 0ustar syoheisyoheiuse strict; use warnings; use Test::More; { package MyCounter; sub new { my $class = shift;bless {@_} => $class } sub incr { shift->{count}++ } sub decr { shift->{count}-- } sub count { shift->{count} } } use Text::Xslate; my $tx = Text::Xslate->new( cache => 1, syntax => 'TTerse', path => { 'recurse.tt' => q{ [%- MACRO mymacro BLOCK -%] [%- CALL recurse_count.decr -%] [%- IF recurse_count.count -%] [%- mymacro() -%] [%- END -%] [%- END -%] [%- mymacro() -%] }, }, ); ok $tx->render('recurse.tt', { recurse_count => MyCounter->new(count => 101) }); eval { $tx->render('recurse.tt', { recurse_count => MyCounter->new(count => 102) }); }; ok $tx->render('recurse.tt', { recurse_count => MyCounter->new(count => 101) }); done_testing; Text-Xslate-3.4.0/t/900_bugs/041_cachedir_other_process.t0000755000175000017500000000236413040006205022325 0ustar syoheisyohei#!perl use strict; use warnings; use Test::More; use File::Path qw(rmtree); use t::lib::Util; use File::Spec; use Time::HiRes qw(sleep); use Text::Xslate; plan skip_all => 'fork emulation does not work' if $^O eq 'MSWin32'; rmtree(cache_dir); my $tx = Text::Xslate->new( path => [path], cache => 1, cache_dir => cache_dir, ); my $cache_dir = do { my $fi = $tx->find_file("hello.tx"); my($volume, $dir) = File::Spec->splitpath($fi->{cachepath}); File::Spec->catpath($volume, $dir, ''); }; my $mkpath = File::Path->can('mkpath'); no warnings 'redefine'; local *File::Path::mkpath = sub { my ($path) = @_; if ($path eq $cache_dir) { note 'waiting child process'; sleep 0.2; ok $cache_dir, 'cache_dir seems created on child process'; note 'mkpath on parent pwaiting child process'; } $mkpath->(@_); }; ok ! -e $cache_dir, 'cache directory does not exists'; my $pid = fork; BAIL_OUT 'fork failed' unless defined $pid; if ($pid) { my $fi = $tx->load_file("hello.tx"); ok -e $cache_dir, 'cache directory exists'; done_testing; rmtree(cache_dir); } else { note 'waiting if(not -e $cachedir) {'; sleep 0.1; note 'mkpath on child process'; $mkpath->($cache_dir); } Text-Xslate-3.4.0/t/900_bugs/019_nested_mm.t0000644000175000017500000000070713040006205017600 0ustar syoheisyohei#!perl # issues/45: nested macro modifiers use strict; use warnings; use utf8; use Test::More; use Text::Xslate; my %vpath = ( X => <<'T', : block sugyan -> { This is X. : } T Y => <<'T', : cascade "X" : around sugyan -> { This is Y. : } T Z => <<'T', : cascade "Y" : around sugyan -> { This is Z. : } T ); my $xslate = Text::Xslate->new( path => [\%vpath] ); is eval { $xslate->render('Z') }, "This is Z.\n"; is $@, ''; done_testing; Text-Xslate-3.4.0/t/900_bugs/031_yappo.t0000644000175000017500000000203413040006205016742 0ustar syoheisyohei#!perl # contributed by Yappo https://gist.github.com/4336310 use strict; use warnings; use Test::More; use Text::Xslate; { my $tx = Text::Xslate->new({ syntax => 'TTerse' }); is eval { $tx->render_string(<<'TMPL', { yappo => 'hoge' }); [% SET yappo = "" -%] [% IF true -%] [% yappo = 'osawa' -%] [% yappo -%] [% ELSIF 0 -%] [% END -%] TMPL }, "osawa"; is $@, ''; } { my $tx = Text::Xslate->new({ syntax => 'TTerse' }); is eval { $tx->render_string(<<'TMPL', { yappo => 'hoge' }); [% SET yappo = 'fuga' -%] [% IF true -%] [% yappo = 'seiidaishogun' -%] [% ELSIF false -%] [% yappo = 'osawa' -%] [% END -%] [% yappo -%] TMPL }, "seiidaishogun"; is $@, ''; } { my $tx = Text::Xslate->new({ syntax => 'TTerse' }); is eval { $tx->render_string(<<'TMPL', { yappo => 'hoge' }); [% IF true -%] [% yappo = 'seiidaishogun' -%] [% ELSIF false -%] [% yappo = 'osawa' -%] [% END -%] [% yappo -%] TMPL }, "hoge"; is $@, ''; } done_testing; Text-Xslate-3.4.0/t/900_bugs/003_frame_access.t0000644000175000017500000000142513040006205020227 0ustar syoheisyohei#!perl -w # recursive INCLUDE broke the stack frame use strict; use warnings; use Test::More; use Text::Xslate; my %vpath = ( main => <<'T', [% FOR entry IN entries -%] + [% entry.name %] [% INCLUDE 'entry' WITH entry = entry -%] [% END -%] T entry => <<'T', [% FOR child IN entry.next -%] - [% child.name %] [% INCLUDE 'entry' WITH entry = child ; -%] [% END -%] T ); my @entries = ( { name => 'hoge', next => [ { name => 'fuga' }, { name => 'foobar' } ] } ); my $tx = Text::Xslate->new( syntax => 'TTerse', cache => 0, path => \%vpath ); ok $tx->render('entry', { entry => $entries[0] }); my $s = $tx->render('main', { entries => \@entries }); note $s; ok $s; like $s, qr/hoge/; like $s, qr/fuga/; like $s, qr/foobar/; done_testing; Text-Xslate-3.4.0/t/900_bugs/015_my_scope.t0000644000175000017500000000037513040006205017440 0ustar syoheisyohei#!perl use strict; use Test::More; use Text::Xslate; my $tx = Text::Xslate->new(); # for strings my $template = <<'T'; : my $foo = 'Hello, world!'; : for [1] -> $i { : $foo : } T is $tx->render_string($template), 'Hello, world!'; done_testing; Text-Xslate-3.4.0/t/900_bugs/issue79/0000755000175000017500000000000013040325435016364 5ustar syoheisyoheiText-Xslate-3.4.0/t/900_bugs/issue79/tmpl/0000755000175000017500000000000013040325435017340 5ustar syoheisyoheiText-Xslate-3.4.0/t/900_bugs/issue79/tmpl/contentB.tt0000644000175000017500000000006013040325421021454 0ustar syoheisyohei[% WRAPPER 'wrapperB.tt' %] CONTENT B [% END %] Text-Xslate-3.4.0/t/900_bugs/issue79/tmpl/wrapperA.tt0000644000175000017500000000006013040006205021455 0ustar syoheisyoheiBEGIN WRAPPER A { [% content %] } END WRAPPER A Text-Xslate-3.4.0/t/900_bugs/issue79/tmpl/contentA.tt0000644000175000017500000000006013040325421021453 0ustar syoheisyohei[% WRAPPER 'wrapperB.tt' %] CONTENT A [% END %] Text-Xslate-3.4.0/t/900_bugs/issue79/tmpl/wrapperB.tt0000644000175000017500000000012613040006205021461 0ustar syoheisyohei[% WRAPPER 'wrapperA.tt' %] BEGIN WRAPPER B { [% content %] } END WRAPPER B [% END %] Text-Xslate-3.4.0/t/900_bugs/issue79/xslate.pl0000644000175000017500000000052613040006205020213 0ustar syoheisyohei#!/usr/bin/env perl use strict; use warnings; use Text::Xslate; use FindBin qw($Bin); my $xslate = Text::Xslate->new({ syntax => 'TTerse', path => "$Bin/tmpl", cache_dir => "$Bin/cache", }); my @tmpls = qw/ contentA.tt contentB.tt /; for my $tmpl (@tmpls) { print "\@\@$tmpl\n"; print $xslate->render($tmpl); } Text-Xslate-3.4.0/t/900_bugs/027_issue65.t0000644000175000017500000000436213040006205017130 0ustar syoheisyohei#!perl use strict; use warnings; use Test::More; use Text::Xslate; BEGIN { package Text::Xslate::Syntax::Custom; use Mouse; extends 'Text::Xslate::Parser'; sub init_symbols { my $self = shift; $self->SUPER::init_symbols(@_); $self->symbol('vars')->set_nud($self->can('nud_vars')); $self->symbol('localize')->set_std($self->can('std_localize')); } sub nud_vars { my $self = shift; my ($symbol) = @_; return $symbol->clone(arity => 'vars'), } sub std_localize { my $self = shift; my ($symbol) = @_; my $name = $self->expression(0); $self->advance('{'); my $body = $self->statements; $self->advance('}'); return $symbol->clone( arity => 'block', first => [ $name->clone ], second => $body, ), } package Text::Xslate::Compiler::Custom; use Mouse; extends 'Text::Xslate::Compiler'; sub _generate_block { my $self = shift; my ($node) = @_; my @compiled = map { $self->compile_ast($_) } @{ $node->second }; unshift @compiled, $self->_localize_vars($node->first); return @compiled; } package Text::Xslate::Custom; use base 'Text::Xslate'; sub options { my $class = shift; my $options = $class->SUPER::options(@_); $options->{compiler} = 'Text::Xslate::Compiler::Custom'; $options->{syntax} = 'Custom'; return $options; } sub _register_builtin_methods { my $self = shift; my ($funcs) = @_; Scalar::Util::weaken(my $weakself = $self); $funcs->{include_uc} = sub { my ($file, $vars) = @_; my $result = $weakself->render($file, $vars); return uc($result); }; $self->SUPER::_register_builtin_methods(@_); } } my $vars = { a => "foo", b => [ { a => "bar", b => [], }, ], }; my $foo = <<'FOO'; : $a; : for $b -> $i { : localize $i { : include_uc("foo", vars); : } : } FOO my $tx = Text::Xslate::Custom->new( cache => 0, path => [{ foo => $foo }], ); is($tx->render('foo', $vars), 'fooBAR'); done_testing; Text-Xslate-3.4.0/t/900_bugs/018_lvar_in_macro.pl0000644000175000017500000000056013040006205020604 0ustar syoheisyohei# This code caused SEGV in Perl 5.12 by Xslate 1.5 use strict; use warnings; use Test::More; use Text::Xslate; my $engine = Text::Xslate->new( 'syntax' => 'TTerse', ); $engine->render_string( <<'...') ; [% kogaidan = kogaidan -%] [% tomyhero = dankogai %] [% MACRO satoshi BLOCK %] [% tomyhero # caused SEGV %] [% END %] [% satoshi() %] ... pass; done_testing; Text-Xslate-3.4.0/t/900_bugs/014_too_large_int.t0000644000175000017500000000045213040006205020442 0ustar syoheisyohei#!perl -w use strict; use Test::More; use Text::Xslate; my $tx = Text::Xslate->new(); is $tx->render_string(': "10" x 100'), "10" x 100; is $tx->render_string(': "1000000000000000000000000000" '), "1000000000000000000000000000"; done_testing; Text-Xslate-3.4.0/t/900_bugs/035_issue81_tiedhash.t0000644000175000017500000000050013040006205020764 0ustar syoheisyohei#!perl -w use strict; use warnings; use Test::More; use Text::Xslate; use Tie::Hash; tie my %vars, 'Tie::StdHash'; %vars = ( bar => 'Hello', ); my $tx = Text::Xslate->new(cache => 0); my $out = $tx->render_string( '<: $foo.bar ~ ", world!" :>', { foo => \%vars }); is $out, "Hello, world!"; done_testing; Text-Xslate-3.4.0/t/900_bugs/017_unallocated.t0000644000175000017500000000441013040006205020111 0ustar syoheisyohei#!perl use strict; use warnings; use Test::More skip_all => 'not yet'; use Test::Requires qw(Data::Section::Simple); use List::Util (); use Text::Xslate; { package C; use strict; use warnings; sub new { my ($class) = @_; return bless { }, $class; } sub uri_for { my ($self, $path) = @_; return 'http://example.com' . $path; } sub in_production { 1 } } my $tx = Text::Xslate->new( cache => 0, path => Data::Section::Simple->new->get_data_section, function => { array => sub { return List::Util::reduce { return $a unless $b; push @$a, ref $b && ref $b eq 'ARRAY' ? @$b : $b; $a; } [], @_; }, is_array => sub { my ($obj) = @_; return ref $obj && ref $obj eq 'ARRAY'; }, }, ); ok $tx->render('index.html', { c => C->new, }); done_testing; __DATA__ @@ _tx/macros.tx :# common macros : macro css_tag -> $css { : } : macro script_tag -> $js { : if is_array($js) { : } else { : } : } @@ _tx/wrapper/base.tx : cascade with _tx::macros <: block title { :>title<: } :> : for $css -> $i { css_tag($i) } : for $js -> $i { script_tag($i) } : block body { } @@ _tx/wrapper.tx : my $jquery = 'https://ajax.googleapis.com/ajax/libs/jquery/1.6.2/jquery' ~ ($c.in_production ? '.min' : '') ~ '.js'; : cascade _tx::wrapper::base { :# js => [$jquery, [$c.uri_for('/js/site.js'), { charset => 'utf-8' }], @$js], : js => array( : $jquery, : [[$c.uri_for('/js/site.js'), { charset => 'utf-8' }]], : $js), :# css => [$c.uri_for('/css/site.css'), @$css], : css => array( : $c.uri_for('/css/site.css'), $css), : } : around body {

title

: block content { } : } @@ index.html : cascade _tx::wrapper { : js => [ ], : css => [ ], : } : around content { content : } Text-Xslate-3.4.0/t/900_bugs/016_x_in_tterse.t0000644000175000017500000000046613040006205020147 0ustar syoheisyohei#!perl -w use strict; use Test::More; use Text::Xslate; my $tt = Text::Xslate->new( syntax => 'TTerse', cache => 0, ); is $tt->render_string(<<'T'), "- 42\n"; %% foreach x in [42] - [% x %] %% end T is $tt->render_string(<<'T'), "- 42\n"; %% foreach in in [42] - [% in %] %% end T done_testing; Text-Xslate-3.4.0/t/900_bugs/042_perl59_issue.t0000644000175000017500000000050313040006205020143 0ustar syoheisyohei#!perl # https://github.com/xslate/p5-Text-Xslate/issues/105 use strict; use warnings; use utf8; use Test::More 0.96; # This code cause segmentation fault on Perl 5.19.[79]. use Text::Xslate; my $xslate = Text::Xslate->new(); $xslate->render_string(<<'...'); : '/' ~ uri('a') : for 3 -> $n { } ... pass; done_testing; Text-Xslate-3.4.0/t/900_bugs/039_issue96.t0000644000175000017500000000042513040006205017133 0ustar syoheisyohei#!perl use strict; use warnings; use Test::More; use Text::Xslate::Syntax::Kolon; { my $content = <<'T'; : cascade bar { : hoge => 'fuga' : } T my $parser = Text::Xslate::Syntax::Kolon->new(); local $/; $parser->parse($content); } pass; done_testing; Text-Xslate-3.4.0/t/900_bugs/020_switch_foo.t0000644000175000017500000000051313040006205017754 0ustar syoheisyohei#!perl # http://twitter.com/#!/ryochin/status/137041211054768128 use strict; use Test::More; use Text::Xslate; my $tx = Text::Xslate->new( syntax => 'TTerse', cache => 0, ); eval { $tx->render_string(<<'T'); %% if T }; ok $@; eval { $tx->render_string(<<'T'); %% switch.foo T }; ok $@; done_testing; Text-Xslate-3.4.0/t/900_bugs/045_issue130.t0000644000175000017500000000062613040006205017200 0ustar syoheisyoheiuse strict; use warnings; use Test::More; use Text::Xslate; my $tx = Text::Xslate->new( path => { 'body.tx' => ': block body | reverse -> { include text }', 'text.tx' => 'Text::Xslate', }, function => { reverse => sub { scalar reverse $_[0]; }, }, ); { my $warnings = ''; is($tx->render('body.tx'), 'etalsX::txeT'); is($warnings, ''); } done_testing; Text-Xslate-3.4.0/t/900_bugs/012_ltgt_in_comments.t0000644000175000017500000000037013040006205021157 0ustar syoheisyohei#!perl -w use strict; use Test::More; use Text::Xslate; my $tx = Text::Xslate->new(); local $TODO = 'not yet fixed'; ok eval { $tx->render_string(<<'T', { text => 'foo' }); <: $text :>!! :# > T }; is $@, ''; done_testing; Text-Xslate-3.4.0/t/900_bugs/038_conbine_flaged_utf8_and_other.t0000755000175000017500000000175213040006205023542 0ustar syoheisyohei#!perl use strict; use warnings; BEGIN{ # $ENV{XSLATE} = ' dump=ast '; # @@@ @@@ } use Text::Xslate; use Test::More; use File::Temp qw(tempdir); my %vpath = ( ascii => "ã‚<: foo('i') :>ã†", utf => "ã‚<: foo('ã„') :>ã†", ); my $tmpdir = tempdir(DIR => ".", CLEANUP => 1); my %opts = ( path => \%vpath, cache => 1, cache_dir => $tmpdir, type => 'html', # enable auto escape input_layer => ':bytes', function => { foo => sub { my $s = shift; # warn "[$s][", (utf8::is_utf8($s) ? 'utf' : 'binary'), "]\n"; Text::Xslate::mark_raw($s); }, }, ); my $tx = Text::Xslate->new(\%opts); foreach my $type ('original', 'cached'){ my $tx = Text::Xslate->new(%opts); foreach my $try (1, 2){ is($tx->render('ascii'), q{ã‚iã†}, "$type $try ascii"); is($tx->render('utf'), q{ã‚ã„ã†}, "$type $try utf"); } } $tmpdir = tempdir(DIR => ".", CLEANUP => 1); done_testing; Text-Xslate-3.4.0/t/900_bugs/007_uuv.t0000644000175000017500000000112013040006205016427 0ustar syoheisyohei#!perl #https://github.com/gfx/p5-Text-Xslate/issues/issue/28 use strict; use warnings; use utf8; use Text::Xslate; use if exists $INC{'Text/Xslate/PP.pm'}, 'Test::More', skip_all => 'NYI in PP'; use Test::More; my @warnings; my $xslate = Text::Xslate->new( syntax => 'TTerse', warn_handler => sub { push @warnings, @_ }, verbose => 2, ); $xslate->render_string('[% IF others.size() > 0 %][% END %]', {}); note @warnings; like "@warnings", qr/\b nil \b/xms; like "@warnings", qr/\b lhs \b/xms; unlike "@warnings", qr/Use of uninitialized value/; done_testing; Text-Xslate-3.4.0/t/900_bugs/048_issue172.t0000644000175000017500000000111013040006212017174 0ustar syoheisyoheiuse strict; use warnings; use Test::Requires qw(Data::Section::Simple); use Text::Xslate; use Text::Xslate::Util; use Test::More; my $vpath = Data::Section::Simple->new()->get_data_section(); my $vars = { foo => 'hoge', bar => 'fuga' }; my $xslate = Text::Xslate->new(path => [$vpath]); my $tied = Text::Xslate::Util::hash_with_default($vars, sub { "FILL @_" }); my $got = $xslate->render('base.tx', $tied); is($got, "foo:hoge, bar:fuga\n", "localize tied hash"); done_testing; __DATA__ @@ base.tx :include _partial { foo => $foo } @@ _partial.tx foo:<: $foo :>, bar:<: $bar :> Text-Xslate-3.4.0/t/900_bugs/046_issue156.t0000644000175000017500000000064513040006205017212 0ustar syoheisyoheiuse strict; use warnings; use Test::More; use Text::Xslate; my $base = <<'EOF'; : if 0 { : my $var = [ ]; : } : for ['default'] -> $t { : } : block content -> { } Good EOF my $xslate1 = Text::Xslate->new( path => { 'base.tx' => $base, 'page.tx' => q{: cascade "base.tx"}, }, warn_handler => sub { die @_ }, ); my $res1 = $xslate1->render('page.tx', { }); is $res1, "Good\n"; done_testing; Text-Xslate-3.4.0/t/900_bugs/044_empty_result.t0000644000175000017500000000035413040006205020355 0ustar syoheisyohei#!perl # https://github.com/xslate/p5-Text-Xslate/issues/111 use strict; use warnings; use Test::More; use Text::Xslate; my $tx = Text::Xslate->new(); is($tx->render_string('1'), '1'); is($tx->render_string('0'), '0'); done_testing; Text-Xslate-3.4.0/t/900_bugs/026_issue61.t0000644000175000017500000000254013040006205017117 0ustar syoheisyohei#!perl # https://github.com/xslate/p5-Text-Xslate/issues/61 use strict; use warnings; use Fatal qw(open close); use Test::More; use File::Temp qw(tempdir); use File::Spec (); use Text::Xslate; # problems on depend cache # # 1. main.tx cascade to base.tx # 2. mtime of main.tx is 12:00 # 3. mtime of base.tx is 12:01(newer than main.tx) # 4. render main.tx # 5. render main.tx again, but don't use cache { package MyXslate; use parent qw(Text::Xslate); sub _load_source { my ($self, $fi) = @_; my $fullpath = $fi->{fullpath}; $self->{_load_source_count}{$fullpath}++; $self->SUPER::_load_source($fi); } } my $content_main = <<'T'; : cascade base T my $content_base = <<'T'; I am base T { my $service = tempdir(CLEANUP => 1); my $tx = MyXslate->new( cache_dir => "$service/cache", path => [$service], ); write_file("$service/main.tx", $content_main); sleep 2; # time goes write_file("$service/base.tx", $content_base); is $tx->render("main.tx"), $content_base; is $tx->render("main.tx"), $content_base; my $path = File::Spec->catfile($service, "main.tx"); is $tx->{_load_source_count}{$path} => 1; } done_testing; exit; sub write_file { my($file, $content) = @_; open my($fh), ">", $file; print $fh $content; close $fh; return; } Text-Xslate-3.4.0/t/900_bugs/010_widechar_for_md5.t0000644000175000017500000000154113040006205021012 0ustar syoheisyohei#!perl # reported by @kazeuro # http://twitter.com/#!/kazeburo/status/55456855496994816 use strict; use warnings; use utf8; use Text::Xslate; use Encode qw(encode_utf8); use Test::More tests => 5; use t::lib::Util qw(path); eval { local $SIG{__WARN__} = sub { die @_ }; my $templates = { 'index' => encode_utf8(<<'EOF'), ã»ã’<: $bar :> EOF }; my $tx = Text::Xslate->new( path => [ $templates ], cache_dir => path, ); ok $tx->render('index', { bar => 'ãµãŒ' } ), '1-1'; ok $tx->render('index', { bar => 'ãµãŒ' } ), '1-2'; $tx = Text::Xslate->new( path => [ $templates ], cache_dir => path, ); ok $tx->render('index', { bar => 'ãµãŒ' } ), '2-1'; ok $tx->render('index', { bar => 'ãµãŒ' } ), '2-2'; }; my $w = $@; is $w, '' or diag $w; done_testing; Text-Xslate-3.4.0/t/900_bugs/024_use_cache.t0000644000175000017500000000556613040006205017550 0ustar syoheisyohei#!perl # https://gist.github.com/163168668d6a6418227a # reported by woremacx # modified by gfx use strict; use warnings; use Test::More; use File::Path; use t::lib::Util (); use Fatal qw(open close); use Text::Xslate; my @read_files; { package My::Xslate; our @ISA = qw(Text::Xslate); sub slurp_template { my($self, $input_layer, $file) = @_; push @read_files, $file; return $self->SUPER::slurp_template($input_layer, $file); } } my $cache_dir = t::lib::Util::cache_dir; my $tmplpath = "t/macrotmpl"; END{ rmtree($tmplpath); rmtree($cache_dir); } mkpath("$tmplpath/includes"); open my $fh, "> $tmplpath/hello.tt"; print $fh q{[% hello() %]}; close $fh; open my $fh2, "> $tmplpath/includes/macro.inc"; print $fh2 q{[%- MACRO hello() BLOCK -%]hello, world[%- END -%]}; close $fh2; open my $fh3, "> $tmplpath/hello2.tt"; print $fh3 q{hello, }; close $fh3; open my $fh4, "> $tmplpath/footer.inc"; print $fh4 q{world}; close $fh4; my $t = time() - 7200; my $t2 = time() - 3600; my $t3 = time() - 1800; utime($t, $t, "$tmplpath/hello.tt"); utime($t2, $t2, "$tmplpath/includes/macro.inc"); utime($t, $t, "$tmplpath/hello2.tt"); utime($t3, $t3, "$tmplpath/includes/footer.inc"); { rmtree($cache_dir); my $tx_macro = My::Xslate->new( macro => [ 'macro.inc' ], syntax => 'TTerse', path => [ "$tmplpath/includes", $tmplpath ], cache_dir => $cache_dir, cache => 1, verbose => 1, ); @read_files = (); is($tx_macro->render('hello.tt'), "hello, world"); is(scalar(@read_files), 2, 'file read in the first time'); @read_files = (); is($tx_macro->render('hello.tt'), "hello, world"); is(scalar(@read_files), 0, 'no file read because cache is fresh enough'); } { rmtree($cache_dir); my $tx_header = My::Xslate->new( header => [ 'macro.inc' ], syntax => 'TTerse', path => [ "$tmplpath/includes", $tmplpath ], cache_dir => $cache_dir, cache => 1, verbose => 1, ); @read_files = (); is($tx_header->render('hello.tt'), "hello, world"); is(scalar(@read_files), 2, 'file read in the first time'); @read_files = (); is($tx_header->render('hello.tt'), "hello, world"); is(scalar(@read_files), 0, 'no file read because cache is fresh enough'); } { rmtree($cache_dir); my $tx_footer = My::Xslate->new( footer => [ 'footer.inc' ], syntax => 'TTerse', path => [ "$tmplpath/includes", $tmplpath ], cache_dir => $cache_dir, cache => 1, verbose => 1, ); @read_files = (); is($tx_footer->render('hello2.tt'), "hello, world"); is(scalar(@read_files), 2, 'file read in the first time'); @read_files = (); is($tx_footer->render('hello2.tt'), "hello, world"); is(scalar(@read_files), 0, 'no file read because cache is fresh enough'); } done_testing; Text-Xslate-3.4.0/t/900_bugs/022_empty_if_block.t0000644000175000017500000000126613040006205020606 0ustar syoheisyohei#!perl use strict; use warnings; use Test::More; use Text::Xslate; my %vpath = ( simple_if => <<'T', %% IF hoge %% ELSE; %% IF fuga %% ELSE %% END %% END hi T declare_if => <<'T', [% IF hoge %] [% ELSE %] [% IF fuga %] [% ELSE %] [% END %] [% SET hoge = fuga %] [% END %] hi T problem_case => <<'T', %% IF hogex %% ELSE; %% IF fugax %% ELSE %% END %% SET hogex = fugax; %% END hi T ); my $xslate = Text::Xslate->new( syntax => 'TTerse', path => \%vpath, cache => 0, ); ok $xslate->render('simple_if'), 'simple_if'; ok $xslate->render('declare_if'), 'declare_if'; ok $xslate->render('problem_case'), 'problem_case'; done_testing; Text-Xslate-3.4.0/t/900_bugs/021_cached_enc.t0000644000175000017500000000255713040006205017657 0ustar syoheisyohei#!perl # there were mojibake when caches were used use strict; use warnings; use Text::Xslate; #use if !Text::Xslate->USE_XS, # 'Test::More', skip_all => 'PP impl differs from XS impl'; use Test::More; use File::Temp qw(tempdir); use Encode qw(decode); binmode $_, 'utf8' for \*STDOUT, \*STDERR, Test::More->builder->output, Test::More->builder->failure_output, Test::More->builder->todo_output; sub d { return decode('utf8', shift); } my %vpath = ( 'layout.tx' => d(<<'T'),

: block content -> {}

T foo => d(<<'T'), : cascade layout; : around content -> { <: $bar :> : } T ); my $tmpdir = tempdir(DIR => ".", CLEANUP => 1); my %opts = ( path => \%vpath, cache => 1, cache_dir => $tmpdir, ); my %vars = ( bar => ('ã“ã‚“ã«ã¡ã¯'), ); my $expected = d(<<'T');

ã“ã‚“ã«ã¡ã¯

T note 'utf-8 encoded bytes'; foreach my $i(1 .. 2) { my $tx = Text::Xslate->new(\%opts); for my $j(1 .. 2) { is $tx->render(foo => \%vars), $expected, "process $i, render $j"; } } $tmpdir = tempdir(DIR => ".", CLEANUP => 1); note 'text string'; utf8::decode($vars{bar}); foreach my $i(1 .. 2) { my $tx = Text::Xslate->new(\%opts); for my $j(1 .. 2) { is $tx->render(foo => \%vars), $expected, "process $i, render $j"; } } undef $tmpdir; done_testing; Text-Xslate-3.4.0/t/900_bugs/037_text_str_key.t0000644000175000017500000000053713040006205020352 0ustar syoheisyoheiuse strict; use warnings; use utf8; use Test::More; use Text::Xslate; my $tx = Text::Xslate->new( cache => 0, ); is $tx->render_string(<<'T'), 10; : my $h = { "ã“ã‚“ã«ã¡ã¯" => 10}; := $h["ã“ã‚“ã«ã¡ã¯"] T is $tx->render_string(<<'T', { key => "ã“ã‚“ã«ã¡ã¯"}), 10; : my $h = { "ã“ã‚“ã«ã¡ã¯" => 10}; := $h[$key] T done_testing; Text-Xslate-3.4.0/t/900_bugs/002_addfunc.t0000644000175000017500000000124513040006205017217 0ustar syoheisyohei#!perl -w use strict; use warnings; use Test::More; use File::Path qw(rmtree); use constant CACHE => '.900-02'; use Text::Xslate; my %vpath = ( 'foo.tx' => <<'T', %% foo() T ); BEGIN { rmtree(CACHE); mkdir(CACHE); } END { rmtree(CACHE) } { my $tx = Text::Xslate->new( syntax => 'TTerse', path => \%vpath, cache_dir => CACHE, verbose => 0, ); is $tx->render('foo.tx'), ''; } { my $tx = Text::Xslate->new( syntax => 'TTerse', path => \%vpath, cache_dir => CACHE, verbose => 0, function => { foo => sub { 'OK' } }, ); is $tx->render('foo.tx'), 'OK'; } done_testing; Text-Xslate-3.4.0/xt/0000755000175000017500000000000013040325435013714 5ustar syoheisyoheiText-Xslate-3.4.0/xt/04_synopsis.t0000644000175000017500000000032513040006205016262 0ustar syoheisyohei#!perl use strict; use Test::More; eval q{use Test::Synopsis}; plan skip_all => 'Test::Synopsis required for testing' if $@; local $SIG{__WARN__} = sub { warn @_ if $_[0] !~ /redefined/; }; all_synopsis_ok(); Text-Xslate-3.4.0/xt/101_eg_psgi.t0000644000175000017500000000270313040006205016070 0ustar syoheisyohei#!perl -w # test example/*.psgi use strict; use Test::More; use Test::Requires qw( Data::Section::Simple HTML::FillInForm HTML::FillInForm::Lite HTML::Shakan URI::Find Mojolicious MojoX::Renderer::Xslate JavaScript::Value::Escape Locale::Maketext::Lexicon Data::Localize File::Which Amon2::Lite Catalyst::View::Xslate ); use HTTP::Request::Common; use Plack::Test; use Plack::Util; use File::Path qw(rmtree); use t::lib::Util; rmtree(cache_dir); END{ rmtree(cache_dir) } # supress debug log local $ENV{MOJO_MODE} = 'production'; local $ENV{PLACK_ENV} = 'production'; EXAMPLE: while(defined(my $example = )) { note $example; my $expect = do { my $gold = $example . '.gold'; -e $gold or note("skip $example because it has no $gold"), next; open my $g, '<', $gold or die "Cannot open '$gold' for reading: $!"; local $/; <$g>; }; my $app = Plack::Util::load_psgi($example); if($@) { fail "Error on loading $example: $@"; next EXAMPLE; } foreach(1 .. 2) { test_psgi app => $app, client => sub { my $cb = shift; my $req = GET "http://localhost/hello" ."?name=foo&email=bar%40example.com"; my $res = $cb->($req); is $res->content, $expect; }, ; } } done_testing; Text-Xslate-3.4.0/xt/01_podspell.t0000644000175000017500000000171713040006205016220 0ustar syoheisyohei#!perl -w use strict; use Test::More; eval q{ use Test::Spellunker }; plan skip_all => q{Test::Spellunker are not available.} if $@; add_stopwords(map { split /[\s\:\-]/ } ); all_pod_files_spelling_ok('lib'); __DATA__ Text::Xslate xslate todo str Opcode cpan render Kolon Metakolon TTerse syntaxes pre namespaces plugins html acknowledgement iff EscapedString sandboxing APIs runtime autoboxing backend TT adaptor overridable inline Toolkit's FillInForm uri CLI PSGI XSS Mojo SCALARs namespace CGI xml RT XS Exportable Misc callback callbacks RFC colorize Pre IRC irc org WAF WAFs JavaScript fallbacks UTF preforking github Mojolicious HTMLTemplate blog # personal name lestrrat tokuhirom gardejo jjn Goro Fuji gfx Douglas Crockford makamaka Hannyaharamitu Maki Daisuke typester clouder punytan chiba turugina hirose kane taka cho shmorimo ueda parens opcodes ing vs metacharacters metacharacters expressionsi name-coderef cb cb render render_string tx newlines Text-Xslate-3.4.0/xt/05_vars.t0000644000175000017500000000022713040006205015350 0ustar syoheisyohei#!perl -w use strict; use Test::More; use Test::Requires qw(Test::Vars); all_vars_ok( ignore_vars => [qw($parser $symbol $)], ); done_testing; Text-Xslate-3.4.0/xt/100_eg_pl.t0000644000175000017500000000263013040006205015537 0ustar syoheisyohei#!perl -w # test example/*.pl use strict; use Test::More; use Test::Requires qw( Data::Section::Simple HTML::FillInForm HTML::FillInForm::Lite HTML::Shakan URI::Find Mojolicious MojoX::Renderer::Xslate JavaScript::Value::Escape Locale::Maketext::Lexicon Data::Localize File::Which Amon2::Lite Catalyst::View::Xslate ); use IPC::Run qw(run timeout); use File::Path qw(rmtree); use Config; use t::lib::Util; rmtree(cache_dir); END{ rmtree(cache_dir) } $ENV{PERL5LIB} = join $Config{path_sep}, @INC; sub perl { # We cannot use IPC::Open3 simply. # See also http://d.hatena.ne.jp/kazuhooku/20100813/1281690025 run [ $^X, @_ ], \my $in, \my $out, \my $err, timeout(5); foreach my $s($out, $err) { # for Win32 $s =~ s/\r\n/\n/g; } return($out, $err); } EXAMPLE: while(defined(my $example = )) { my $expect = do { my $gold = $example . '.gold'; -e $gold or note("skip $example because it has no $gold"), next; open my $g, '<', $gold or die "Cannot open '$gold' for reading: $!"; local $/; <$g>; }; foreach(1 .. 2) { my($out, $err) = perl($example); if($err) { fail("Error on $example because: $err"); next EXAMPLE; } is $out, $expect, $example . " ($_)"; is $err, '', 'no errors'; } } done_testing; Text-Xslate-3.4.0/xt/200_depended.t0000644000175000017500000000102713040006205016221 0ustar syoheisyohei#!perl -w use strict; use Test::More; use File::Path qw(rmtree); use File::Which qw(which); use constant LDIR => '.test_deps'; BEGIN{ rmtree(LDIR) } END { rmtree(LDIR) } my @opts = qw(-q --reinstall); if(!scalar grep { $_ eq '--install' } @ARGV) { push @opts, '-l', LDIR; } my $cpanm = which('cpanm') or plan skip_all => 'no cpanm'; my @modules = qw( Text::Xslate::Bridge::TT2Like Catalyst::View::Xslate ); foreach my $mod(@modules) { note $mod; is system($^X, $cpanm, @opts, $mod), 0, $mod; } done_testing; Text-Xslate-3.4.0/xt/02_pod.t0000644000175000017500000000023413040006205015152 0ustar syoheisyohei#!perl -w use strict; use Test::More; eval q{use Test::Pod 1.14}; plan skip_all => 'Test::Pod 1.14 required for testing PODU' if $@; all_pod_files_ok(); Text-Xslate-3.4.0/xt/03_pod-coverage.t0000644000175000017500000000037713040006205016754 0ustar syoheisyohei#!perl -w use Test::More; eval q{use Test::Pod::Coverage 1.04}; plan skip_all => '(todo)'; plan skip_all => 'Test::Pod::Coverage 1.04 required for testing POD coverage' if $@; all_pod_coverage_ok({ also_private => [qw(unimport BUILD DEMOLISH)], }); Text-Xslate-3.4.0/xslate_ops.h0000644000175000017500000005560313040325434015623 0ustar syoheisyohei/* This file is automatically generated by tool/opcode.PL. * ANY CHANGES WILL BE LOST! */ /* forward decl for Xslate opcodes */ TXC(noop); TXC(move_to_sb); TXC(move_from_sb); TXC_w_var(save_to_lvar); TXC_w_var(load_lvar); TXC_w_var(load_lvar_to_sb); TXC_w_key(localize_s); TXC(localize_vars); TXC(push); TXC(pushmark); TXC(nil); TXC_w_sv(literal); TXC_w_sviv(literal_i); TXC_w_key(fetch_s); /* fetch a field from the top */ TXC(fetch_field); /* fetch a field from a variable (bin operator) */ TXC_w_key(fetch_field_s); /* fetch a field from a variable (for literal) */ TXC(print); TXC(print_raw); TXC_w_sv(print_raw_s); TXC(include); TXC(find_file); TXC(suffix); TXC_w_var(for_start); TXC_goto(for_iter); TXC(add); TXC(sub); TXC(mul); TXC(div); TXC(mod); TXC_w_sv(concat); TXC_w_sv(repeat); TXC(bitor); TXC(bitand); TXC(bitxor); TXC(bitneg); TXC_goto(and); TXC_goto(dand); TXC_goto(or); TXC_goto(dor); TXC(not); TXC(minus); /* unary minus */ TXC(max_index); TXC(builtin_mark_raw); TXC(builtin_unmark_raw); TXC(builtin_uri_escape); TXC(builtin_is_array_ref); TXC(builtin_is_hash_ref); TXC(builtin_html_escape); TXC(is_code_ref); TXC(merge_hash); TXC(match); TXC(eq); TXC(ne); TXC(lt); TXC(le); TXC(gt); TXC(ge); TXC(ncmp); TXC(scmp); TXC(range); TXC_w_key(fetch_symbol); /* functions, macros, constants */ TXC(funcall); /* call a function or a macro */ TXC(macro_end); TXC_w_key(methodcall_s); TXC(make_array); TXC(make_hash); TXC(enter); TXC(leave); TXC_goto(goto); TXC(vars); TXC_w_sv(depend); /* tell the vm to dependent template files */ TXC_w_key(macro_begin); TXC_w_sviv(macro_nargs); TXC_w_sviv(macro_outer); TXC(set_opinfo); TXC(super); TXC(end); enum tx_opcode_t { TXOP_noop, /* 0 */ TXOP_move_to_sb, /* 1 */ TXOP_move_from_sb, /* 2 */ TXOP_save_to_lvar, /* 3 */ TXOP_load_lvar, /* 4 */ TXOP_load_lvar_to_sb, /* 5 */ TXOP_localize_s, /* 6 */ TXOP_localize_vars, /* 7 */ TXOP_push, /* 8 */ TXOP_pushmark, /* 9 */ TXOP_nil, /* 10 */ TXOP_literal, /* 11 */ TXOP_literal_i, /* 12 */ TXOP_fetch_s, /* 13 */ TXOP_fetch_field, /* 14 */ TXOP_fetch_field_s, /* 15 */ TXOP_print, /* 16 */ TXOP_print_raw, /* 17 */ TXOP_print_raw_s, /* 18 */ TXOP_include, /* 19 */ TXOP_find_file, /* 20 */ TXOP_suffix, /* 21 */ TXOP_for_start, /* 22 */ TXOP_for_iter, /* 23 */ TXOP_add, /* 24 */ TXOP_sub, /* 25 */ TXOP_mul, /* 26 */ TXOP_div, /* 27 */ TXOP_mod, /* 28 */ TXOP_concat, /* 29 */ TXOP_repeat, /* 30 */ TXOP_bitor, /* 31 */ TXOP_bitand, /* 32 */ TXOP_bitxor, /* 33 */ TXOP_bitneg, /* 34 */ TXOP_and, /* 35 */ TXOP_dand, /* 36 */ TXOP_or, /* 37 */ TXOP_dor, /* 38 */ TXOP_not, /* 39 */ TXOP_minus, /* 40 */ TXOP_max_index, /* 41 */ TXOP_builtin_mark_raw, /* 42 */ TXOP_builtin_unmark_raw, /* 43 */ TXOP_builtin_uri_escape, /* 44 */ TXOP_builtin_is_array_ref, /* 45 */ TXOP_builtin_is_hash_ref, /* 46 */ TXOP_builtin_html_escape, /* 47 */ TXOP_is_code_ref, /* 48 */ TXOP_merge_hash, /* 49 */ TXOP_match, /* 50 */ TXOP_eq, /* 51 */ TXOP_ne, /* 52 */ TXOP_lt, /* 53 */ TXOP_le, /* 54 */ TXOP_gt, /* 55 */ TXOP_ge, /* 56 */ TXOP_ncmp, /* 57 */ TXOP_scmp, /* 58 */ TXOP_range, /* 59 */ TXOP_fetch_symbol, /* 60 */ TXOP_funcall, /* 61 */ TXOP_macro_end, /* 62 */ TXOP_methodcall_s, /* 63 */ TXOP_make_array, /* 64 */ TXOP_make_hash, /* 65 */ TXOP_enter, /* 66 */ TXOP_leave, /* 67 */ TXOP_goto, /* 68 */ TXOP_vars, /* 69 */ TXOP_depend, /* 70 */ TXOP_macro_begin, /* 71 */ TXOP_macro_nargs, /* 72 */ TXOP_macro_outer, /* 73 */ TXOP_set_opinfo, /* 74 */ TXOP_super, /* 75 */ TXOP_end, /* 76 */ TXOP_last }; /* enum tx_opcode_t */ static const U8 tx_oparg[] = { 0U, /* noop */ 0U, /* move_to_sb */ 0U, /* move_from_sb */ TXCODE_W_VAR, /* save_to_lvar */ TXCODE_W_VAR, /* load_lvar */ TXCODE_W_VAR, /* load_lvar_to_sb */ TXCODE_W_KEY, /* localize_s */ 0U, /* localize_vars */ 0U, /* push */ 0U, /* pushmark */ 0U, /* nil */ TXCODE_W_SV, /* literal */ TXCODE_W_SVIV, /* literal_i */ TXCODE_W_KEY, /* fetch_s */ 0U, /* fetch_field */ TXCODE_W_KEY, /* fetch_field_s */ 0U, /* print */ 0U, /* print_raw */ TXCODE_W_SV, /* print_raw_s */ 0U, /* include */ 0U, /* find_file */ 0U, /* suffix */ TXCODE_W_VAR, /* for_start */ TXCODE_GOTO, /* for_iter */ 0U, /* add */ 0U, /* sub */ 0U, /* mul */ 0U, /* div */ 0U, /* mod */ TXCODE_W_SV, /* concat */ TXCODE_W_SV, /* repeat */ 0U, /* bitor */ 0U, /* bitand */ 0U, /* bitxor */ 0U, /* bitneg */ TXCODE_GOTO, /* and */ TXCODE_GOTO, /* dand */ TXCODE_GOTO, /* or */ TXCODE_GOTO, /* dor */ 0U, /* not */ 0U, /* minus */ 0U, /* max_index */ 0U, /* builtin_mark_raw */ 0U, /* builtin_unmark_raw */ 0U, /* builtin_uri_escape */ 0U, /* builtin_is_array_ref */ 0U, /* builtin_is_hash_ref */ 0U, /* builtin_html_escape */ 0U, /* is_code_ref */ 0U, /* merge_hash */ 0U, /* match */ 0U, /* eq */ 0U, /* ne */ 0U, /* lt */ 0U, /* le */ 0U, /* gt */ 0U, /* ge */ 0U, /* ncmp */ 0U, /* scmp */ 0U, /* range */ TXCODE_W_KEY, /* fetch_symbol */ 0U, /* funcall */ 0U, /* macro_end */ TXCODE_W_KEY, /* methodcall_s */ 0U, /* make_array */ 0U, /* make_hash */ 0U, /* enter */ 0U, /* leave */ TXCODE_GOTO, /* goto */ 0U, /* vars */ TXCODE_W_SV, /* depend */ TXCODE_W_KEY, /* macro_begin */ TXCODE_W_SVIV, /* macro_nargs */ TXCODE_W_SVIV, /* macro_outer */ 0U, /* set_opinfo */ 0U, /* super */ 0U, /* end */ }; /* tx_oparg[] */ static void tx_init_ops(pTHX_ HV* const ops) { (void)hv_stores(ops, STRINGIFY(noop), newSViv(TXOP_noop)); (void)hv_stores(ops, STRINGIFY(move_to_sb), newSViv(TXOP_move_to_sb)); (void)hv_stores(ops, STRINGIFY(move_from_sb), newSViv(TXOP_move_from_sb)); (void)hv_stores(ops, STRINGIFY(save_to_lvar), newSViv(TXOP_save_to_lvar)); (void)hv_stores(ops, STRINGIFY(load_lvar), newSViv(TXOP_load_lvar)); (void)hv_stores(ops, STRINGIFY(load_lvar_to_sb), newSViv(TXOP_load_lvar_to_sb)); (void)hv_stores(ops, STRINGIFY(localize_s), newSViv(TXOP_localize_s)); (void)hv_stores(ops, STRINGIFY(localize_vars), newSViv(TXOP_localize_vars)); (void)hv_stores(ops, STRINGIFY(push), newSViv(TXOP_push)); (void)hv_stores(ops, STRINGIFY(pushmark), newSViv(TXOP_pushmark)); (void)hv_stores(ops, STRINGIFY(nil), newSViv(TXOP_nil)); (void)hv_stores(ops, STRINGIFY(literal), newSViv(TXOP_literal)); (void)hv_stores(ops, STRINGIFY(literal_i), newSViv(TXOP_literal_i)); (void)hv_stores(ops, STRINGIFY(fetch_s), newSViv(TXOP_fetch_s)); (void)hv_stores(ops, STRINGIFY(fetch_field), newSViv(TXOP_fetch_field)); (void)hv_stores(ops, STRINGIFY(fetch_field_s), newSViv(TXOP_fetch_field_s)); (void)hv_stores(ops, STRINGIFY(print), newSViv(TXOP_print)); (void)hv_stores(ops, STRINGIFY(print_raw), newSViv(TXOP_print_raw)); (void)hv_stores(ops, STRINGIFY(print_raw_s), newSViv(TXOP_print_raw_s)); (void)hv_stores(ops, STRINGIFY(include), newSViv(TXOP_include)); (void)hv_stores(ops, STRINGIFY(find_file), newSViv(TXOP_find_file)); (void)hv_stores(ops, STRINGIFY(suffix), newSViv(TXOP_suffix)); (void)hv_stores(ops, STRINGIFY(for_start), newSViv(TXOP_for_start)); (void)hv_stores(ops, STRINGIFY(for_iter), newSViv(TXOP_for_iter)); (void)hv_stores(ops, STRINGIFY(add), newSViv(TXOP_add)); (void)hv_stores(ops, STRINGIFY(sub), newSViv(TXOP_sub)); (void)hv_stores(ops, STRINGIFY(mul), newSViv(TXOP_mul)); (void)hv_stores(ops, STRINGIFY(div), newSViv(TXOP_div)); (void)hv_stores(ops, STRINGIFY(mod), newSViv(TXOP_mod)); (void)hv_stores(ops, STRINGIFY(concat), newSViv(TXOP_concat)); (void)hv_stores(ops, STRINGIFY(repeat), newSViv(TXOP_repeat)); (void)hv_stores(ops, STRINGIFY(bitor), newSViv(TXOP_bitor)); (void)hv_stores(ops, STRINGIFY(bitand), newSViv(TXOP_bitand)); (void)hv_stores(ops, STRINGIFY(bitxor), newSViv(TXOP_bitxor)); (void)hv_stores(ops, STRINGIFY(bitneg), newSViv(TXOP_bitneg)); (void)hv_stores(ops, STRINGIFY(and), newSViv(TXOP_and)); (void)hv_stores(ops, STRINGIFY(dand), newSViv(TXOP_dand)); (void)hv_stores(ops, STRINGIFY(or), newSViv(TXOP_or)); (void)hv_stores(ops, STRINGIFY(dor), newSViv(TXOP_dor)); (void)hv_stores(ops, STRINGIFY(not), newSViv(TXOP_not)); (void)hv_stores(ops, STRINGIFY(minus), newSViv(TXOP_minus)); (void)hv_stores(ops, STRINGIFY(max_index), newSViv(TXOP_max_index)); (void)hv_stores(ops, STRINGIFY(builtin_mark_raw), newSViv(TXOP_builtin_mark_raw)); (void)hv_stores(ops, STRINGIFY(builtin_unmark_raw), newSViv(TXOP_builtin_unmark_raw)); (void)hv_stores(ops, STRINGIFY(builtin_uri_escape), newSViv(TXOP_builtin_uri_escape)); (void)hv_stores(ops, STRINGIFY(builtin_is_array_ref), newSViv(TXOP_builtin_is_array_ref)); (void)hv_stores(ops, STRINGIFY(builtin_is_hash_ref), newSViv(TXOP_builtin_is_hash_ref)); (void)hv_stores(ops, STRINGIFY(builtin_html_escape), newSViv(TXOP_builtin_html_escape)); (void)hv_stores(ops, STRINGIFY(is_code_ref), newSViv(TXOP_is_code_ref)); (void)hv_stores(ops, STRINGIFY(merge_hash), newSViv(TXOP_merge_hash)); (void)hv_stores(ops, STRINGIFY(match), newSViv(TXOP_match)); (void)hv_stores(ops, STRINGIFY(eq), newSViv(TXOP_eq)); (void)hv_stores(ops, STRINGIFY(ne), newSViv(TXOP_ne)); (void)hv_stores(ops, STRINGIFY(lt), newSViv(TXOP_lt)); (void)hv_stores(ops, STRINGIFY(le), newSViv(TXOP_le)); (void)hv_stores(ops, STRINGIFY(gt), newSViv(TXOP_gt)); (void)hv_stores(ops, STRINGIFY(ge), newSViv(TXOP_ge)); (void)hv_stores(ops, STRINGIFY(ncmp), newSViv(TXOP_ncmp)); (void)hv_stores(ops, STRINGIFY(scmp), newSViv(TXOP_scmp)); (void)hv_stores(ops, STRINGIFY(range), newSViv(TXOP_range)); (void)hv_stores(ops, STRINGIFY(fetch_symbol), newSViv(TXOP_fetch_symbol)); (void)hv_stores(ops, STRINGIFY(funcall), newSViv(TXOP_funcall)); (void)hv_stores(ops, STRINGIFY(macro_end), newSViv(TXOP_macro_end)); (void)hv_stores(ops, STRINGIFY(methodcall_s), newSViv(TXOP_methodcall_s)); (void)hv_stores(ops, STRINGIFY(make_array), newSViv(TXOP_make_array)); (void)hv_stores(ops, STRINGIFY(make_hash), newSViv(TXOP_make_hash)); (void)hv_stores(ops, STRINGIFY(enter), newSViv(TXOP_enter)); (void)hv_stores(ops, STRINGIFY(leave), newSViv(TXOP_leave)); (void)hv_stores(ops, STRINGIFY(goto), newSViv(TXOP_goto)); (void)hv_stores(ops, STRINGIFY(vars), newSViv(TXOP_vars)); (void)hv_stores(ops, STRINGIFY(depend), newSViv(TXOP_depend)); (void)hv_stores(ops, STRINGIFY(macro_begin), newSViv(TXOP_macro_begin)); (void)hv_stores(ops, STRINGIFY(macro_nargs), newSViv(TXOP_macro_nargs)); (void)hv_stores(ops, STRINGIFY(macro_outer), newSViv(TXOP_macro_outer)); (void)hv_stores(ops, STRINGIFY(set_opinfo), newSViv(TXOP_set_opinfo)); (void)hv_stores(ops, STRINGIFY(super), newSViv(TXOP_super)); (void)hv_stores(ops, STRINGIFY(end), newSViv(TXOP_end)); } /* tx_register_ops() */ #ifndef TX_DIRECT_THREADED_CODE #define dTX_optable dNOOP static const tx_exec_t tx_optable[] = { TXCODE_noop, TXCODE_move_to_sb, TXCODE_move_from_sb, TXCODE_save_to_lvar, TXCODE_load_lvar, TXCODE_load_lvar_to_sb, TXCODE_localize_s, TXCODE_localize_vars, TXCODE_push, TXCODE_pushmark, TXCODE_nil, TXCODE_literal, TXCODE_literal_i, TXCODE_fetch_s, TXCODE_fetch_field, TXCODE_fetch_field_s, TXCODE_print, TXCODE_print_raw, TXCODE_print_raw_s, TXCODE_include, TXCODE_find_file, TXCODE_suffix, TXCODE_for_start, TXCODE_for_iter, TXCODE_add, TXCODE_sub, TXCODE_mul, TXCODE_div, TXCODE_mod, TXCODE_concat, TXCODE_repeat, TXCODE_bitor, TXCODE_bitand, TXCODE_bitxor, TXCODE_bitneg, TXCODE_and, TXCODE_dand, TXCODE_or, TXCODE_dor, TXCODE_not, TXCODE_minus, TXCODE_max_index, TXCODE_builtin_mark_raw, TXCODE_builtin_unmark_raw, TXCODE_builtin_uri_escape, TXCODE_builtin_is_array_ref, TXCODE_builtin_is_hash_ref, TXCODE_builtin_html_escape, TXCODE_is_code_ref, TXCODE_merge_hash, TXCODE_match, TXCODE_eq, TXCODE_ne, TXCODE_lt, TXCODE_le, TXCODE_gt, TXCODE_ge, TXCODE_ncmp, TXCODE_scmp, TXCODE_range, TXCODE_fetch_symbol, TXCODE_funcall, TXCODE_macro_end, TXCODE_methodcall_s, TXCODE_make_array, TXCODE_make_hash, TXCODE_enter, TXCODE_leave, TXCODE_goto, TXCODE_vars, TXCODE_depend, TXCODE_macro_begin, TXCODE_macro_nargs, TXCODE_macro_outer, TXCODE_set_opinfo, TXCODE_super, TXCODE_end, NULL }; /* tx_optable[] */ #else /* TX_DIRECT_THREADED_CODE */ #define dTX_optable void const* const* const tx_optable \ = tx_runops(aTHX_ NULL) #define LABEL(x) CAT2(TX_DTC_, x) #define LABEL_PTR(x) &&LABEL(x) static void const* const* tx_runops(pTHX_ tx_state_t* const st) { static const void* const ops_address_table[] = { LABEL_PTR(noop), LABEL_PTR(move_to_sb), LABEL_PTR(move_from_sb), LABEL_PTR(save_to_lvar), LABEL_PTR(load_lvar), LABEL_PTR(load_lvar_to_sb), LABEL_PTR(localize_s), LABEL_PTR(localize_vars), LABEL_PTR(push), LABEL_PTR(pushmark), LABEL_PTR(nil), LABEL_PTR(literal), LABEL_PTR(literal_i), LABEL_PTR(fetch_s), LABEL_PTR(fetch_field), LABEL_PTR(fetch_field_s), LABEL_PTR(print), LABEL_PTR(print_raw), LABEL_PTR(print_raw_s), LABEL_PTR(include), LABEL_PTR(find_file), LABEL_PTR(suffix), LABEL_PTR(for_start), LABEL_PTR(for_iter), LABEL_PTR(add), LABEL_PTR(sub), LABEL_PTR(mul), LABEL_PTR(div), LABEL_PTR(mod), LABEL_PTR(concat), LABEL_PTR(repeat), LABEL_PTR(bitor), LABEL_PTR(bitand), LABEL_PTR(bitxor), LABEL_PTR(bitneg), LABEL_PTR(and), LABEL_PTR(dand), LABEL_PTR(or), LABEL_PTR(dor), LABEL_PTR(not), LABEL_PTR(minus), LABEL_PTR(max_index), LABEL_PTR(builtin_mark_raw), LABEL_PTR(builtin_unmark_raw), LABEL_PTR(builtin_uri_escape), LABEL_PTR(builtin_is_array_ref), LABEL_PTR(builtin_is_hash_ref), LABEL_PTR(builtin_html_escape), LABEL_PTR(is_code_ref), LABEL_PTR(merge_hash), LABEL_PTR(match), LABEL_PTR(eq), LABEL_PTR(ne), LABEL_PTR(lt), LABEL_PTR(le), LABEL_PTR(gt), LABEL_PTR(ge), LABEL_PTR(ncmp), LABEL_PTR(scmp), LABEL_PTR(range), LABEL_PTR(fetch_symbol), LABEL_PTR(funcall), LABEL_PTR(macro_end), LABEL_PTR(methodcall_s), LABEL_PTR(make_array), LABEL_PTR(make_hash), LABEL_PTR(enter), LABEL_PTR(leave), LABEL_PTR(goto), LABEL_PTR(vars), LABEL_PTR(depend), LABEL_PTR(macro_begin), LABEL_PTR(macro_nargs), LABEL_PTR(macro_outer), LABEL_PTR(set_opinfo), LABEL_PTR(super), LABEL_PTR(end) }; /* end of ops_address_table */ if(UNLIKELY(st == NULL)) { return ops_address_table; } goto *(st->pc->exec_code); /* start */ /* dispatch */ LABEL(noop ): TXCODE_noop (aTHX_ st); goto *(st->pc->exec_code); LABEL(move_to_sb ): TXCODE_move_to_sb (aTHX_ st); goto *(st->pc->exec_code); LABEL(move_from_sb ): TXCODE_move_from_sb (aTHX_ st); goto *(st->pc->exec_code); LABEL(save_to_lvar ): TXCODE_save_to_lvar (aTHX_ st); goto *(st->pc->exec_code); LABEL(load_lvar ): TXCODE_load_lvar (aTHX_ st); goto *(st->pc->exec_code); LABEL(load_lvar_to_sb ): TXCODE_load_lvar_to_sb (aTHX_ st); goto *(st->pc->exec_code); LABEL(localize_s ): TXCODE_localize_s (aTHX_ st); goto *(st->pc->exec_code); LABEL(localize_vars ): TXCODE_localize_vars (aTHX_ st); goto *(st->pc->exec_code); LABEL(push ): TXCODE_push (aTHX_ st); goto *(st->pc->exec_code); LABEL(pushmark ): TXCODE_pushmark (aTHX_ st); goto *(st->pc->exec_code); LABEL(nil ): TXCODE_nil (aTHX_ st); goto *(st->pc->exec_code); LABEL(literal ): TXCODE_literal (aTHX_ st); goto *(st->pc->exec_code); LABEL(literal_i ): TXCODE_literal_i (aTHX_ st); goto *(st->pc->exec_code); LABEL(fetch_s ): TXCODE_fetch_s (aTHX_ st); goto *(st->pc->exec_code); LABEL(fetch_field ): TXCODE_fetch_field (aTHX_ st); goto *(st->pc->exec_code); LABEL(fetch_field_s ): TXCODE_fetch_field_s (aTHX_ st); goto *(st->pc->exec_code); LABEL(print ): TXCODE_print (aTHX_ st); goto *(st->pc->exec_code); LABEL(print_raw ): TXCODE_print_raw (aTHX_ st); goto *(st->pc->exec_code); LABEL(print_raw_s ): TXCODE_print_raw_s (aTHX_ st); goto *(st->pc->exec_code); LABEL(include ): TXCODE_include (aTHX_ st); goto *(st->pc->exec_code); LABEL(find_file ): TXCODE_find_file (aTHX_ st); goto *(st->pc->exec_code); LABEL(suffix ): TXCODE_suffix (aTHX_ st); goto *(st->pc->exec_code); LABEL(for_start ): TXCODE_for_start (aTHX_ st); goto *(st->pc->exec_code); LABEL(for_iter ): TXCODE_for_iter (aTHX_ st); goto *(st->pc->exec_code); LABEL(add ): TXCODE_add (aTHX_ st); goto *(st->pc->exec_code); LABEL(sub ): TXCODE_sub (aTHX_ st); goto *(st->pc->exec_code); LABEL(mul ): TXCODE_mul (aTHX_ st); goto *(st->pc->exec_code); LABEL(div ): TXCODE_div (aTHX_ st); goto *(st->pc->exec_code); LABEL(mod ): TXCODE_mod (aTHX_ st); goto *(st->pc->exec_code); LABEL(concat ): TXCODE_concat (aTHX_ st); goto *(st->pc->exec_code); LABEL(repeat ): TXCODE_repeat (aTHX_ st); goto *(st->pc->exec_code); LABEL(bitor ): TXCODE_bitor (aTHX_ st); goto *(st->pc->exec_code); LABEL(bitand ): TXCODE_bitand (aTHX_ st); goto *(st->pc->exec_code); LABEL(bitxor ): TXCODE_bitxor (aTHX_ st); goto *(st->pc->exec_code); LABEL(bitneg ): TXCODE_bitneg (aTHX_ st); goto *(st->pc->exec_code); LABEL(and ): TXCODE_and (aTHX_ st); goto *(st->pc->exec_code); LABEL(dand ): TXCODE_dand (aTHX_ st); goto *(st->pc->exec_code); LABEL(or ): TXCODE_or (aTHX_ st); goto *(st->pc->exec_code); LABEL(dor ): TXCODE_dor (aTHX_ st); goto *(st->pc->exec_code); LABEL(not ): TXCODE_not (aTHX_ st); goto *(st->pc->exec_code); LABEL(minus ): TXCODE_minus (aTHX_ st); goto *(st->pc->exec_code); LABEL(max_index ): TXCODE_max_index (aTHX_ st); goto *(st->pc->exec_code); LABEL(builtin_mark_raw ): TXCODE_builtin_mark_raw (aTHX_ st); goto *(st->pc->exec_code); LABEL(builtin_unmark_raw ): TXCODE_builtin_unmark_raw (aTHX_ st); goto *(st->pc->exec_code); LABEL(builtin_uri_escape ): TXCODE_builtin_uri_escape (aTHX_ st); goto *(st->pc->exec_code); LABEL(builtin_is_array_ref): TXCODE_builtin_is_array_ref(aTHX_ st); goto *(st->pc->exec_code); LABEL(builtin_is_hash_ref ): TXCODE_builtin_is_hash_ref (aTHX_ st); goto *(st->pc->exec_code); LABEL(builtin_html_escape ): TXCODE_builtin_html_escape (aTHX_ st); goto *(st->pc->exec_code); LABEL(is_code_ref ): TXCODE_is_code_ref (aTHX_ st); goto *(st->pc->exec_code); LABEL(merge_hash ): TXCODE_merge_hash (aTHX_ st); goto *(st->pc->exec_code); LABEL(match ): TXCODE_match (aTHX_ st); goto *(st->pc->exec_code); LABEL(eq ): TXCODE_eq (aTHX_ st); goto *(st->pc->exec_code); LABEL(ne ): TXCODE_ne (aTHX_ st); goto *(st->pc->exec_code); LABEL(lt ): TXCODE_lt (aTHX_ st); goto *(st->pc->exec_code); LABEL(le ): TXCODE_le (aTHX_ st); goto *(st->pc->exec_code); LABEL(gt ): TXCODE_gt (aTHX_ st); goto *(st->pc->exec_code); LABEL(ge ): TXCODE_ge (aTHX_ st); goto *(st->pc->exec_code); LABEL(ncmp ): TXCODE_ncmp (aTHX_ st); goto *(st->pc->exec_code); LABEL(scmp ): TXCODE_scmp (aTHX_ st); goto *(st->pc->exec_code); LABEL(range ): TXCODE_range (aTHX_ st); goto *(st->pc->exec_code); LABEL(fetch_symbol ): TXCODE_fetch_symbol (aTHX_ st); goto *(st->pc->exec_code); LABEL(funcall ): TXCODE_funcall (aTHX_ st); goto *(st->pc->exec_code); LABEL(macro_end ): TXCODE_macro_end (aTHX_ st); goto *(st->pc->exec_code); LABEL(methodcall_s ): TXCODE_methodcall_s (aTHX_ st); goto *(st->pc->exec_code); LABEL(make_array ): TXCODE_make_array (aTHX_ st); goto *(st->pc->exec_code); LABEL(make_hash ): TXCODE_make_hash (aTHX_ st); goto *(st->pc->exec_code); LABEL(enter ): TXCODE_enter (aTHX_ st); goto *(st->pc->exec_code); LABEL(leave ): TXCODE_leave (aTHX_ st); goto *(st->pc->exec_code); LABEL(goto ): TXCODE_goto (aTHX_ st); goto *(st->pc->exec_code); LABEL(vars ): TXCODE_vars (aTHX_ st); goto *(st->pc->exec_code); LABEL(depend ): TXCODE_depend (aTHX_ st); goto *(st->pc->exec_code); LABEL(macro_begin ): TXCODE_macro_begin (aTHX_ st); goto *(st->pc->exec_code); LABEL(macro_nargs ): TXCODE_macro_nargs (aTHX_ st); goto *(st->pc->exec_code); LABEL(macro_outer ): TXCODE_macro_outer (aTHX_ st); goto *(st->pc->exec_code); LABEL(set_opinfo ): TXCODE_set_opinfo (aTHX_ st); goto *(st->pc->exec_code); LABEL(super ): TXCODE_super (aTHX_ st); goto *(st->pc->exec_code); LABEL(end): TXCODE_end(aTHX_ st); return NULL; } /* end of tx_runops() */ #undef LABEL #undef LABEL_PTR #endif /* TX_DIRECT_THREADED_CODE */ Text-Xslate-3.4.0/script/0000755000175000017500000000000013040325435014565 5ustar syoheisyoheiText-Xslate-3.4.0/script/xslate0000755000175000017500000000373613040006212016011 0ustar syoheisyohei#!/usr/local/bin/perl use strict; use Text::Xslate::Runner; my $app = Text::Xslate::Runner->new_from(@ARGV); $app->run( $app->targets ); __END__ =head1 NAME xslate - Process Xslate Templates =head1 USAGE # process paths $ xslate [options...] target -a --cache Cache level -t --type Output content type (html | xml | text) -E --engine Template engine -D --define Define template variables (e.g. foo=bar) -I --path Include paths --version Print version information --oe --output_encoding Output encoding (default: UTF-8) -M --module Modules templates will use (e.g. name=sub1,sub2) -e --eval One line of template code -s --syntax Template syntax (e.g. TTerse) -d --debug Debugging flags -x --suffix Output suffix mapping (e.g. tx=html) --ie --input_encoding Input encoding (default: UTF-8) -i --ignore Regular expression the process will ignore -c --cache_dir Directory the cache files will be saved in -o --dest Destination directory -w --verbose Warning level (default: 2) # one liners, with $ARGV and $ENV xslate -e 'Hello, <: $ARGV[0] :> world!' Xslate # => Hello, Xslate world! xslate -MDigest::MD5=md5_hex -e '<: md5_hex($ARGV[0]) :>' 'foo bar' # => 327b6f07435811239bc47e1544353273 =head1 DESCRIPTION The C script is used to process entire directory trees containing template files, or to process one liners. =head1 ARGUMENTS =head2 target Specifies the target to be processed by Xslate. If the target is a file, the file is processed, and C will exit immediately. If the target is a directory, then the directory is traversed and each file found is processed via C. =head1 AUTHOR Maki, Daisuke (lestrrat) Fuji, Goro (gfx) =head1 SEE ALSO L =cut Text-Xslate-3.4.0/MANIFEST.SKIP0000644000175000017500000000166613040006205015157 0ustar syoheisyohei #!start included /usr/local/lib/perl5/5.10.0/ExtUtils/MANIFEST.SKIP # Avoid version control files. \bRCS\b \bCVS\b \bSCCS\b ,v$ \B\.svn\b \B\.git\b \B\.gitignore\b \b_darcs\b # Avoid Makemaker generated and utility files. \bMANIFEST\.bak \bMakefile$ \bblib/ \bMakeMaker-\d \bpm_to_blib\.ts$ \bpm_to_blib$ \bblibdirs\.ts$ # 6.18 through 6.25 generated this # Avoid Module::Build generated and utility files. \bBuild$ \b_build/ # Avoid temp and backup files. ~$ \.old$ \#$ \b\.# \.bak$ \.swp$ # Avoid Devel::Cover files. \bcover_db\b #!end included /usr/local/lib/perl5/5.10.0/ExtUtils/MANIFEST.SKIP # skip dot files ^\. # skip author's files \bauthor\b # skip object files Xslate\.c$ \.o(?:bj)?$ \.bs$ \.def$ \.out$ # skip devel-cover stuff \.gcda$ \.gcno$ \.gcov$ cover_db/ # skip nytprof stuff nytprof/ \.out$ Text-Xslate- ppport\.h$ \.txc$ \.ttc$ \.cache$ \.c$ \.stackdump$ \.testenv\b t/600_app/out MYMETA\.(?:json|yml)$ Text-Xslate-3.4.0/MANIFEST0000644000175000017500000002371713040325226014422 0ustar syoheisyoheibenchmark/cascade.pl benchmark/data_section.pl benchmark/demo-mt.pl benchmark/demo-tt.pl benchmark/expr.pl benchmark/expr_eq.pl benchmark/for.pl benchmark/include.pl benchmark/interpolate.pl benchmark/json.pl benchmark/procs/fib.pl benchmark/procs/function.pl benchmark/procs/keys.pl benchmark/procs/map.pl benchmark/procs/method.pl benchmark/procs/sort.pl benchmark/procs/uri_escape.pl benchmark/procs/values.pl benchmark/template/base.mt benchmark/template/base.tx benchmark/template/child.mt benchmark/template/child.tx benchmark/template/include.cs benchmark/template/include.ht benchmark/template/include.mt benchmark/template/include.tt benchmark/template/include.tx benchmark/template/list.cs benchmark/template/list.ht benchmark/template/list.mst benchmark/template/list.mt benchmark/template/list.tj benchmark/template/list.tt benchmark/template/list.tx benchmark/x-poor-env.pl benchmark/x-rich-env.pl Changes example/amon2.psgi example/amon2.psgi.gold example/autolink.pl example/autolink.pl.gold example/base.tx example/bridge.pl example/bridge.tx example/cascade.pl example/cascade.pl.gold example/cascade.tx example/chained-scope.pl example/chained-scope.pl.gold example/data_section.pl example/data_section.pl.gold example/dynamic_functions.pl example/dynamic_functions.tx example/err_handler.pl example/fillinform.pl example/fillinform.pl.gold example/form.psgi example/form.psgi.gold example/hello.pl example/hello.pl.gold example/hello.tmpl example/hello.tx example/htmltemplate.pl example/htparser.pl example/i18n-data-localize.pl example/i18n-data-localize.pl.gold example/i18n.pl example/i18n.pl.gold example/list.pl example/list.pl.gold example/list.tx example/locale/ja.po example/mojo.psgi example/mojo.psgi.gold example/put_js.pl example/put_js.pl.gold example/simple.psgi example/simple.psgi.gold HACKING inc/Module/Install.pm inc/Module/Install/AuthorTests.pm inc/Module/Install/Base.pm inc/Module/Install/Can.pm inc/Module/Install/Makefile.pm inc/Module/Install/Metadata.pm inc/Module/Install/Scripts.pm inc/Module/Install/TestTarget.pm inc/Module/Install/WriteAll.pm inc/Module/Install/XSUtil.pm lib/Text/Xslate.pm lib/Text/Xslate/Bridge.pm lib/Text/Xslate/Bridge/Star.pm lib/Text/Xslate/Compiler.pm lib/Text/Xslate/HashWithDefault.pm lib/Text/Xslate/Manual.pod lib/Text/Xslate/Manual/Builtin.pod lib/Text/Xslate/Manual/Cookbook.pod lib/Text/Xslate/Manual/Debugging.pod lib/Text/Xslate/Manual/FAQ.pod lib/Text/Xslate/Parser.pm lib/Text/Xslate/PP.pm lib/Text/Xslate/PP/Const.pm lib/Text/Xslate/PP/Method.pm lib/Text/Xslate/PP/Opcode.pm lib/Text/Xslate/PP/State.pm lib/Text/Xslate/PP/Type/Macro.pm lib/Text/Xslate/PP/Type/Pair.pm lib/Text/Xslate/PP/Type/Raw.pm lib/Text/Xslate/Runner.pm lib/Text/Xslate/Symbol.pm lib/Text/Xslate/Syntax/Kolon.pm lib/Text/Xslate/Syntax/Metakolon.pm lib/Text/Xslate/Syntax/TTerse.pm lib/Text/Xslate/Type/Raw.pm lib/Text/Xslate/Util.pm Makefile.PL MANIFEST This list of files MANIFEST.SKIP META.yml README.md script/xslate src/Text-Xslate.xs src/xslate_methods.xs src/xslate_opcode.inc t/000_load.t t/010_internals/001_parse.t t/010_internals/002_compile.t t/010_internals/003_assemble.t t/010_internals/004_magic.t t/010_internals/005_load_file.t t/010_internals/006_errhandler.t t/010_internals/007_compile_errs.t t/010_internals/008_files.t t/010_internals/009_goto_address.t t/010_internals/010_line_number.t t/010_internals/011_missuse.t t/010_internals/012_multilines.t t/010_internals/013_deps_str.t t/010_internals/014_deps_file.t t/010_internals/015_deps_file2.t t/010_internals/016_cached.t t/010_internals/017_render.t t/010_internals/018_opinfo.t t/010_internals/019_runtime_error.t t/010_internals/020_optimize.t t/010_internals/021_edge_cases.t t/010_internals/022_signal.t t/010_internals/023_cachepath.t t/010_internals/024_die_in_macros.t t/010_internals/025_reset_hooks.t t/010_internals/026_issue16_deep_recursion.t t/010_internals/027_infinite_warn.t t/010_internals/028_taint.t t/010_internals/029_large_file.t t/010_internals/030_die_in_funcs.t t/010_internals/031_save_src.t t/010_internals/032_encoding_error.t t/010_internals/033_vpath_cache.t t/010_internals/034_is_code_ref.t t/010_internals/036_merge_hash.t t/010_internals/037_find_file.t t/010_internals/038_suffix.t t/010_internals/039_taint_issue84.t t/010_internals/100_threads.t t/010_internals/200_leaktrace.t t/010_internals/300_explicit_pp.t t/020_interface/001_parser_option.t t/020_interface/002_myparser.t t/020_interface/003_encoding.t t/020_interface/004_no_vars.t t/020_interface/005_util.t t/020_interface/006_psgi.t t/020_interface/007_data_section.t t/020_interface/008_type.t t/020_interface/009_hash_with_default.t t/020_interface/010_err_encoding.t t/020_interface/011_hwd_w_include_vars.t t/020_interface/012_default_functions.t t/020_interface/013_slurp_template.t t/020_interface/014_customize_option.t t/020_interface/015_render_recursion.t t/020_interface/016_pre_process_handler.t t/020_interface/017_validate.t t/030_kolon/001_interpolate.t t/030_kolon/002_field.t t/030_kolon/003_for.t t/030_kolon/004_if.t t/030_kolon/005_rel_ops.t t/030_kolon/006_arith_ops.t t/030_kolon/007_log_ops.t t/030_kolon/008_literal.t t/030_kolon/009_include.t t/030_kolon/010_escaped_str.t t/030_kolon/011_macro.t t/030_kolon/012_cascade.t t/030_kolon/013_more_field.t t/030_kolon/014_while.t t/030_kolon/015_methods.t t/030_kolon/016_funcs.t t/030_kolon/017_more_macro.t t/030_kolon/018_dynamic_filters.t t/030_kolon/019_explicit_interpolate.t t/030_kolon/020_chomp.t t/030_kolon/021_overlay.t t/030_kolon/022_given.t t/030_kolon/023_bitwise.t t/030_kolon/024_localize_vars.t t/030_kolon/025_objectliteral.t t/030_kolon/026_constant.t t/030_kolon/027_lambda.t t/030_kolon/028_smartmatch.t t/030_kolon/029_blockfilter.t t/030_kolon/030_xfuncs.t t/030_kolon/031_post_if.t t/030_kolon/032_include_bareword.t t/030_kolon/033_ov_forloop.t t/030_kolon/034_print.t t/030_kolon/035_include_w_vars.t t/030_kolon/036_foreach_else.t t/030_kolon/037_loop_ctl.t t/030_kolon/038_custom_esc.t t/030_kolon/039_root_vars.t t/030_kolon/040_external_macro.t t/040_tterse/001_parse.t t/040_tterse/002_interpolate.t t/040_tterse/003_field.t t/040_tterse/004_for.t t/040_tterse/005_if.t t/040_tterse/006_include.t t/040_tterse/007_funcs.t t/040_tterse/008_methods.t t/040_tterse/009_comments.t t/040_tterse/010_expr.t t/040_tterse/011_objectliterals.t t/040_tterse/012_macro.t t/040_tterse/013_wrapper.t t/040_tterse/014_set.t t/040_tterse/015_while.t t/040_tterse/016_call.t t/040_tterse/017_filter.t t/040_tterse/018_process.t t/040_tterse/019_switch.t t/040_tterse/020_chomp.t t/040_tterse/021_fake_use.t t/040_tterse/022_post_if.t t/040_tterse/023_loop_ctl.t t/040_tterse/024_for_else.t t/040_tterse/025_macro.t t/040_tterse/100_not_supported.t t/050_builtins/001_builtin_funcs.t t/050_builtins/002_autobox.t t/050_builtins/003_autobox_w_cb.t t/050_builtins/004_copied.t t/100_plugin/001_import_from.t t/100_plugin/002_import.t t/100_plugin/003_bridge.t t/100_plugin/004_star.t t/100_plugin/005_html_builder_module.t t/100_plugin/100_error.t t/200_app/001_hello.t t/200_app/002_tree.t t/200_app/003_runner.t t/200_app/004_encoding.t t/200_app/simple/dont_touch.tx t/200_app/simple/goodbye.tx t/200_app/simple/hello.tx t/300_examples/001_basic.t t/300_examples/002_cascade.t t/300_examples/003_metakolon.t t/300_examples/004_tterse.t t/900_bugs/001_super.t t/900_bugs/002_addfunc.t t/900_bugs/003_frame_access.t t/900_bugs/004_errorhandling.t t/900_bugs/005_rec_include.t t/900_bugs/006_complex_lex.t t/900_bugs/007_uuv.t t/900_bugs/008_include_var.t t/900_bugs/009_quote_in_comments.t t/900_bugs/010_widechar_for_md5.t t/900_bugs/011_reserved_words.t t/900_bugs/012_ltgt_in_comments.t t/900_bugs/013_comments_lineno.t t/900_bugs/014_too_large_int.t t/900_bugs/015_my_scope.t t/900_bugs/016_x_in_tterse.t t/900_bugs/017_unallocated.t t/900_bugs/018_lvar_in_macro.pl t/900_bugs/019_nested_mm.t t/900_bugs/020_switch_foo.t t/900_bugs/021_cached_enc.t t/900_bugs/022_empty_if_block.t t/900_bugs/023_deploy_problem.t t/900_bugs/024_use_cache.t t/900_bugs/025_clobber-macro-args.t t/900_bugs/026_issue61.t t/900_bugs/027_issue65.t t/900_bugs/028_issue68.t t/900_bugs/029_fork_and_cache.t t/900_bugs/030_issue71.t t/900_bugs/031_yappo.t t/900_bugs/032_issue79.t t/900_bugs/033_ex_safe_render.t t/900_bugs/034_hash_key_utf8.t t/900_bugs/035_issue81_tiedhash.t t/900_bugs/036_vpath_utf8.t t/900_bugs/037_text_str_key.t t/900_bugs/038_conbine_flaged_utf8_and_other.t t/900_bugs/039_issue96.t t/900_bugs/040_issue95.t t/900_bugs/041_cachedir_other_process.t t/900_bugs/042_perl59_issue.t t/900_bugs/043_issue107.t t/900_bugs/044_empty_result.t t/900_bugs/045_issue130.t t/900_bugs/046_issue156.t t/900_bugs/046_issue88.t t/900_bugs/047_undef_concat.t t/900_bugs/048_issue172.t t/900_bugs/issue79/tmpl/contentA.tt t/900_bugs/issue79/tmpl/contentB.tt t/900_bugs/issue79/tmpl/wrapperA.tt t/900_bugs/issue79/tmpl/wrapperB.tt t/900_bugs/issue79/xslate.pl t/lib/MyBridge2.pm t/lib/Text/Xslate/Syntax/Foo.pm t/lib/TTSimple.pm t/lib/Util.pm t/lib/UtilNoleak.pm t/template/common.tx t/template/config.tt t/template/eg/base.tx t/template/eg/child.tx t/template/error/bad_include.tx t/template/error/bad_method.tx t/template/error/bad_syntax.tx t/template/error/bad_tags.tx t/template/footer1.tt t/template/footer2.tt t/template/for.tx t/template/func.tx t/template/header1.tt t/template/header2.tt t/template/hello.tt t/template/hello.tx t/template/hello.tx.mod t/template/hello_sjis.tx t/template/hello_utf8.tx t/template/include.tt t/template/include.tx t/template/include2.tt t/template/include2.tx t/template/macro.tt t/template/myapp/bad_redefine.tx t/template/myapp/base.tx t/template/myapp/base.tx.mod t/template/myapp/cbar.tx t/template/myapp/cfoo.tx t/template/myapp/derived.tx t/template/oi/bad_base.tx t/template/oi/bad_component.tx t/template/other/hello.tx t/template/taint.tx t/template/wrapper.tt t/template/wrapper_div.tt tool/disasm.pl tool/opcode.PL tool/opcode_for_pp.PL tool/uri_unsafe.PL uri_unsafe.h xshelper.h xslate.h xslate_ops.h xt/01_podspell.t xt/02_pod.t xt/03_pod-coverage.t xt/04_synopsis.t xt/05_vars.t xt/100_eg_pl.t xt/101_eg_psgi.t xt/200_depended.t Text-Xslate-3.4.0/lib/0000755000175000017500000000000013040325435014027 5ustar syoheisyoheiText-Xslate-3.4.0/lib/Text/0000755000175000017500000000000013040325435014753 5ustar syoheisyoheiText-Xslate-3.4.0/lib/Text/Xslate/0000755000175000017500000000000013040325435016213 5ustar syoheisyoheiText-Xslate-3.4.0/lib/Text/Xslate/Manual.pod0000644000175000017500000000135613040006212020126 0ustar syoheisyohei =head1 NAME Text::Xslate::Manual - Xslate users manual =head1 TABLE OF CONTENTS L - Perl Interface to the Xslate template engine L - The default template syntax L - A Template Toolkit compatible syntax L - Builtin methods and filters/functions L - The Xslate cookbook L - Frequently asked questions and answers L - How to debug Xslate templates =head1 NOTES Xslate manual pages are not yet completed. Patches are welcome. =head1 SEE ALSO L - The Xslate web site L - Xslate repositories =cut Text-Xslate-3.4.0/lib/Text/Xslate/Bridge.pm0000644000175000017500000000547213040324063017751 0ustar syoheisyoheipackage Text::Xslate::Bridge; use strict; use warnings; use Carp (); use Text::Xslate::Util qw(p); my %storage; sub bridge { my $class = shift; while(my($type, $table) = splice @_, 0, 2) { $storage{$class}{$type} = $table; } return; } sub export_into_xslate { my($class, $funcs_ref, @args) = @_; push @{$funcs_ref}, $class->methods(@args); return; } sub methods { my($class, %args) = @_; if(!exists $storage{$class}) { Carp::croak("$class has no methods (possibly not a bridge class)"); } if(exists $args{-exclude}) { my $exclude = $args{-exclude}; my $methods = $class->_functions; my @export; if(ref($exclude) eq 'ARRAY') { $exclude = { map { $_ => 1 } @{$exclude} }; } if(ref($exclude) eq 'HASH') { @export = grep { !$exclude->{$_} } keys %{$methods}; } elsif(ref($exclude) eq 'Regexp'){ @export = grep { $_ !~ $exclude } keys %{$methods}; } else { @export = grep { $_ ne $exclude } keys %{$methods}; } return map { $_ => $methods->{$_} } @export; } else { return %{ $class->_functions }; } } sub _functions { my($class) = @_; my $st = $storage{$class} ||= {}; my $funcs = $st->{_funcs} ||= {}; # for methods foreach my $type (qw(scalar hash array)) { my $table = $st->{$type} || next; foreach my $name(keys %{$table}) { $funcs->{$type . '::' . $name} = $table->{$name}; } } # for functions my $table = $st->{function}; foreach my $name(keys %{$table}) { $funcs->{$name} = $table->{$name}; } return $funcs; } sub dump { p(\%storage); } 1; __END__ =head1 NAME Text::Xslate::Bridge - The interface base class to import methods =for test_synopsis my(%nil_methods, %scalar_methods, %array_methods, %hash_methods, %functions); =head1 SYNOPSIS package SomeTemplate::Bridge::Xslate; use parent qw(Text::Xslate::Bridge); __PACKAGE__->bridge( nil => \%nil_methods, scalar => \%scalar_methods, array => \%array_methods, hash => \%hash_methods, function => \%functions, ); # in your script use Text::Xslate; my $tx = Text::Xslate->new( module => [ 'SomeTemplate::Bridge::Xslate' => [-exclude => [qw(hash::keys hash::values)]], ], ); =head1 DESCRIPTION This module is the base class for adaptor classes. =head1 INTERFACE =head2 C<< __PACKAGE__->bridge(@mapping) :Void >> Install a bridge module that has method I<@mapping>. See C for more an example. =head1 SEE ALSO L L L L =cut Text-Xslate-3.4.0/lib/Text/Xslate/Runner.pm0000644000175000017500000002652613040324063020031 0ustar syoheisyoheipackage Text::Xslate::Runner; use Mouse; use Mouse::Util::TypeConstraints; use List::Util (); use File::Spec (); use File::Basename (); use Getopt::Long (); { package Text::Xslate::Runner::Getopt; use Mouse::Role; has cmd_aliases => ( is => 'ro', isa => 'ArrayRef[Str]', default => sub { [] }, auto_deref => 1, ); no Mouse::Role; } my $getopt = Getopt::Long::Parser->new( config => [qw( no_ignore_case bundling no_auto_abbrev )], ); my $Pattern = subtype __PACKAGE__ . '.Pattern', as 'RegexpRef'; coerce $Pattern => from 'Str' => via { qr/$_/ }; my $getopt_traits = ['Text::Xslate::Runner::Getopt']; has cache_dir => ( documentation => 'Directory the cache files will be saved in', cmd_aliases => [qw(c)], is => 'ro', isa => 'Str', predicate => 'has_cache_dir', traits => $getopt_traits, ); has cache => ( documentation => 'Cache level', cmd_aliases => [qw(a)], is => 'ro', isa => 'Int', predicate => 'has_cache', traits => $getopt_traits, ); has module => ( documentation => 'Modules templates will use (e.g. name=sub1,sub2)', cmd_aliases => [qw(M)], is => 'ro', isa => 'HashRef[Str]', predicate => 'has_module', traits => $getopt_traits, ); has input_encoding => ( documentation => 'Input encoding (default: UTF-8)', cmd_aliases => [qw(ie)], is => 'rw', isa => 'Str', default => 'UTF-8', predicate => 'has_input_encoding', traits => $getopt_traits, ); has output_encoding => ( documentation => 'Output encoding (default: UTF-8)', cmd_aliases => [qw(oe)], is => 'rw', isa => 'Str', default => 'UTF-8', predicate => 'has_output_encoding', traits => $getopt_traits, ); has path => ( documentation => 'Include paths', cmd_aliases => [qw(I)], is => 'ro', isa => 'ArrayRef[Str]', predicate => 'has_path', traits => $getopt_traits, ); has syntax => ( documentation => 'Template syntax (e.g. TTerse)', cmd_aliases => [qw(s)], is => 'ro', isa => 'Str', predicate => 'has_syntax', traits => $getopt_traits, ); has type => ( documentation => 'Output content type (html | xml | text)', cmd_aliases => [qw(t)], is => 'ro', isa => 'Str', predicate => 'has_type', traits => $getopt_traits, ); has verbose => ( documentation => 'Warning level (default: 2)', cmd_aliases => [qw(w)], is => 'ro', isa => 'Str', default => 2, predicate => 'has_verbose', traits => $getopt_traits, ); # --ignore=pattern has ignore => ( documentation => 'Regular expression the process will ignore', cmd_aliases => [qw(i)], is => 'ro', isa => $Pattern, coerce => 1, traits => $getopt_traits, ); # --suffix old=new has suffix => ( documentation => 'Output suffix mapping (e.g. tx=html)', cmd_aliases => [qw(x)], is => 'ro', isa => 'HashRef', default => sub { +{} }, traits => $getopt_traits, ); has dest => ( documentation => 'Destination directory', cmd_aliases => [qw(o)], is => 'ro', isa => 'Str', # Maybe[Str] required => 0, traits => $getopt_traits, ); has define => ( documentation => 'Define template variables (e.g. foo=bar)', cmd_aliases => [qw(D)], is => 'ro', isa => 'HashRef', predicate => 'has_define', traits => $getopt_traits, ); has eval => ( documentation => 'One line of template code', cmd_aliases => [qw(e)], is => 'ro', isa => 'Str', predicate => 'has_eval', traits => $getopt_traits, ); has engine => ( documentation => 'Template engine', cmd_aliases => [qw(E)], is => 'ro', isa => 'Str', default => 'Text::Xslate', traits => $getopt_traits, ); has debug => ( documentation => 'Debugging flags', cmd_aliases => ['d'], is => 'ro', isa => 'Str', predicate => 'has_debug', traits => $getopt_traits, ); has version => ( documentation => 'Print version information', is => 'ro', isa => 'Bool', traits => $getopt_traits, ); has help => ( documentation => 'Print this help', is => 'ro', isa => 'Bool', traits => $getopt_traits, ); has targets => ( is => 'ro', isa => 'ArrayRef[Str]', default => sub { [] }, auto_deref => 1, ); my @Spec = __PACKAGE__->_build_getopt_spec(); sub getopt_spec { @Spec } sub _build_getopt_spec { my($self) = @_; my @spec; foreach my $attr($self->meta->get_all_attributes) { next unless $attr->does('Text::Xslate::Runner::Getopt'); my $isa = $attr->type_constraint; my $type; if($isa->is_a_type_of('Bool')) { $type = ''; } elsif($isa->is_a_type_of('Int')) { $type = '=i'; } elsif($isa->is_a_type_of('Num')) { $type = '=f'; } elsif($isa->is_a_type_of('ArrayRef')) { $type = '=s@'; } elsif($isa->is_a_type_of('HashRef')) { $type = '=s%'; } else { $type = '=s'; } my @names = ($attr->name, $attr->cmd_aliases); push @spec, join('|', @names) . $type; } return @spec; } sub new_from { my $class = shift; local @ARGV = @_; my %opts; $getopt->getoptions(\%opts, $class->getopt_spec()) or die $class->help_message; $opts{targets} = [@ARGV]; return $class->new(\%opts); } sub run { my($self, @targets) = @_; my %args; foreach my $field (qw( cache_dir cache path syntax type verbose )) { my $method = "has_$field"; $args{ $field } = $self->$field if $self->$method; } if($self->has_module) { # re-mapping my $mod = $self->module; my @mods; foreach my $name(keys %{$mod}) { push @mods, $name, [ split /,/, $mod->{$name} ]; } $args{module} = \@mods; } if(my $ie = $self->input_encoding) { $args{input_layer} = ":encoding($ie)"; } local $ENV{XSLATE} = $self->debug if $self->has_debug; require Text::Xslate; if($self->help) { print $self->help_message(); return; } elsif($self->version) { print $self->version_info(); return; } Mouse::load_class($self->engine); my $xslate = $self->engine->new(%args); if($self->has_eval) { my %vars; if($self->has_define){ %vars = %{$self->define}; } $vars{ARGV} = \@targets; $vars{ENV} = \%ENV; print $xslate->render_string($self->eval, \%vars), "\n"; return; } foreach my $target (@targets) { # XXX if you have a directory, just pushed that into the list of # path in the xslate object if ( -d $target ) { local $self->{__process_base} = scalar(File::Spec->splitdir($target)); local $xslate->{path} = [ $target, @{ $xslate->{path} || [] } ]; $self->process_tree( $xslate, $target ); } else { my $dirname = File::Basename::dirname($target); local $self->{__process_base} = scalar(File::Spec->splitdir($dirname)); local $xslate->{path} = [ $dirname, @{ $xslate->{path} || [] } ]; $self->process_file( $xslate, $target ); } } } sub process_tree { my ($self, $xslate, $dir) = @_; opendir( my $fh, $dir ) or die "Could not opendir '$dir': !"; while (my $e = readdir $fh) { next if $e =~ /^\.+$/; my $target = File::Spec->catfile( $dir, $e ); if (-d $target) { $self->process_tree( $xslate, $target ); } else { $self->process_file( $xslate, $target ); } } } sub process_file { my ($self, $xslate, $file) = @_; if ( my $ignore = $self->ignore ) { if ($file =~ $ignore) { return; } } my $suffix_map = $self->suffix; my $dest = $self->dest; my ($suffix) = ($file =~ /\.([^\.]+)$/); my $filearg = $file; if (my $base = $self->{__process_base}) { my @comps = File::Spec->splitdir( File::Basename::dirname($file) ); splice @comps, 0, $base; $filearg = File::Spec->catfile( @comps, File::Basename::basename($file) ); } my $outfile; if(defined $dest or exists $suffix_map->{$suffix}) { $outfile= File::Spec->catfile( $dest, $filearg ); if (my $replace = $suffix_map->{ $suffix }) { $outfile =~ s/$suffix$/$replace/; } my $dir = File::Basename::dirname( $outfile ); if (! -d $dir) { require File::Path; if (! File::Path::mkpath( $dir )) { die "Could not create directory $dir: $!"; } } } my $rendered = $xslate->render( $filearg, $self->define ); $rendered = $self->_encode($rendered); if(defined $outfile) { my $fh; open( $fh, '>', $outfile ) or die "Could not open file $outfile for writing: $!"; print $fh $rendered; close $fh or warn "Could not close file $outfile: $!"; } else { print $rendered; } } sub version_info { my($self) = @_; return sprintf qq{%s (%s) on Text::Xslate/%s, Perl/%vd.\n}, File::Basename::basename($0), ref($self), Text::Xslate->VERSION, $^V, ; } sub help_message { my($self) = @_; my @options; foreach my $attr($self->meta->get_all_attributes) { next unless $attr->does('Text::Xslate::Runner::Getopt'); my $name = join ' ', map { length($_) == 1 ? "-$_": "--$_" } ($attr->cmd_aliases, $attr->name); push @options, [ $name => $attr->documentation ]; } my $max_len = List::Util::max( map { length $_->[0] } @options ); my $message = sprintf "usage: %s [options...] [input-files]\n", File::Basename::basename($0); foreach my $opt(@options) { $message .= sprintf " %-*s %s\n", $max_len, @{$opt}; } $message .= <<'EXAMPLE'; Examples: xslate -e "Hello, <: $ARGV[0] :> world!" Kolon xslate -s TTerse -e "Hello, [% ARGV.0 %] world!" TTerse EXAMPLE return $message; } sub _encode { my($self, $str) = @_; my $oe = $self->output_encoding; if($oe ne 'UTF-8') { require Encode; return Encode::encode($oe, $str); } else { utf8::encode($str); return $str; } } no Mouse; no Mouse::Util::TypeConstraints; __PACKAGE__->meta->make_immutable; __END__ =head1 NAME Text::Xslate::Runner - The guts of the xslate(1) command =head1 DESCRIPTION This is the guts of C. =head1 AUTHOR This is originally written by Maki, Daisuke (lestrrat), and also maintained by Fuji, Goro (gfx), =head1 SEE ALSO L L =cut Text-Xslate-3.4.0/lib/Text/Xslate/Parser.pm0000644000175000017500000013500113040324063020001 0ustar syoheisyoheipackage Text::Xslate::Parser; use Mouse; use Scalar::Util (); use Text::Xslate::Symbol; use Text::Xslate::Util qw( $DEBUG $STRING $NUMBER is_int any_in neat literal_to_value make_error p ); use constant _DUMP_PROTO => scalar($DEBUG =~ /\b dump=proto \b/xmsi); use constant _DUMP_TOKEN => scalar($DEBUG =~ /\b dump=token \b/xmsi); our @CARP_NOT = qw(Text::Xslate::Compiler Text::Xslate::Symbol); my $CODE = qr/ (?: $STRING | [^'"] ) /xms; my $COMMENT = qr/\# [^\n;]* (?= [;\n] | \z)/xms; # Operator tokens that the parser recognizes. # All the single characters are tokenized as an operator. my $OPERATOR_TOKEN = sprintf '(?:%s|[^ \t\r\n])', join('|', map{ quotemeta } qw( ... .. == != <=> <= >= << >> += -= *= /= %= ~= &&= ||= //= ~~ =~ && || // -> => :: ++ -- +| +& +^ +< +> +~ ), ','); my %shortcut_table = ( '=' => 'print', ); my $CHOMP_FLAGS = qr/-/xms; has identity_pattern => ( is => 'ro', isa => 'RegexpRef', builder => '_build_identity_pattern', init_arg => undef, ); sub _build_identity_pattern { return qr/(?: (?:[A-Za-z_]|\$\~?) [A-Za-z0-9_]* )/xms; } has [qw(compiler engine)] => ( is => 'rw', required => 0, weak_ref => 1, ); has symbol_table => ( # the global symbol table is => 'ro', isa => 'HashRef', default => sub{ {} }, init_arg => undef, ); has iterator_element => ( is => 'ro', isa => 'HashRef', lazy => 1, builder => '_build_iterator_element', init_arg => undef, ); has scope => ( is => 'rw', isa => 'ArrayRef[HashRef]', clearer => 'init_scope', lazy => 1, default => sub{ [ {} ] }, init_arg => undef, ); has token => ( is => 'rw', isa => 'Maybe[Object]', init_arg => undef, ); has next_token => ( # to peek the next token is => 'rw', isa => 'Maybe[ArrayRef]', init_arg => undef, ); has statement_is_finished => ( is => 'rw', isa => 'Bool', init_arg => undef, ); has following_newline => ( is => 'rw', isa => 'Int', default => 0, init_arg => undef, ); has input => ( is => 'rw', isa => 'Str', init_arg => undef, ); has line_start => ( is => 'ro', isa => 'Maybe[Str]', builder => '_build_line_start', ); sub _build_line_start { ':' } has tag_start => ( is => 'ro', isa => 'Str', builder => '_build_tag_start', ); sub _build_tag_start { '<:' } has tag_end => ( is => 'ro', isa => 'Str', builder => '_build_tag_end', ); sub _build_tag_end { ':>' } has comment_pattern => ( is => 'ro', isa => 'RegexpRef', builder => '_build_comment_pattern', ); sub _build_comment_pattern { $COMMENT } has shortcut_table => ( is => 'ro', isa => 'HashRef[Str]', builder => '_build_shortcut_table', ); sub _build_shortcut_table { \%shortcut_table } has in_given => ( is => 'rw', isa => 'Bool', init_arg => undef, ); # attributes for error messages has near_token => ( is => 'rw', init_arg => undef, ); has file => ( is => 'rw', required => 0, ); has line => ( is => 'rw', required => 0, ); has input_layer => ( is => 'ro', default => ':utf8', ); sub symbol_class() { 'Text::Xslate::Symbol' } # the entry point sub parse { my($parser, $input, %args) = @_; local $parser->{file} = $args{file} || \$input; local $parser->{line} = $args{line} || 1; local $parser->{in_given} = 0; local $parser->{scope} = [ map { +{ %{$_} } } @{ $parser->scope } ]; local $parser->{symbol_table} = { %{ $parser->symbol_table } }; local $parser->{near_token}; local $parser->{next_token}; local $parser->{token}; local $parser->{input}; $parser->input( $parser->preprocess($input) ); $parser->next_token( $parser->tokenize() ); $parser->advance(); my $ast = $parser->statements(); if(my $input_pos = pos $parser->{input}) { if($input_pos != length($parser->{input})) { $parser->_error("Syntax error", $parser->token); } } return $ast; } sub trim_code { my($parser, $s) = @_; $s =~ s/\A [ \t]+ //xms; $s =~ s/ [ \t]+ \n?\z//xms; return $s; } sub auto_chomp { my($parser, $tokens_ref, $i, $s_ref) = @_; my $p; my $nl = 0; # postchomp if($i >= 1 and ($p = $tokens_ref->[$i-1])->[0] eq 'postchomp') { # [ CODE ][*][ TEXT ] # <: ... -:> \nfoobar # ^^^^ ${$s_ref} =~ s/\A [ \t]* (\n)//xms; if($1) { $nl++; } } # prechomp if(($i+1) < @{$tokens_ref} and ($p = $tokens_ref->[$i+1])->[0] eq 'prechomp') { if(${$s_ref} !~ / [^ \t] /xms) { # HERE # [ TEXT ][*][ CODE ] # <:- ... :> # ^^^^^^^^ ${$s_ref} = ''; } else { # HERE # [ TEXT ][*][ CODE ] # \n<:- ... :> # ^^ $nl += chomp ${$s_ref}; } } elsif(($i+2) < @{$tokens_ref} and ($p = $tokens_ref->[$i+2])->[0] eq 'prechomp' and ($p = $tokens_ref->[$i+1])->[0] eq 'text' and $p->[1] !~ / [^ \t] /xms) { # HERE # [ TEXT ][ TEXT ][*][ CODE ] # \n <:- ... :> # ^^^^^^^^^^ $p->[1] = ''; $nl += (${$s_ref} =~ s/\n\z//xms); } return $nl; } # split templates by tags before tokenizing sub split :method { my $parser = shift; local($_) = @_; my @tokens; my $line_start = $parser->line_start; my $tag_start = $parser->tag_start; my $tag_end = $parser->tag_end; my $lex_line_code = defined($line_start) && qr/\A ^ [ \t]* \Q$line_start\E ([^\n]* \n?) /xms; my $lex_tag_start = qr/\A \Q$tag_start\E ($CHOMP_FLAGS?)/xms; # 'text' is a something without newlines # following a newline, $tag_start, or end of the input my $lex_text = qr/\A ( [^\n]*? (?: \n | (?= \Q$tag_start\E ) | \z ) ) /xms; my $lex_comment = $parser->comment_pattern; my $lex_code = qr/(?: $lex_comment | $CODE )/xms; my $in_tag = 0; while($_ ne '') { if($in_tag) { my $start = 0; my $pos; while( ($pos = index $_, $tag_end, $start) >= 0 ) { my $code = substr $_, 0, $pos; $code =~ s/$lex_code//xmsg; if(length($code) == 0) { last; } $start = $pos + 1; } if($pos >= 0) { my $code = substr $_, 0, $pos, ''; $code =~ s/($CHOMP_FLAGS?) \z//xmso; my $chomp = $1; s/\A \Q$tag_end\E //xms or die "Oops!"; push @tokens, [ code => $code ]; if($chomp) { push @tokens, [ postchomp => $chomp ]; } $in_tag = 0; } else { last; # the end tag is not found } } # not $in_tag elsif($lex_line_code && (@tokens == 0 || $tokens[-1][1] =~ /\n\z/xms) && s/$lex_line_code//xms) { push @tokens, [ code => $1 ]; } elsif(s/$lex_tag_start//xms) { $in_tag = 1; my $chomp = $1; if($chomp) { push @tokens, [ prechomp => $chomp ]; } } elsif(s/$lex_text//xms) { push @tokens, [ text => $1 ]; } else { confess "Oops: Unreached code, near" . p($_); } } if($in_tag) { # calculate line number my $orig_src = $_[0]; substr $orig_src, -length($_), length($_), ''; my $line = ($orig_src =~ tr/\n/\n/); $parser->_error("Malformed templates detected", neat((split /\n/, $_)[0]), ++$line, ); } #p(\@tokens); return \@tokens; } sub preprocess { my($parser, $input) = @_; # tokenization my $tokens_ref = $parser->split($input); my $code = ''; my $shortcut_table = $parser->shortcut_table; my $shortcut = join('|', map{ quotemeta } keys %shortcut_table); my $shortcut_rx = qr/\A ($shortcut)/xms; for(my $i = 0; $i < @{$tokens_ref}; $i++) { my($type, $s) = @{ $tokens_ref->[$i] }; if($type eq 'text') { my $nl = $parser->auto_chomp($tokens_ref, $i, \$s); $s =~ s/(["\\])/\\$1/gxms; # " for poor editors # $s may have single new line $nl += ($s =~ s/\n/\\n/xms); $code .= qq{print_raw "$s";}; # must set even if $s is empty $code .= qq{\n} if $nl > 0; } elsif($type eq 'code') { # shortcut commands $s =~ s/$shortcut_rx/$shortcut_table->{$1}/xms if $shortcut; $s = $parser->trim_code($s); if($s =~ /\A \s* [}] \s* \z/xms){ $code .= $s; } elsif($s =~ s/\n\z//xms) { $code .= qq{$s\n}; } else { $code .= qq{$s;}; # auto semicolon insertion } } elsif($type eq 'prechomp') { # noop, just a marker } elsif($type eq 'postchomp') { # noop, just a marker } else { $parser->_error("Oops: Unknown token: $s ($type)"); } } print STDOUT $code, "\n" if _DUMP_PROTO; return $code; } sub BUILD { my($parser) = @_; $parser->_init_basic_symbols(); $parser->init_symbols(); return; } # The grammer sub _init_basic_symbols { my($parser) = @_; $parser->symbol('(end)')->is_block_end(1); # EOF # prototypes of value symbols foreach my $type (qw(name variable literal)) { my $s = $parser->symbol("($type)"); $s->arity($type); $s->set_nud( $parser->can("nud_$type") ); } # common separators $parser->symbol(';')->set_nud(\&nud_separator); $parser->define_pair('(' => ')'); $parser->define_pair('{' => '}'); $parser->define_pair('[' => ']'); $parser->symbol(',') ->is_comma(1); $parser->symbol('=>') ->is_comma(1); # common commands $parser->symbol('print') ->set_std(\&std_print); $parser->symbol('print_raw')->set_std(\&std_print); # special literals $parser->define_literal(nil => undef); $parser->define_literal(true => 1); $parser->define_literal(false => 0); # special tokens $parser->symbol('__FILE__')->set_nud(\&nud_current_file); $parser->symbol('__LINE__')->set_nud(\&nud_current_line); $parser->symbol('__ROOT__')->set_nud(\&nud_current_vars); return; } sub init_basic_operators { my($parser) = @_; # define operator precedence $parser->prefix('{', 256, \&nud_brace); $parser->prefix('[', 256, \&nud_brace); $parser->infix('(', 256, \&led_call); $parser->infix('.', 256, \&led_dot); $parser->infix('[', 256, \&led_fetch); $parser->prefix('(', 256, \&nud_paren); $parser->prefix('!', 200)->is_logical(1); $parser->prefix('+', 200); $parser->prefix('-', 200); $parser->prefix('+^', 200); # numeric bitwise negate $parser->infix('*', 190); $parser->infix('/', 190); $parser->infix('%', 190); $parser->infix('x', 190); $parser->infix('+&', 190); # numeric bitwise and $parser->infix('+', 180); $parser->infix('-', 180); $parser->infix('~', 180); # connect $parser->infix('+|', 180); # numeric bitwise or $parser->infix('+^', 180); # numeric bitwise xor $parser->prefix('defined', 170, \&nud_defined); # named unary operator $parser->infix('<', 160)->is_logical(1); $parser->infix('<=', 160)->is_logical(1); $parser->infix('>', 160)->is_logical(1); $parser->infix('>=', 160)->is_logical(1); $parser->infix('==', 150)->is_logical(1); $parser->infix('!=', 150)->is_logical(1); $parser->infix('<=>', 150); $parser->infix('cmp', 150); $parser->infix('~~', 150); $parser->infix('|', 140, \&led_pipe); $parser->infix('&&', 130)->is_logical(1); $parser->infix('||', 120)->is_logical(1); $parser->infix('//', 120)->is_logical(1); $parser->infix('min', 120); $parser->infix('max', 120); $parser->infix('..', 110, \&led_range); $parser->symbol(':'); $parser->infixr('?', 100, \&led_ternary); $parser->assignment('=', 90); $parser->assignment('+=', 90); $parser->assignment('-=', 90); $parser->assignment('*=', 90); $parser->assignment('/=', 90); $parser->assignment('%=', 90); $parser->assignment('~=', 90); $parser->assignment('&&=', 90); $parser->assignment('||=', 90); $parser->assignment('//=', 90); $parser->make_alias('!' => 'not')->ubp(70); $parser->make_alias('&&' => 'and')->lbp(60); $parser->make_alias('||' => 'or') ->lbp(50); return; } sub init_symbols { my($parser) = @_; my $s; # syntax specific separators $parser->symbol('{'); $parser->symbol('}')->is_block_end(1); # block end $parser->symbol('->'); $parser->symbol('else'); $parser->symbol('with'); $parser->symbol('::'); # operators $parser->init_basic_operators(); # statements $s = $parser->symbol('if'); $s->set_std(\&std_if); $s->can_be_modifier(1); $parser->symbol('for') ->set_std(\&std_for); $parser->symbol('while' ) ->set_std(\&std_while); $parser->symbol('given') ->set_std(\&std_given); $parser->symbol('when') ->set_std(\&std_when); $parser->symbol('default') ->set_std(\&std_when); $parser->symbol('include') ->set_std(\&std_include); $parser->symbol('last') ->set_std(\&std_last); $parser->symbol('next') ->set_std(\&std_next); # macros $parser->symbol('cascade') ->set_std(\&std_cascade); $parser->symbol('macro') ->set_std(\&std_proc); $parser->symbol('around') ->set_std(\&std_proc); $parser->symbol('before') ->set_std(\&std_proc); $parser->symbol('after') ->set_std(\&std_proc); $parser->symbol('block') ->set_std(\&std_macro_block); $parser->symbol('super') ->set_std(\&std_super); $parser->symbol('override') ->set_std(\&std_override); $parser->symbol('->') ->set_nud(\&nud_lambda); # lexical variables/constants stuff $parser->symbol('constant')->set_nud(\&nud_constant); $parser->symbol('my' )->set_nud(\&nud_constant); return; } sub _build_iterator_element { return { index => \&iterator_index, count => \&iterator_count, is_first => \&iterator_is_first, is_last => \&iterator_is_last, body => \&iterator_body, size => \&iterator_size, max_index => \&iterator_max_index, peek_next => \&iterator_peek_next, peek_prev => \&iterator_peek_prev, cycle => \&iterator_cycle, }; } sub symbol { my($parser, $id, $lbp) = @_; my $stash = $parser->symbol_table; my $s = $stash->{$id}; if(defined $s) { if(defined $lbp) { $s->lbp($lbp); } } else { # create a new symbol $s = $parser->symbol_class->new(id => $id, lbp => $lbp || 0); $stash->{$id} = $s; } return $s; } sub define_pair { my($parser, $left, $right) = @_; $parser->symbol($left) ->counterpart($right); $parser->symbol($right)->counterpart($left); return; } # the low-level tokenizer. Don't use it directly, use advance() instead. sub tokenize { my($parser) = @_; local *_ = \$parser->{input}; my $comment_rx = $parser->comment_pattern; my $id_rx = $parser->identity_pattern; my $count = 0; TRY: { /\G (\s*) /xmsgc; $count += ( $1 =~ tr/\n/\n/); $parser->following_newline( $count ); if(/\G $comment_rx /xmsgc) { redo TRY; # retry } elsif(/\G ($id_rx)/xmsgc){ return [ name => $1 ]; } elsif(/\G ($NUMBER | $STRING)/xmsogc){ return [ literal => $1 ]; } elsif(/\G ($OPERATOR_TOKEN)/xmsogc){ return [ operator => $1 ]; } elsif(/\G (\S+)/xmsgc) { Carp::confess("Oops: Unexpected token '$1'"); } else { # empty return [ special => '(end)' ]; } } } sub next_token_is { my($parser, $token) = @_; return $parser->next_token->[1] eq $token; } # the high-level tokenizer sub advance { my($parser, $expect) = @_; my $t = $parser->token; if(defined($expect) && $t->id ne $expect) { $parser->_unexpected(neat($expect), $t); } $parser->near_token($t); my $stash = $parser->symbol_table; $t = $parser->next_token; if($t->[0] eq 'special') { return $parser->token( $stash->{ $t->[1] } ); } $parser->statement_is_finished( $parser->following_newline != 0 ); my $line = $parser->line( $parser->line + $parser->following_newline ); $parser->next_token( $parser->tokenize() ); my($arity, $id) = @{$t}; if( $arity eq "name" && $parser->next_token_is("=>") ) { $arity = "literal"; } print STDOUT "[$arity => $id] #$line\n" if _DUMP_TOKEN; my $symbol; if($arity eq "literal") { $symbol = $parser->symbol('(literal)')->clone( id => $id, value => $parser->parse_literal($id) ); } elsif($arity eq "operator") { $symbol = $stash->{$id}; if(not defined $symbol) { $parser->_error("Unknown operator '$id'"); } $symbol = $symbol->clone( arity => $arity, # to make error messages clearer ); } else { # name # find_or_create() returns a cloned symbol, # so there's not need to clone() here $symbol = $parser->find_or_create($id); } $symbol->line($line); return $parser->token($symbol); } sub parse_literal { my($parser, $literal) = @_; return literal_to_value($literal); } sub nud_name { my($parser, $symbol) = @_; return $symbol->clone( arity => 'name', ); } sub nud_variable { my($parser, $symbol) = @_; return $symbol->clone( arity => 'variable', ); } sub nud_literal { my($parser, $symbol) = @_; return $symbol->clone( arity => 'literal', ); } sub default_nud { my($parser, $symbol) = @_; return $symbol->clone(); # as is } sub default_led { my($parser, $symbol) = @_; $parser->near_token($parser->token); $parser->_error( sprintf 'Missing operator (%s): %s', $symbol->arity, $symbol->id); } sub default_std { my($parser, $symbol) = @_; $parser->near_token($parser->token); $parser->_error( sprintf 'Not a statement (%s): %s', $symbol->arity, $symbol->id); } sub expression { my($parser, $rbp) = @_; my $t = $parser->token; $parser->advance(); my $left = $t->nud($parser); while($rbp < $parser->token->lbp) { $t = $parser->token; $parser->advance(); $left = $t->led($parser, $left); } return $left; } sub expression_list { my($parser) = @_; my @list; while(1) { if($parser->token->is_value) { push @list, $parser->expression(0); } if(!$parser->token->is_comma) { last; } $parser->advance(); # comma } return \@list; } # for left associative infix operators sub led_infix { my($parser, $symbol, $left) = @_; return $parser->binary( $symbol, $left, $parser->expression($symbol->lbp) ); } sub infix { my($parser, $id, $bp, $led) = @_; my $symbol = $parser->symbol($id, $bp); $symbol->set_led($led || \&led_infix); return $symbol; } # for right associative infix operators sub led_infixr { my($parser, $symbol, $left) = @_; return $parser->binary( $symbol, $left, $parser->expression($symbol->lbp - 1) ); } sub infixr { my($parser, $id, $bp, $led) = @_; my $symbol = $parser->symbol($id, $bp); $symbol->set_led($led || \&led_infixr); return $symbol; } # for prefix operators sub prefix { my($parser, $id, $bp, $nud) = @_; my $symbol = $parser->symbol($id); $symbol->ubp($bp); $symbol->set_nud($nud || \&nud_prefix); return $symbol; } sub nud_prefix { my($parser, $symbol) = @_; my $un = $symbol->clone(arity => 'unary'); $parser->reserve($un); $un->first($parser->expression($symbol->ubp)); return $un; } sub led_assignment { my($parser, $symbol, $left) = @_; $parser->_error("Assignment ($symbol) is forbidden", $left); } sub assignment { my($parser, $id, $bp) = @_; $parser->symbol($id, $bp)->set_led(\&led_assignment); return; } # the ternary is a right associative operator sub led_ternary { my($parser, $symbol, $left) = @_; my $if = $symbol->clone(arity => 'if'); $if->first($left); $if->second([$parser->expression( $symbol->lbp - 1 )]); $parser->advance(":"); $if->third([$parser->expression( $symbol->lbp - 1 )]); return $if; } sub is_valid_field { my($parser, $token) = @_; my $arity = $token->arity; if($arity eq "name") { return 1; } elsif($arity eq "literal") { return is_int($token->id); } return 0; } sub led_dot { my($parser, $symbol, $left) = @_; my $t = $parser->token; if(!$parser->is_valid_field($t)) { $parser->_unexpected("a field name", $t); } my $dot = $symbol->clone( arity => "field", first => $left, second => $t->clone(arity => 'literal'), ); $t = $parser->advance(); if($t->id eq "(") { $parser->advance(); # "(" $dot->third( $parser->expression_list() ); $parser->advance(")"); $dot->arity("methodcall"); } return $dot; } sub led_fetch { # $h[$field] my($parser, $symbol, $left) = @_; my $fetch = $symbol->clone( arity => "field", first => $left, second => $parser->expression(0), ); $parser->advance("]"); return $fetch; } sub call { my($parser, $function, @args) = @_; if(not ref $function) { $function = $parser->symbol('(name)')->clone( arity => 'name', id => $function, line => $parser->line, ); } return $parser->symbol('(call)')->clone( arity => 'call', first => $function, second => \@args, ); } sub led_call { my($parser, $symbol, $left) = @_; my $call = $symbol->clone(arity => 'call'); $call->first($left); $call->second( $parser->expression_list() ); $parser->advance(")"); return $call; } sub led_pipe { # filter my($parser, $symbol, $left) = @_; # a | b -> b(a) return $parser->call($parser->expression($symbol->lbp), $left); } sub led_range { # x .. y my($parser, $symbol, $left) = @_; return $symbol->clone( arity => 'range', first => $left, second => $parser->expression(0), ); } sub nil { my($parser) = @_; return $parser->symbol('nil')->nud($parser); } sub nud_defined { my($parser, $symbol) = @_; $parser->reserve( $symbol->clone() ); # prefix: is a syntactic sugar to $a != nil return $parser->binary( '!=', $parser->expression($symbol->ubp), $parser->nil, ); } # for special literals (e.g. nil, true, false) sub nud_special { my($parser, $symbol) = @_; return $symbol->first; } sub define_literal { # special literals my($parser, $id, $value) = @_; my $symbol = $parser->symbol($id); $symbol->first( $symbol->clone( arity => defined($value) ? 'literal' : 'nil', value => $value, ) ); $symbol->set_nud(\&nud_special); $symbol->is_defined(1); return $symbol; } sub new_scope { my($parser) = @_; push @{ $parser->scope }, {}; return; } sub pop_scope { my($parser) = @_; pop @{ $parser->scope }; return; } sub undefined_name { my($parser, $name) = @_; if($name =~ /\A \$/xms) { return $parser->symbol_table->{'(variable)'}->clone( id => $name, ); } else { return $parser->symbol_table->{'(name)'}->clone( id => $name, ); } } sub find_or_create { # find a name from all the scopes my($parser, $name) = @_; my $s; foreach my $scope(reverse @{$parser->scope}){ $s = $scope->{$name}; if(defined $s) { return $s->clone(); } } $s = $parser->symbol_table->{$name}; return defined($s) ? $s : $parser->undefined_name($name); } sub reserve { # reserve a name to the scope my($parser, $symbol) = @_; if($symbol->arity ne 'name' or $symbol->is_reserved) { return $symbol; } my $top = $parser->scope->[-1]; my $t = $top->{$symbol->id}; if($t) { if($t->is_reserved) { return $symbol; } if($t->arity eq "name") { $parser->_error("Already defined: $symbol"); } } $top->{$symbol->id} = $symbol; $symbol->is_reserved(1); #$symbol->scope($top); return $symbol; } sub define { # define a name to the scope my($parser, $symbol) = @_; my $top = $parser->scope->[-1]; my $t = $top->{$symbol->id}; if(defined $t) { $parser->_error($t->is_reserved ? "Already is_reserved: $t" : "Already defined: $t"); } $top->{$symbol->id} = $symbol; $symbol->is_defined(1); $symbol->is_reserved(0); $symbol->remove_nud(); $symbol->remove_led(); $symbol->remove_std(); $symbol->lbp(0); #$symbol->scope($top); return $symbol; } sub print { my($parser, @args) = @_; return $parser->symbol('print')->clone( arity => 'print', first => \@args, line => $parser->line, ); } sub binary { my($parser, $symbol, $lhs, $rhs) = @_; if(!ref $symbol) { # operator $symbol = $parser->symbol($symbol); } if(!ref $lhs) { # literal $lhs = $parser->symbol('(literal)')->clone( id => $lhs, ); } if(!ref $rhs) { # literal $rhs = $parser->symbol('(literal)')->clone( id => $rhs, ); } return $symbol->clone( arity => 'binary', first => $lhs, second => $rhs, ); } sub define_function { my($parser, @names) = @_; foreach my $name(@names) { my $s = $parser->symbol($name); $s->set_nud(\&nud_name); $s->is_defined(1); } return; } sub finish_statement { my($parser, $expr) = @_; my $t = $parser->token; if($t->can_be_modifier) { $parser->advance(); $expr = $t->std($parser, $expr); $t = $parser->token; } if($t->is_block_end or $parser->statement_is_finished) { # noop } elsif($t->id eq ";") { $parser->advance(); } else { $parser->_unexpected("a semicolon or block end", $t); } return $expr; } sub statement { # process one or more statements my($parser) = @_; my $t = $parser->token; if($t->id eq ";"){ $parser->advance(); # ";" return; } if($t->has_std) { # is $t a statement? $parser->reserve($t); $parser->advance(); # std() can return a list of nodes return $t->std($parser); } my $expr = $parser->auto_command( $parser->expression(0) ); return $parser->finish_statement($expr); } sub auto_command { my($parser, $expr) = @_; if($expr->is_statement) { # expressions can produce pure statements (e.g. assignment ) return $expr; } else { return $parser->print($expr); } } sub statements { # process statements my($parser) = @_; my @a; for(my $t = $parser->token; !$t->is_block_end; $t = $parser->token) { push @a, $parser->statement(); } return \@a; } sub block { my($parser) = @_; $parser->new_scope(); $parser->advance("{"); my $a = $parser->statements(); $parser->advance("}"); $parser->pop_scope(); return $a; } sub nud_paren { my($parser, $symbol) = @_; my $expr = $parser->expression(0); $parser->advance( $symbol->counterpart ); return $expr; } # for object literals sub nud_brace { my($parser, $symbol) = @_; my $list = $parser->expression_list(); $parser->advance($symbol->counterpart); return $symbol->clone( arity => 'composer', first => $list, ); } # iterator variables ($~iterator) # $~iterator . NAME | NAME() sub nud_iterator { my($parser, $symbol) = @_; my $iterator = $symbol->clone(); if($parser->token->id eq ".") { $parser->advance(); my $t = $parser->token; if(!any_in($t->arity, qw(variable name))) { $parser->_unexpected("a field name", $t); } my $generator = $parser->iterator_element->{$t->value}; if(!$generator) { $parser->_error("Undefined iterator element: $t"); } $parser->advance(); # element name my $args; if($parser->token->id eq "(") { $parser->advance(); $args = $parser->expression_list(); $parser->advance(")"); } $iterator->second($t); return $generator->($parser, $iterator, @{$args}); } return $iterator; } sub nud_constant { my($parser, $symbol) = @_; my $t = $parser->token; my $expect = $symbol->id eq 'constant' ? 'name' : $symbol->id eq 'my' ? 'variable' : die "Oops: $symbol"; if($t->arity ne $expect) { $parser->_unexpected("a $expect", $t); } $parser->define($t)->arity("name"); $parser->advance(); $parser->advance("="); return $symbol->clone( arity => 'constant', first => $t, second => $parser->expression(0), is_statement => 1, ); } my $lambda_id = 0; sub lambda { my($parser, $proto) = @_; my $name = $parser->symbol('(name)')->clone( id => sprintf('lambda@%s:%d', $parser->file, $lambda_id++), ); return $parser->symbol('(name)')->clone( arity => 'proc', id => 'macro', first => $name, line => $proto->line, ); } # -> $x { ... } sub nud_lambda { my($parser, $symbol) = @_; my $pointy = $parser->lambda($symbol); $parser->new_scope(); my @params; if($parser->token->id ne "{") { # has params my $paren = ($parser->token->id eq "("); $parser->advance("(") if $paren; # optional my $t = $parser->token; while($t->arity eq "variable") { push @params, $t; $parser->define($t); $t = $parser->advance(); if($t->id eq ",") { $t = $parser->advance(); # "," } else { last; } } $parser->advance(")") if $paren; } $pointy->second( \@params ); $parser->advance("{"); $pointy->third($parser->statements()); $parser->advance("}"); $parser->pop_scope(); return $symbol->clone( arity => 'lambda', first => $pointy, ); } sub nud_current_file { my($self, $symbol) = @_; my $file = $self->file; return $symbol->clone( arity => 'literal', value => ref($file) ? '' : $file, ); } sub nud_current_line { my($self, $symbol) = @_; return $symbol->clone( arity => 'literal', value => $symbol->line, ); } sub nud_current_vars { my($self, $symbol) = @_; return $symbol->clone( arity => 'vars', ); } sub nud_separator { my($self, $symbol) = @_; $self->_error("Invalid expression found", $symbol); } # -> VARS { STATEMENTS } # -> { STATEMENTS } # { STATEMENTS } sub pointy { my($parser, $pointy, $in_for) = @_; my @params; $parser->new_scope(); if($parser->token->id eq "->") { $parser->advance(); if($parser->token->id ne "{") { my $paren = ($parser->token->id eq "("); $parser->advance("(") if $paren; my $t = $parser->token; while($t->arity eq "variable") { push @params, $t; $parser->define($t); if($in_for) { $parser->define_iterator($t); } $t = $parser->advance(); if($t->id eq ",") { $t = $parser->advance(); # "," } else { last; } } $parser->advance(")") if $paren; } } $pointy->second( \@params ); $parser->advance("{"); $pointy->third($parser->statements()); $parser->advance("}"); $parser->pop_scope(); return; } sub iterator_name { my($parser, $var) = @_; # $foo -> $~foo (my $it_name = $var->id) =~ s/\A (\$?) /${1}~/xms; return $it_name; } sub define_iterator { my($parser, $var) = @_; my $it = $parser->symbol( $parser->iterator_name($var) )->clone( arity => 'iterator', first => $var, ); $parser->define($it); $it->set_nud(\&nud_iterator); return $it; } sub std_for { my($parser, $symbol) = @_; my $proc = $symbol->clone(arity => 'for'); $proc->first( $parser->expression(0) ); $parser->pointy($proc, 1); # for-else support if($parser->token eq 'else') { $parser->advance(); my $else = $parser->block(); $proc = $symbol->clone( arity => 'for_else', first => $proc, second => $else, ) } return $proc; } sub std_while { my($parser, $symbol) = @_; my $proc = $symbol->clone(arity => 'while'); $proc->first( $parser->expression(0) ); $parser->pointy($proc); return $proc; } # macro name -> { ... } sub std_proc { my($parser, $symbol) = @_; my $macro = $symbol->clone(arity => "proc"); my $name = $parser->token; if($name->arity ne "name") { $parser->_unexpected("a name", $name); } $parser->define_function($name->id); $macro->first($name); $parser->advance(); $parser->pointy($macro); return $macro; } # block name -> { ... } # block name | filter -> { ... } sub std_macro_block { my($parser, $symbol) = @_; my $macro = $symbol->clone(arity => "proc"); my $name = $parser->token; if($name->arity ne "name") { $parser->_unexpected("a name", $name); } # auto filters my @filters; my $t = $parser->advance(); while($t->id eq "|") { $t = $parser->advance(); if($t->arity ne "name") { $parser->_unexpected("a name", $name); } my $filter = $t->clone(); $t = $parser->advance(); my $args; if($t->id eq "(") { $parser->advance(); $args = $parser->expression_list(); $t = $parser->advance(")"); } push @filters, $args ? $parser->call($filter, @{$args}) : $filter; } $parser->define_function($name->id); $macro->first($name); $parser->pointy($macro); my $call = $parser->call($macro->first); if(@filters) { foreach my $filter(@filters) { # apply filters $call = $parser->call($filter, $call); } } # std() can return a list return( $macro, $parser->print($call) ); } sub std_override { # synonym to 'around' my($parser, $symbol) = @_; return $parser->std_proc($symbol->clone(id => 'around')); } sub std_if { my($parser, $symbol, $expr) = @_; my $if = $symbol->clone(arity => "if"); $if->first( $parser->expression(0) ); if(defined $expr) { # statement modifier $if->second([$expr]); return $if; } $if->second( $parser->block() ); my $top_if = $if; my $t = $parser->token; while($t->id eq "elsif") { $parser->reserve($t); $parser->advance(); # "elsif" my $elsif = $t->clone(arity => "if"); $elsif->first( $parser->expression(0) ); $elsif->second( $parser->block() ); $if->third([$elsif]); $if = $elsif; $t = $parser->token; } if($t->id eq "else") { $parser->reserve($t); $t = $parser->advance(); # "else" $if->third( $t->id eq "if" ? [$parser->statement()] : $parser->block()); } return $top_if; } sub std_given { my($parser, $symbol) = @_; my $given = $symbol->clone(arity => 'given'); $given->first( $parser->expression(0) ); local $parser->{in_given} = 1; $parser->pointy($given); if(!(defined $given->second && @{$given->second})) { # if no topic vars $given->second([ $parser->symbol('($_)')->clone(arity => 'variable' ) ]); } $parser->build_given_body($given, "when"); return $given; } # when/default sub std_when { my($parser, $symbol) = @_; if(!$parser->in_given) { $parser->_error("You cannot use $symbol blocks outside given blocks"); } my $proc = $symbol->clone(arity => 'when'); if($symbol->id eq "when") { $proc->first( $parser->expression(0) ); } $proc->second( $parser->block() ); return $proc; } sub _only_white_spaces { my($s) = @_; return $s->arity eq "literal" && $s->value =~ m{\A [ \t\r\n]* \z}xms } sub build_given_body { my($parser, $given, $expect) = @_; my($topic) = @{$given->second}; # make if-elsif-else chain from given-when my $if; my $elsif; my $else; foreach my $when(@{$given->third}) { if($when->arity ne $expect) { # ignore white space if($when->id eq "print_raw" && !grep { !_only_white_spaces($_) } @{$when->first}) { next; } $parser->_unexpected("$expect blocks", $when); } $when->arity("if"); # change the arity if(defined(my $test = $when->first)) { # when if(!$test->is_logical) { $when->first( $parser->binary('~~', $topic, $test) ); } } else { # default $when->first( $parser->symbol('true')->nud($parser) ); $else = $when; next; } if(!defined $if) { $if = $when; $elsif = $when; } else { $elsif->third([$when]); $elsif = $when; } } if(defined $else) { # default if(defined $elsif) { $elsif->third([$else]); } else { $if = $else; # only default } } $given->third(defined $if ? [$if] : undef); return; } sub std_include { my($parser, $symbol) = @_; my $arg = $parser->barename(); my $vars = $parser->localize_vars(); my $stmt = $symbol->clone( first => $arg, second => $vars, arity => 'include', ); return $parser->finish_statement($stmt); } sub std_print { my($parser, $symbol) = @_; my $args; if($parser->token->id ne ";") { $args = $parser->expression_list(); } my $stmt = $symbol->clone( arity => 'print', first => $args, ); return $parser->finish_statement($stmt); } # for cascade() and include() sub barename { my($parser) = @_; my $t = $parser->token; if($t->arity ne 'name' or $t->is_defined) { # string literal for 'cascade', or any expression for 'include' return $parser->expression(0); } # path::to::name my @parts; push @parts, $t; $parser->advance(); while(1) { my $t = $parser->token; if($t->id eq "::") { $t = $parser->advance(); # "::" if($t->arity ne "name") { $parser->_unexpected("a name", $t); } push @parts, $t; $parser->advance(); } else { last; } } return \@parts; } # NOTHING | { expression-list } sub localize_vars { my($parser) = @_; if($parser->token->id eq "{") { $parser->advance(); $parser->new_scope(); my $vars = $parser->expression_list(); $parser->pop_scope(); $parser->advance("}"); return $vars; } return undef; } sub std_cascade { my($parser, $symbol) = @_; my $base; if($parser->token->id ne "with") { $base = $parser->barename(); } my $components; if($parser->token->id eq "with") { $parser->advance(); # "with" my @c = $parser->barename(); while($parser->token->id eq ",") { $parser->advance(); # "," push @c, $parser->barename(); } $components = \@c; } my $vars = $parser->localize_vars(); my $stmt = $symbol->clone( arity => 'cascade', first => $base, second => $components, third => $vars, ); return $parser->finish_statement($stmt); } sub std_super { my($parser, $symbol) = @_; my $stmt = $symbol->clone(arity => 'super'); return $parser->finish_statement($stmt); } sub std_next { my($parser, $symbol) = @_; my $stmt = $symbol->clone(arity => 'loop_control', id => 'next'); return $parser->finish_statement($stmt); } sub std_last { my($parser, $symbol) = @_; my $stmt = $symbol->clone(arity => 'loop_control', id => 'last'); return $parser->finish_statement($stmt); } # iterator elements sub bad_iterator_args { my($parser, $iterator) = @_; $parser->_error("Wrong number of arguments for $iterator." . $iterator->second); } sub iterator_index { my($parser, $iterator, @args) = @_; $parser->bad_iterator_args($iterator) if @args != 0; # $~iterator return $iterator; } sub iterator_count { my($parser, $iterator, @args) = @_; $parser->bad_iterator_args($iterator) if @args != 0; # $~iterator + 1 return $parser->binary('+', $iterator, 1); } sub iterator_is_first { my($parser, $iterator, @args) = @_; $parser->bad_iterator_args($iterator) if @args != 0; # $~iterator == 0 return $parser->binary('==', $iterator, 0); } sub iterator_is_last { my($parser, $iterator, @args) = @_; $parser->bad_iterator_args($iterator) if @args != 0; # $~iterator == $~iterator.max_index return $parser->binary('==', $iterator, $parser->iterator_max_index($iterator)); } sub iterator_body { my($parser, $iterator, @args) = @_; $parser->bad_iterator_args($iterator) if @args != 0; # $~iterator.body return $iterator->clone( arity => 'iterator_body', ); } sub iterator_size { my($parser, $iterator, @args) = @_; $parser->bad_iterator_args($iterator) if @args != 0; # $~iterator.max_index + 1 return $parser->binary('+', $parser->iterator_max_index($iterator), 1); } sub iterator_max_index { my($parser, $iterator, @args) = @_; $parser->bad_iterator_args($iterator) if @args != 0; # __builtin_max_index($~iterator.body) return $parser->symbol('max_index')->clone( arity => 'unary', first => $parser->iterator_body($iterator), ); } sub _iterator_peek { my($parser, $iterator, $pos) = @_; # $~iterator.body[ $~iterator.index + $pos ] return $parser->binary('[', $parser->iterator_body($iterator), $parser->binary('+', $parser->iterator_index($iterator), $pos), ); } sub iterator_peek_next { my($parser, $iterator, @args) = @_; $parser->bad_iterator_args($iterator) if @args != 0; return $parser->_iterator_peek($iterator, +1); } sub iterator_peek_prev { my($parser, $iterator, @args) = @_; $parser->bad_iterator_args($iterator) if @args != 0; # $~iterator.is_first ? nil : return $parser->symbol('?')->clone( arity => 'if', first => $parser->iterator_is_first($iterator), second => [$parser->nil], third => [$parser->_iterator_peek($iterator, -1)], ); } sub iterator_cycle { my($parser, $iterator, @args) = @_; $parser->bad_iterator_args($iterator) if @args < 2; # $iterator.cycle("foo", "bar", "baz") makes: # ($tmp = $~iterator % n) == 0 ? "foo" # : $tmp == 1 ? "bar" # : "baz" $parser->new_scope(); my $mod = $parser->binary('%', $iterator, scalar @args); # for the second time my $tmp = $parser->symbol('($cycle)')->clone(arity => 'name'); # for the first time my $cond = $iterator->clone( arity => 'constant', first => $tmp, second => $mod, ); my $parent = $iterator->clone( arity => 'if', first => $parser->binary('==', $cond, 0), second => [ $args[0] ], ); my $child = $parent; my $last = pop @args; for(my $i = 1; $i < @args; $i++) { my $nth = $iterator->clone( arity => 'if', id => "$iterator.cycle: $i", first => $parser->binary('==', $tmp, $i), second => [$args[$i]], ); $child->third([$nth]); $child = $nth; } $child->third([$last]); $parser->pop_scope(); return $parent; } # utils sub make_alias { # alas(from => to) my($parser, $from, $to) = @_; my $stash = $parser->symbol_table; if(exists $parser->symbol_table->{$to}) { Carp::confess( "Cannot make an alias to an existing symbol ($from => $to / " . p($parser->symbol_table->{$to}) .")"); } # make a snapshot return $stash->{$to} = $parser->symbol($from)->clone( value => $to, # real id ); } sub not_supported { my($parser, $symbol) = @_; $parser->_error("'$symbol' is not supported"); } sub _unexpected { my($parser, $expected, $got) = @_; if(defined($got) && $got ne ";") { if($got eq '(end)') { $parser->_error("Expected $expected, but reached EOF"); } else { $parser->_error("Expected $expected, but got " . neat("$got")); } } else { $parser->_error("Expected $expected"); } } sub _error { my($parser, $message, $near, $line) = @_; $near ||= $parser->near_token || ";"; if($near ne ";" && $message !~ /\b \Q$near\E \b/xms) { $message .= ", near $near"; } die $parser->make_error($message . ", while parsing templates", $parser->file, $line || $parser->line); } no Mouse; __PACKAGE__->meta->make_immutable; __END__ =head1 NAME Text::Xslate::Parser - The base class of template parsers =head1 DESCRIPTION This is a parser to build the abstract syntax tree from templates. The basis of the parser is Top Down Operator Precedence. =head1 SEE ALSO L - Top Down Operator Precedence (Douglas Crockford) L L L =cut Text-Xslate-3.4.0/lib/Text/Xslate/Compiler.pm0000644000175000017500000012510313040324063020321 0ustar syoheisyoheipackage Text::Xslate::Compiler; use Mouse; use Mouse::Util::TypeConstraints; use Scalar::Util (); use Carp (); use Text::Xslate::Parser; use Text::Xslate::Util qw( $DEBUG value_to_literal is_int any_in make_error p ); #use constant _VERBOSE => scalar($DEBUG =~ /\b verbose \b/xms); use constant { _DUMP_ASM => scalar($DEBUG =~ /\b dump=asm \b/xms), _DUMP_AST => scalar($DEBUG =~ /\b dump=ast \b/xms), _DUMP_GEN => scalar($DEBUG =~ /\b dump=gen \b/xms), _DUMP_CAS => scalar($DEBUG =~ /\b dump=cascade \b/xms), _OP_NAME => 0, _OP_ARG => 1, _OP_LINE => 2, _OP_FILE => 3, _OP_LABEL => 4, _OP_COMMENT => 5, _FOR_LOOP => 1, _WHILE_LOOP => 2, }; our $OPTIMIZE = scalar(($DEBUG =~ /\b optimize=(\d+) \b/xms)[0]); if(not defined $OPTIMIZE) { $OPTIMIZE = 1; # enable optimization by default } our @CARP_NOT = qw(Text::Xslate Text::Xslate::Parser); { package Text::Xslate; our %OPS; # to avoid 'once' warnings; } my %binary = ( '==' => 'eq', '!=' => 'ne', '<' => 'lt', '<=' => 'le', '>' => 'gt', '>=' => 'ge', '~~' => 'match', '<=>' => 'ncmp', 'cmp' => 'scmp', '+' => 'add', '-' => 'sub', '*' => 'mul', '/' => 'div', '%' => 'mod', '~' => 'concat', 'x' => 'repeat', '+|' => 'bitor', '+&' => 'bitand', '+^' => 'bitxor', 'min' => 'lt', # a < b ? a : b 'max' => 'gt', # a > b ? a : b '[' => 'fetch_field', ); my %logical_binary = ( '&&' => 'and', '||' => 'or', '//' => 'dor', ); my %unary = ( '!' => 'not', '+' => 'noop', '-' => 'minus', '+^' => 'bitneg', 'max_index' => 'max_index', # for loop context vars ); my %goto_family = map { $_ => undef } qw( for_iter and dand or dor goto ); my %builtin = ( 'html_escape' => ['builtin_html_escape', \&Text::Xslate::Util::html_escape], 'uri_escape' => ['builtin_uri_escape', \&Text::Xslate::Util::uri_escape], 'mark_raw' => ['builtin_mark_raw', \&Text::Xslate::Util::mark_raw], 'unmark_raw' => ['builtin_unmark_raw', \&Text::Xslate::Util::unmark_raw], 'raw' => ['builtin_mark_raw', \&Text::Xslate::Util::mark_raw], 'html' => ['builtin_html_escape', \&Text::Xslate::Util::html_escape], 'uri' => ['builtin_uri_escape', \&Text::Xslate::Util::uri_escape], 'is_array_ref' => ['builtin_is_array_ref', \&Text::Xslate::Util::is_array_ref], 'is_hash_ref' => ['builtin_is_hash_ref', \&Text::Xslate::Util::is_hash_ref], ); has lvar_id => ( # local variable id is => 'rw', isa => 'Int', init_arg => undef, ); has lvar => ( # local variable id table is => 'rw', isa => 'HashRef[Int]', init_arg => undef, ); has const => ( is => 'rw', isa => 'ArrayRef', init_arg => undef, ); has macro_table => ( is => 'rw', isa => 'HashRef', predicate => 'has_macro_table', init_arg => undef, ); has engine => ( # Xslate engine is => 'ro', isa => 'Object', required => 0, weak_ref => 1, ); has dependencies => ( is => 'ro', isa => 'ArrayRef', init_arg => undef, ); has type => ( is => 'rw', isa => enum([qw(html xml text)]), default => 'html', ); has syntax => ( is => 'rw', default => 'Kolon', ); has parser_option => ( is => 'rw', isa => 'HashRef', default => sub { {} }, ); has parser => ( is => 'rw', isa => 'Object', # Text::Xslate::Parser handles => [qw(define_function)], lazy => 1, builder => '_build_parser', init_arg => undef, ); has input_layer => ( is => 'ro', default => ':utf8', ); sub _build_parser { my($self) = @_; my $syntax = $self->syntax; if(ref($syntax)) { return $syntax; } else { my $parser_class = Mouse::Util::load_first_existing_class( "Text::Xslate::Syntax::" . $syntax, $syntax, ); return $parser_class->new( %{$self->parser_option}, engine => $self->engine, compiler => $self, ); } } has cascade => ( is => 'rw', init_arg => undef, ); has [qw(header footer macro)] => ( is => 'rw', isa => 'ArrayRef', ); has current_file => ( is => 'rw', init_arg => undef, ); has file => ( is => 'rw', init_arg => undef, ); has overridden_builtin => ( is => 'ro', isa => 'HashRef', default => sub { +{} }, ); sub lvar_use { my($self, $n) = @_; return $self->lvar_id + $n; } sub filename { my($self) = @_; my $file = $self->file; return ref($file) ? '' : $file; } sub compile { my($self, $input, %args) = @_; # each compiling process is independent local $self->{macro_table} = {}; local $self->{lvar_id } = 0; local $self->{lvar} = {}; local $self->{const} = []; local $self->{in_loop} = 0; local $self->{dependencies} = []; local $self->{cascade}; local $self->{header} = $self->{header}; local $self->{footer} = $self->{footer}; local $self->{macro} = $self->{macro}; local $self->{current_file} = ''; # for opinfo local $self->{file} = $args{file} || \$input; if(my $engine = $self->engine) { my $ob = $self->overridden_builtin; Internals::SvREADONLY($ob, 0); foreach my $name(keys %builtin) { my $f = $engine->{function}{$name}; $ob->{$name} = ( $builtin{$name}[1] != $f ) + 0; } Internals::SvREADONLY($ob, 1); } my $parser = $self->parser; my $header = delete $self->{header}; my $footer = delete $self->{footer}; my $macro = delete $self->{macro}; if(!$args{omit_augment}) { if($header) { substr $input, 0, 0, $self->_cat_files($header); } if($footer) { $input .= $self->_cat_files($footer); } } if($macro) { if(!grep { $_ eq $self->current_file } @$macro) { substr $input, 0, 0, $self->_cat_files($macro); } } my @code; # main code { my $ast = $parser->parse($input, %args); print STDERR p($ast) if _DUMP_AST; @code = ( $self->opcode(set_opinfo => undef, file => $self->current_file, line => 1), $self->compile_ast($ast), $self->opcode('end'), ); } my $cascade = $self->cascade; if(defined $cascade) { $self->_process_cascade($cascade, \%args, \@code); } push @code, $self->_flush_macro_table() if $self->has_macro_table; if($OPTIMIZE) { $self->_optimize_vmcode(\@code) for 1 .. 3; } print STDERR "// ", $self->filename, "\n", $self->as_assembly(\@code, scalar($DEBUG =~ /\b ix \b/xms)) if _DUMP_ASM; { my %uniq; push @code, map { [ depend => $_ ] } grep { !ref($_) and !$uniq{$_}++ } @{$self->dependencies}; } return \@code; } sub opcode { # build an opcode my($self, $name, $arg, %args) = @_; my $symbol = $args{symbol}; my $file = $args{file}; my $label = $args{label}; if(not defined $file) { $file = $self->filename; if(defined $file and $file ne $self->current_file) { $self->current_file($file); } else { $file = undef; } } # name, arg, label, line, file, comment return [ $name => $arg, $args{line} || (ref $symbol ? $symbol->line : undef), $file, $label, $args{comment}, ]; } sub push_expr { my($self, $node) = @_; my $list_op = $node->arity eq 'range'; my @code = ($self->compile_ast($node)); if(not $list_op) { push @code, $self->opcode('push'); } return @code; } sub _cat_files { my($self, $files) = @_; my $engine = $self->engine || $self->_error("No Xslate engine which header/footer requires"); my $s = ''; foreach my $file(@{$files}) { my $fullpath = $engine->find_file($file)->{fullpath}; $s .= $engine->slurp_template( $self->input_layer, $fullpath ); $self->requires($fullpath); } return $s; } our $_lv = -1; sub compile_ast { my($self, $ast) = @_; return if not defined $ast; local $_lv = $_lv + 1 if _DUMP_GEN; my @code; foreach my $node(ref($ast) eq 'ARRAY' ? @{$ast} : $ast) { Scalar::Util::blessed($node) or Carp::confess("[BUG] Not a node object: " . p($node)); printf STDERR "%s"."generate %s (%s)\n", "." x $_lv, $node->arity, $node->id if _DUMP_GEN; my $generator = $self->can('_generate_' . $node->arity) || Carp::confess("[BUG] Unexpected node: " . p($node)); push @code, $self->$generator($node); } return @code; } sub _process_cascade { my($self, $cascade, $args, $main_code) = @_; printf STDERR "# cascade %s %s", $self->file, $cascade->dump if _DUMP_CAS; my $engine = $self->engine || $self->_error("Cannot cascade templates without Xslate engine", $cascade); my($base_file, $base_code); my $base = $cascade->first; my @components = $cascade->second ? (map{ $self->_bare_to_file($_) } @{$cascade->second}) : (); my $vars = $cascade->third; if(defined $base) { # pure cascade $base_file = $self->_bare_to_file($base); $base_code = $engine->load_file($base_file); $self->requires( $engine->find_file($base_file)->{fullpath} ); } else { # overlay $base_file = $args->{file}; # only for error messages $base_code = $main_code; if(defined $args->{fullpath}) { $self->requires( $args->{fullpath} ); } push @{$main_code}, $self->_flush_macro_table(); } foreach my $cfile(@components) { my $code = $engine->load_file($cfile); my $fullpath = $engine->find_file($cfile)->{fullpath}; my $mtable = $self->macro_table; my $macro; foreach my $c(@{$code}) { # $c = [name, arg, line, file, symbol ] # retrieve macros from assembly code if($c->[_OP_NAME] eq 'macro_begin' .. $c->[_OP_NAME] eq 'macro_end') { if($c->[_OP_NAME] eq 'macro_begin') { $macro = []; $macro = { name => $c->[_OP_ARG], line => $c->[_OP_LINE], file => $c->[_OP_FILE], body => [], }; push @{ $mtable->{$c->[_OP_ARG]} ||= [] }, $macro; } elsif($c->[_OP_NAME] eq 'macro_nargs') { $macro->{nargs} = $c->[_OP_ARG]; } elsif($c->[_OP_NAME] eq 'macro_outer') { $macro->{outer} = $c->[_OP_ARG]; } elsif($c->[_OP_NAME] eq 'macro_end') { # noop } else { push @{$macro->{body}}, $c; } } elsif($c->[_OP_NAME] eq 'depend') { $self->requires($c->[_OP_ARG]); } } $self->requires($fullpath); $self->_process_cascade_file($cfile, $base_code); } if(defined $base) { # pure cascade $self->_process_cascade_file($base_file, $base_code); if(defined $vars) { unshift @{$base_code}, $self->_localize_vars($vars); } foreach my $c(@{$main_code}) { if($c->[_OP_NAME] eq 'print_raw_s' && $c->[_OP_ARG] =~ m{ [^ \t\r\n] }xms) { Carp::carp("Xslate: Useless use of text '$c->[1]'"); } } @{$main_code} = @{$base_code}; } else { # overlay return; } } sub _process_cascade_file { my($self, $file, $base_code) = @_; printf STDERR "# cascade file %s\n", p($file) if _DUMP_CAS; my $mtable = $self->macro_table; for(my $i = 0; $i < @{$base_code}; $i++) { my $c = $base_code->[$i]; if($c->[_OP_NAME] ne 'macro_begin') { next; } # macro my $name = $c->[_OP_ARG]; $name =~ s/\@.+$//; printf STDERR "# macro %s\n", $name if _DUMP_CAS; if(exists $mtable->{$name}) { my $m = $mtable->{$name}; if(ref($m) ne 'HASH') { $self->_error('[BUG] Unexpected macro structure: ' . p($m) ); } $self->_error( "Redefinition of macro/block $name in " . $file . " (you must use block modifiers to override macros/blocks)", $m->{line} ); } my $before = delete $mtable->{$name . '@before'}; my $around = delete $mtable->{$name . '@around'}; my $after = delete $mtable->{$name . '@after'}; if(defined $before) { my $n = scalar @{$base_code}; foreach my $m(@{$before}) { splice @{$base_code}, $i+1, 0, @{$m->{body}}; } $i += scalar(@{$base_code}) - $n; } my $macro_start = $i+1; $i++ while($base_code->[$i][_OP_NAME] ne 'macro_end'); # move to the end if(defined $around) { my @original = splice @{$base_code}, $macro_start, ($i - $macro_start); $i = $macro_start; my @body; foreach my $m(@{$around}) { push @body, @{$m->{body}}; } for(my $j = 0; $j < @body; $j++) { if($body[$j][_OP_NAME] eq 'super') { splice @body, $j, 1, @original; } } splice @{$base_code}, $macro_start, 0, @body; $i += scalar(@body); } if(defined $after) { foreach my $m(@{$after}) { splice @{$base_code}, $i, 0, @{$m->{body}}; } } } return; } sub _flush_macro_table { my($self) = @_; my $mtable = $self->macro_table; my @code; foreach my $macros(values %{$mtable}) { foreach my $macro(ref($macros) eq 'ARRAY' ? @{$macros} : $macros) { push @code, $self->opcode( macro_begin => $macro->{name}, file => $macro->{file}, line => $macro->{line} ); push @code, $self->opcode( macro_nargs => $macro->{nargs} ) if $macro->{nargs}; push @code, $self->opcode( macro_outer => $macro->{outer} ) if $macro->{outer}; push @code, @{ $macro->{body} }, $self->opcode('macro_end'); } } %{$mtable} = (); return @code; } sub _generate_name { my($self, $node) = @_; my $id = $node->value; # may be aliased if(defined(my $lvar_id = $self->lvar->{$id})) { # constants my $code = $self->const->[$lvar_id]; if(defined $code) { # because the constant value is very simple, # its definition is optimized away. # only its value remains. return @{$code}; } else { return $self->opcode( load_lvar => $lvar_id, symbol => $node ); } } return $self->opcode( fetch_symbol => $id, line => $node->line ); } sub _generate_operator { my($self, $node) = @_; # This method is called when an operators is used as an expression, # e.g. <: + :>, so simply throws the error $self->_error("Invalid expression", $node); } sub _can_optimize_print { my($self, $name, $node) = @_; return 0 if !$OPTIMIZE; return 0 if !($name eq 'print' or $name eq 'print_raw'); my $maybe_name = $node->first; return $node->arity eq 'call' && $maybe_name->arity eq 'name' && @{$node->second} == 1 # args of the filter && any_in($maybe_name->id, qw(raw mark_raw html)) && !$self->overridden_builtin->{$maybe_name->id}; } # also deal with smart escaping sub _generate_print { my($self, $node) = @_; my @code; my $proc = $node->id; if($proc eq 'print' and $self->type eq 'text') { $proc = 'print_raw'; } foreach my $arg(@{ $node->first }){ if( $proc eq 'print' && $self->overridden_builtin->{html_escape} ) { # default behaviour of print() is overridden push @code, $self->opcode('pushmark'), $self->compile_ast($arg), $self->opcode('push'), $self->opcode('fetch_symbol' => 'html_escape'), $self->opcode('funcall'), $self->opcode('print_raw'); } elsif(exists $Text::Xslate::OPS{$proc . '_s'} && $arg->arity eq 'literal'){ push @code, $self->opcode( $proc . '_s' => $arg->value, line => $arg->line ); } elsif($self->_can_optimize_print($proc, $arg)){ my $filter = $arg->first; my $filter_name = $filter->id; my $command = $builtin{ $filter_name }[0] eq 'builtin_mark_raw' ? 'print_raw' # mark_raw, raw : 'print'; # html push @code, $self->compile_ast($arg->second->[0]), $self->opcode( $command => undef, symbol => $filter ); } else { push @code, $self->compile_ast($arg), $self->opcode( $proc => undef, line => $node->line ); } } if(!@code) { $self->_error("$node requires at least one argument", $node); } return @code; } sub _generate_include { my($self, $node) = @_; my $file = $node->first; my @code = ( ( ref($file) eq 'ARRAY' ? $self->opcode( literal => $self->_bare_to_file($file) ) : $self->compile_ast($file) ), $self->opcode( $node->id => undef, line => $node->line ), ); if(defined(my $vars = $node->second)) { @code = ($self->opcode('enter'), $self->_localize_vars($vars), @code, $self->opcode('leave'), ); } return @code; } sub _bare_to_file { my($self, $file) = @_; if(ref($file) eq 'ARRAY') { # myapp::foo return join('/', map { $_->value } @{$file}) . $self->{engine}->{suffix}; } elsif($file->arity eq 'literal') { return $file->value; } else { $self->_error("Expected a name or string literal", $file); } } sub _generate_cascade { my($self, $node) = @_; if(defined $self->cascade) { $self->_error("Cannot cascade twice in a template", $node); } $self->cascade( $node ); return; } # XXX: need more consideration sub _compile_loop_block { my($self, $block) = @_; my @block_code = $self->compile_ast($block); foreach my $op(@block_code) { if(any_in( $op->[_OP_NAME], qw(pushmark loop_control))) { # pushmark ... funcall (or something) may create mortal SVs # so surround the block with ENTER and LEAVE unshift @block_code, $self->opcode('enter'); push @block_code, $self->opcode('leave'); last; } } foreach my $i(1 .. (@block_code-1)) { my $op = $block_code[$i]; if($op->[_OP_NAME] eq 'loop_control') { my $type = $op->[_OP_ARG]; $op->[_OP_NAME] = 'goto'; $op->[_OP_ARG] = (@block_code - $i); $op->[_OP_ARG] += 1 if $type eq 'last'; } } return @block_code; } sub _generate_for { my($self, $node) = @_; my $expr = $node->first; my $vars = $node->second; my $block = $node->third; if(@{$vars} != 1) { $self->_error("A for-loop requires single variable for each item", $node); } local $self->{lvar} = { %{$self->lvar} }; # new scope local $self->{const} = [ @{$self->const} ]; # new scope local $self->{in_loop} = _FOR_LOOP; my @code = $self->compile_ast($expr); my($iter_var) = @{$vars}; my $lvar_id = $self->lvar_id; my $lvar_name = $iter_var->id; $self->lvar->{$lvar_name} = $lvar_id; $self->lvar->{'($_)'} = $lvar_id; push @code, $self->opcode( for_start => $lvar_id, symbol => $iter_var ); # a for statement uses three local variables (container, iterator, and item) local $self->{lvar_id} = $self->lvar_use(3); my @block_code = $self->_compile_loop_block($block); push @code, $self->opcode( literal_i => $lvar_id, symbol => $iter_var ), $self->opcode( for_iter => scalar(@block_code) + 2 ), @block_code, $self->opcode( goto => -(scalar(@block_code) + 2), comment => "end for" ); return @code; } sub _generate_for_else { my($self, $node) = @_; my $for_block = $node->first; my $else_block = $node->second; my @code = ( $self->compile_ast($for_block), ); # 'for' block sets __a with true if the loop count > 0 my @else = $self->compile_ast($else_block); push @code, ( $self->opcode( or => scalar(@else) + 1, comment => 'for-else' ), @else, ); return @code; } sub _generate_while { my($self, $node) = @_; my $expr = $node->first; my $vars = $node->second; my $block = $node->third; if(@{$vars} > 1) { $self->_error("A while-loop requires one or zero variable for each items", $node); } (my $cond_op, undef, $expr) = $self->_prepare_cond_expr($expr); # TODO: combine all the loop contexts into single one local $self->{lvar} = { %{$self->lvar} }; # new scope local $self->{const} = [ @{$self->const} ]; # new scope local $self->{in_loop} = _WHILE_LOOP; my @code = $self->compile_ast($expr); my($iter_var) = @{$vars}; my($lvar_id, $lvar_name); if(@{$vars}) { $lvar_id = $self->lvar_id; $lvar_name = $iter_var->id; $self->lvar->{$lvar_name} = $lvar_id; push @code, $self->opcode( save_to_lvar => $lvar_id, symbol => $iter_var ); } local $self->{lvar_id} = $self->lvar_use(scalar @{$vars}); my @block_code = $self->_compile_loop_block($block); return @code, $self->opcode( $cond_op => scalar(@block_code) + 2, symbol => $node ), @block_code, $self->opcode( goto => -(scalar(@block_code) + scalar(@code) + 1), comment => "end while" ); return @code; } sub _generate_loop_control { my($self, $node) = @_; my $type = $node->id; any_in($type, qw(last next)) or $self->_error("[BUG] Unknown loop control statement '$type'"); if(not $self->{in_loop}) { $self->_error("Use of loop control statement ($type) outside of loops"); } my @cleanup; if( $self->{in_loop} == _FOR_LOOP && $type eq 'last' ) { my $lvar_id = $self->lvar->{'($_)'}; defined($lvar_id) or $self->_error('[BUG] Undefined loop iterator'); @cleanup = ( $self->opcode( 'nil', undef, comment => 'to clean the loop context' ), $self->opcode( save_to_lvar => $lvar_id + 0), # item $self->opcode( save_to_lvar => $lvar_id + 1), # iterator $self->opcode( save_to_lvar => $lvar_id + 2), # body $self->opcode( literal_i => 1 ), # for 'for-else' ); } return $self->opcode('leave'), @cleanup, $self->opcode('loop_control' => $type, comment => $type); } sub _generate_proc { # definition of macro, block, before, around, after my($self, $node) = @_; my $type = $node->id; my $name = $node->first->id; my @args = map{ $_->id } @{$node->second}; my $block = $node->third; local $self->{lvar} = { %{$self->lvar} }; # new scope local $self->{const} = [ @{$self->const} ]; # new scope my $lvar_used = $self->lvar_id; my $arg_ix = 0; foreach my $arg(@args) { # to fetch ST(ix) # Note that arg_ix must be start from 1 $self->lvar->{$arg} = $lvar_used + $arg_ix++; } local $self->{lvar_id} = $self->lvar_use($arg_ix); my $opinfo = $self->opcode(set_opinfo => undef, file => $self->filename, line => $node->line); my %macro = ( name => $name, nargs => $arg_ix, body => [ $opinfo, $self->compile_ast($block) ], line => $opinfo->[2], file => $opinfo->[3], outer => $lvar_used, ); if(any_in($type, qw(macro block))) { if(exists $self->macro_table->{$name}) { my $m = $self->macro_table->{$name}; if(p(\%macro) ne p($m)) { $self->_error("Redefinition of $type $name is forbidden", $node); } } $self->macro_table->{$name} = \%macro; } else { my $fq_name = sprintf '%s@%s', $name, $type; $macro{name} = $fq_name; push @{ $self->macro_table->{ $fq_name } ||= [] }, \%macro; } return; } sub _generate_lambda { my($self, $node) = @_; my $macro = $node->first; $self->compile_ast($macro); return $self->opcode( fetch_symbol => $macro->first->id, line => $node->line ); } sub _prepare_cond_expr { my($self, $expr) = @_; my $t = "and"; my $f = "or"; while($expr->id eq '!') { $expr = $expr->first; ($t, $f) = ($f, $t); } if($expr->is_logical and any_in($expr->id, qw(== !=))) { my $rhs = $expr->second; if($rhs->arity eq "nil") { # add prefix 'd' (i.e. "and" to "dand", "or" to "dor") substr $t, 0, 0, 'd'; substr $f, 0, 0, 'd'; if($expr->id eq "==") { ($t, $f) = ($f, $t); } $expr = $expr->first; } } return($t, $f, $expr); } sub _generate_if { my($self, $node) = @_; my $first = $node->first; my $second = $node->second; my $third = $node->third; my($cond_true, $cond_false, $expr) = $self->_prepare_cond_expr($first); local $self->{lvar} = { %{$self->lvar} }; # new scope local $self->{const} = [ @{$self->const} ]; # new scope my @cond = $self->compile_ast($expr); my @then = do { local $self->{lvar} = { %{$self->lvar} }; # new scope local $self->{const} = [ @{$self->const} ]; # new scope $self->compile_ast($second); }; my @else = do { local $self->{lvar} = { %{$self->lvar} }; # new scope local $self->{const} = [ @{$self->const} ]; # new scope $self->compile_ast($third); }; if($OPTIMIZE) { if($self->_code_is_literal(@cond)) { my $value = $cond[0][_OP_ARG]; if($cond_true eq 'and' ? $value : !$value) { return @then; } else { return @else; } } } if( (@then and @else) or !$OPTIMIZE) { return( @cond, $self->opcode( $cond_true => scalar(@then) + 2, comment => $node->id . ' (then)' ), @then, $self->opcode( goto => scalar(@else) + 1, comment => $node->id . ' (else)' ), @else, ); } elsif(!@else) { # no @else return( @cond, $self->opcode( $cond_true => scalar(@then) + 1, comment => $node->id . ' (then/no-else)' ), @then, ); } else { # no @then return( @cond, $self->opcode( $cond_false => scalar(@else) + 1, comment => $node->id . ' (else/no-then)'), @else, ); } } sub _generate_given { my($self, $node) = @_; my $expr = $node->first; my $vars = $node->second; my $block = $node->third; if(@{$vars} > 1) { $self->_error("A given block requires one or zero variables", $node); } local $self->{lvar} = { %{$self->lvar} }; # new scope local $self->{const} = [ @{$self->const} ]; # new scope my @code = $self->compile_ast($expr); my($lvar) = @{$vars}; my $lvar_id = $self->lvar_id; my $lvar_name = $lvar->id; $self->lvar->{$lvar_name} = $lvar_id; local $self->{lvar_id} = $self->lvar_use(1); # topic variable push @code, $self->opcode( save_to_lvar => $lvar_id, symbol => $lvar ), $self->compile_ast($block); return @code; } sub _generate_variable { my($self, $node) = @_; if(defined(my $lvar_id = $self->lvar->{$node->value})) { return $self->opcode( load_lvar => $lvar_id, symbol => $node ); } else { my $name = $self->_variable_to_value($node); if($name =~ /~/) { $self->_error("Undefined iterator variable $node", $node); } return $self->opcode( fetch_s => $name, line => $node->line ); } } sub _generate_super { my($self, $node) = @_; return return $self->opcode( super => undef, symbol => $node ); } sub _generate_literal { my($self, $node) = @_; return $self->opcode( literal => $node->value ); } sub _generate_nil { my($self) = @_; return $self->opcode('nil'); } sub _generate_vars { my($self) = @_; return $self->opcode('vars'); } sub _generate_composer { my($self, $node) = @_; my $list = $node->first; my $type = $node->id eq '{' ? 'make_hash' : 'make_array'; return $self->opcode( pushmark => undef, comment => $type ), (map{ $self->push_expr($_) } @{$list}), $self->opcode($type), ; } sub _generate_unary { my($self, $node) = @_; my $id = $node->id; if(exists $unary{$id}) { my @operand = $self->compile_ast($node->first); my @code = ( @operand, $self->opcode( $unary{$id} ) ); if( $OPTIMIZE and $self->_code_is_literal(@operand) ) { $self->_fold_constants(\@code); } return @code; } else { $self->_error("Unary operator $id is not implemented", $node); } } sub _generate_field { my($self, $node) = @_; my @lhs = $self->compile_ast($node->first); my $field = $node->second; # $foo.field # $foo["field"] if($field->arity eq "literal") { return @lhs, $self->opcode( fetch_field_s => $field->value ); } # $foo[expression] else { local $self->{lvar_id} = $self->lvar_use(1); my @rhs = $self->compile_ast($field); if($OPTIMIZE and $self->_code_is_literal(@rhs)) { return @lhs, $self->opcode( fetch_field_s => $rhs[0][1] ); } return @lhs, $self->opcode( save_to_lvar => $self->lvar_id ), @rhs, $self->opcode( load_lvar_to_sb => $self->lvar_id ), $self->opcode( 'fetch_field' ), ; } } sub _generate_binary { my($self, $node) = @_; my @lhs = $self->compile_ast($node->first); my $id = $node->id; if(exists $binary{$id}) { local $self->{lvar_id} = $self->lvar_use(1); my @rhs = $self->compile_ast($node->second); my @code = ( @lhs, $self->opcode( save_to_lvar => $self->lvar_id ), @rhs, $self->opcode( load_lvar_to_sb => $self->lvar_id ), $self->opcode( $binary{$id} ), ); if(any_in($id, qw(min max))) { local $self->{lvar_id} = $self->lvar_use(1); splice @code, -1, 0, $self->opcode(save_to_lvar => $self->lvar_id ); # save lhs push @code, $self->opcode( or => +2 , symbol => $node ), $self->opcode( load_lvar_to_sb => $self->lvar_id ), # on true # fall through $self->opcode( 'move_from_sb' ), # on false } if($OPTIMIZE) { if( $self->_code_is_literal(@lhs) and $self->_code_is_literal(@rhs) ){ $self->_fold_constants(\@code); } } return @code; } elsif(exists $logical_binary{$id}) { my @rhs = $self->compile_ast($node->second); return @lhs, $self->opcode( $logical_binary{$id} => scalar(@rhs) + 1, symbol => $node ), @rhs; } $self->_error("Binary operator $id is not implemented", $node); } sub _generate_range { my($self, $node) = @_; $self->can_be_in_list_context or $self->_error("Range operator must be in list context"); my @lhs = $self->compile_ast($node->first); local $self->{lvar_id} = $self->lvar_use(1); my @rhs = $self->compile_ast($node->second); return( @lhs, $self->opcode( save_to_lvar => $self->lvar_id ), @rhs, $self->opcode( load_lvar_to_sb => $self->lvar_id ), $self->opcode( 'range' ), ); } sub _generate_methodcall { my($self, $node) = @_; my $args = $node->third; my $method = $node->second->value; return ( $self->opcode( pushmark => undef, comment => $method ), $self->push_expr($node->first), (map { $self->push_expr($_) } @{$args}), $self->opcode( methodcall_s => $method, line => $node->line ), ); } sub _generate_call { my($self, $node) = @_; my $callable = $node->first; # function or macro my $args = $node->second; if(my $intern = $builtin{$callable->id} and !$self->overridden_builtin->{$callable->id}) { if(@{$args} != 1) { $self->_error("Wrong number of arguments for $callable", $node); } return $self->compile_ast($args->[0]), [ $intern->[0] => undef, $node->line ]; } return( $self->opcode( pushmark => undef, comment => $callable->id ), (map { $self->push_expr($_) } @{$args}), $self->compile_ast($callable), $self->opcode( 'funcall' ) ); } # $~iterator sub _generate_iterator { my($self, $node) = @_; my $item_var = $node->first; my $lvar_id = $self->lvar->{$item_var}; if(!defined($lvar_id)) { $self->_error("Refer to iterator $node, but $item_var is not defined", $node); } return $self->opcode( load_lvar => $lvar_id + 1, symbol => $node, ); } # $~iterator.body sub _generate_iterator_body { my($self, $node) = @_; my $item_var = $node->first; my $lvar_id = $self->lvar->{$item_var}; if(!defined($lvar_id)) { $self->_error("Refer to iterator $node.body, but $item_var is not defined", $node); } return $self->opcode( load_lvar => $lvar_id + 2, symbol => $node, ); } sub _generate_assign { my($self, $node) = @_; my $lhs = $node->first; my $rhs = $node->second; my $is_decl = $node->third; my $lvar = $self->lvar; my $lvar_name = $lhs->id; if($node->id ne "=") { $self->_error("Assignment ($node) is not supported", $node); } my @expr = $self->compile_ast($rhs); if($is_decl) { $lvar->{$lvar_name} = $self->lvar_id; $self->{lvar_id} = $self->lvar_use(1); # don't use local() } if(!exists $lvar->{$lvar_name} or $lhs->arity ne "variable") { $self->_error("Cannot modify $lhs, which is not a lexical variable", $node); } return @expr, $self->opcode( save_to_lvar => $lvar->{$lvar_name}, symbol => $lhs, comment => $node->id); } sub _generate_constant { my($self, $node) = @_; my $lhs = $node->first; my $rhs = $node->second; my @expr = $self->compile_ast($rhs); my $lvar = $self->lvar; my $lvar_id = $self->lvar_id; my $lvar_name = $lhs->id; $lvar->{$lvar_name} = $lvar_id; $self->{lvar_id} = $self->lvar_use(1); # don't use local() if($OPTIMIZE) { if(@expr == 1 && any_in($expr[0][_OP_NAME], qw(literal load_lvar))) { $expr[0][_OP_COMMENT] = "constant $lvar_name"; $self->const->[$lvar_id] = \@expr; return @expr; # no real definition } } return @expr, $self->opcode( save_to_lvar => $lvar_id, symbol => $lhs, comment => $node->id); } sub _localize_vars { my($self, $vars) = @_; my @localize; my @pairs = @{$vars}; if( (@pairs % 2) != 0 ) { if(@pairs == 1) { return $self->compile_ast(@pairs), $self->opcode( 'localize_vars' ); } else { $self->_error("You must pass pairs of expressions to include"); } } while(my($key, $expr) = splice @pairs, 0, 2) { if(!any_in($key->arity, qw(literal variable))) { $self->_error("You must pass a simple name to localize variables", $key); } push @localize, $self->compile_ast($expr), $self->opcode( localize_s => $key->value, symbol => $key ); } return @localize; } sub _variable_to_value { my($self, $arg) = @_; my $name = $arg->value; $name =~ s/\$//; return $name; } sub requires { my($self, @files) = @_; push @{ $self->dependencies }, @files; return; } sub can_be_in_list_context { my $i = 2; while(my $funcname = (caller ++$i)[3]) { if($funcname =~ /::_generate_(\w+) \z/xms) { return any_in($1, qw( methodcall call composer )); } } return 0; } # optimizatin stuff sub _code_is_literal { my($self, @code) = @_; return @code == 1 && ( $code[0][_OP_NAME] eq 'literal' || $code[0][_OP_NAME] eq 'literal_i'); } sub _fold_constants { my($self, $code) = @_; my $engine = $self->engine or return 0; local $engine->{warn_handler} = \&Carp::croak; local $engine->{die_handler} = \&Carp::croak; local $engine->{verbose} = 1; my $result = eval { my @tmp_code = (@{$code}, $self->opcode('print_raw'), $self->opcode('end')); $engine->_assemble(\@tmp_code, '', undef, undef, undef); $engine->render(''); }; if($@) { Carp::carp("[BUG] Constant folding failed (ignored): $@"); return 0; } @{$code} = ($self->opcode( literal => $result, comment => "optimized by constant folding")); return 1; } sub _noop { my($self, $op) = @_; @{$op} = @{ $self->opcode( noop => undef, comment => "ex-$op->[0]") }; return; } sub _optimize_vmcode { my($self, $c) = @_; # calculate goto addresses # eg: # # goto +3 # foo # noop # bar // goto destination # # to be: # # goto +2 # foo # bar // goto destination my @goto_addr; for(my $i = 0; $i < @{$c}; $i++) { if(exists $goto_family{ $c->[$i][_OP_NAME] }) { my $addr = $c->[$i][_OP_ARG]; # relational addr # mark ragens that goto family have its effects my @range = $addr > 0 ? ($i .. ($i+$addr-1)) # positive : (($i+$addr) .. $i); # negative foreach my $j(@range) { push @{$goto_addr[$j] ||= []}, $c->[$i]; } } } for(my $i = 0; $i < @{$c}; $i++) { my $name = $c->[$i][_OP_NAME]; if($name eq 'print_raw_s') { # merge a chain of print_raw_s into single command my $j = $i + 1; # from the next op while($j < @{$c} && $c->[$j][_OP_NAME] eq 'print_raw_s' && "@{$goto_addr[$i] || []}" eq "@{$goto_addr[$j] || []}") { $c->[$i][_OP_ARG] .= $c->[$j][_OP_ARG]; $self->_noop($c->[$j]); $j++; } } elsif($name eq 'save_to_lvar') { # use registers, instead of local variables # # given: # save_to_lvar $n # # load_lvar_to_sb $n # convert into: # move_to_sb # my $it = $c->[$i]; my $nn = $c->[$i+2]; # next next if(defined($nn) && $nn->[_OP_NAME] eq 'load_lvar_to_sb' && $nn->[_OP_ARG] == $it->[_OP_ARG]) { @{$it} = @{$self->opcode( move_to_sb => undef, comment => "ex-$it->[0]" )}; $self->_noop($nn); } } elsif($name eq 'literal') { if(is_int($c->[$i][_OP_ARG])) { $c->[$i][_OP_NAME] = 'literal_i'; $c->[$i][_OP_ARG] = int($c->[$i][_OP_ARG]); # force int } } elsif($name eq 'fetch_field') { my $prev = $c->[$i-1]; if($prev->[_OP_NAME] =~ /^literal/) { # literal or literal_i $c->[$i][_OP_NAME] = 'fetch_field_s'; $c->[$i][_OP_ARG] = $prev->[_OP_ARG]; # arg $self->_noop($prev); } } } # remove noop for(my $i = 0; $i < @{$c}; $i++) { if($c->[$i][_OP_NAME] eq 'noop') { if(defined $goto_addr[$i]) { foreach my $goto(@{ $goto_addr[$i] }) { # reduce its absolute value $goto->[1] > 0 ? $goto->[1]-- # positive : $goto->[1]++; # negative } } splice @{$c}, $i, 1; # adjust @goto_addr, but it may be empty splice @goto_addr, $i, 1 if @goto_addr > $i; } } return; } sub as_assembly { my($self, $code_ref, $addix) = @_; my $asm = ""; foreach my $ix(0 .. (@{$code_ref}-1)) { my($name, $arg, $line, $file, $label, $comment) = @{$code_ref->[$ix]}; $asm .= "$ix:" if $addix; # for debugging # "$opname $arg #$line:$file *$symbol // $comment" ref($name) and die "Oops: " . p($code_ref->[$ix]); $asm .= $name; if(defined $arg) { $asm .= " " . value_to_literal($arg); } if(defined $line) { $asm .= " #$line"; if(defined $file) { $asm .= ":" . value_to_literal($file); } } if(defined $label) { $asm .= " " . value_to_literal($label); } if(defined $comment) { $asm .= " // $comment"; } $asm .= "\n"; } return $asm; } sub _error { my($self, $message, $node) = @_; my $line = ref($node) ? $node->line : $node; die $self->make_error($message, $self->file, $line); } no Mouse; no Mouse::Util::TypeConstraints; __PACKAGE__->meta->make_immutable; __END__ =head1 NAME Text::Xslate::Compiler - An Xslate compiler to generate intermediate code =head1 DESCRIPTION This is the Xslate compiler to generate the intermediate code from the abstract syntax tree that parsers build from templates. =head1 SEE ALSO L L L =cut Text-Xslate-3.4.0/lib/Text/Xslate/HashWithDefault.pm0000644000175000017500000000160113040324063021567 0ustar syoheisyoheipackage Text::Xslate::HashWithDefault; use strict; use Tie::Hash; our @ISA = qw(Tie::ExtraHash); sub TIEHASH { my($class, $storage, $default) = @_; return bless [ $storage, $default ], $class; } sub FETCH { my($self, $key) = @_; if(exists $self->[0]{$key}) { return $self->[0]{$key}; } else { return ref($self->[1]) eq 'CODE' ? $self->[1]->($key) : $self->[1]; } } 1; __END__ =head1 NAME Text::Xslate::HashWithDefault - Helper class to fill in default values =head1 SYNOPSIS use Text::Xslate::Util qw(hash_with_default); my $hash_ref = hash_with_default({ }, sub { "FILLME('@_')" }); print $hash_ref->{foo}; # FILLME('foo') =head1 DESCRIPTION This is a helper class to provide C functionality, which is useful for debugging. See L for details. =cut Text-Xslate-3.4.0/lib/Text/Xslate/Symbol.pm0000644000175000017500000001074313040324063020017 0ustar syoheisyoheipackage Text::Xslate::Symbol; use Mouse; use Text::Xslate::Util qw(p $DEBUG); use overload bool => sub() { 1 }, '""' => sub { $_[0]->id }, fallback => 1, ; our @CARP_NOT = qw(Text::Xslate::Parser); use constant _DUMP_DENOTE => scalar($DEBUG =~ /\b dump=denote \b/xmsi); has id => ( is => 'rw', isa => 'Str', required => 1, ); has lbp => ( # left binding power is => 'rw', isa => 'Int', lazy => 1, default => 0, ); has ubp => ( # unary binding power is => 'rw', isa => 'Int', required => 0, ); has value => ( is => 'rw', lazy => 1, builder => 'id', trigger => sub { my($self) = @_; $self->is_value(1); return; }, # default => sub{ # if(!defined $_[0]) { #XXX: Mouse::XS's bug # my(undef, $file, $line) = caller; # warn "[bug] no invocant at $file line $line.\n"; # return '(null)'; # } # return $_[0]->id # }, ); # some tokens have the counterpart token (e.g. '{' to '}') has counterpart => ( is => 'rw', isa => 'Str', required => 0, ); # flags has [ 'is_reserved', # set by reserve() 'is_defined', # set by define() 'is_block_end', # block ending markers 'is_logical', # logical operators 'is_comma', # comma like operators 'is_value', # symbols with values 'is_statement', # expr but a statement (e.g. assignment) 'can_be_modifier', # statement modifiers (e.g. expr if cond) ] => ( is => 'rw', isa => 'Bool', required => 0, ); has nud => ( # null denotation is => 'bare', isa => 'CodeRef', writer => 'set_nud', reader => 'get_nud', predicate => 'has_nud', clearer => 'remove_nud', trigger => sub{ my($self) = @_; $self->is_value(1); return; }, lazy_build => 1, required => 0, ); has led => ( # left denotation is => 'bare', isa => 'CodeRef', writer => 'set_led', reader => 'get_led', predicate => 'has_led', clearer => 'remove_led', lazy_build => 1, required => 0, ); has std => ( # statement denotation is => 'bare', isa => 'CodeRef', writer => 'set_std', reader => 'get_std', predicate => 'has_std', clearer => 'remove_std', lazy_build => 1, required => 0, ); has [qw(first second third)] => ( is => 'rw', required => 0, ); has type => ( is => 'rw', isa => 'Str', required => 0, ); has arity => ( is => 'rw', isa => 'Str', lazy => 1, default => 'name', required => 0, ); has assignment => ( is => 'rw', isa => 'Bool', required => 0, ); #has scope => ( # is => 'rw', # isa => 'HashRef', # # required => 0, #); has line => ( is => 'rw', isa => 'Int', lazy => 1, default => 0, ); sub _build_nud { return \&_nud_default; } sub _build_led { return \&_led_default; } sub _build_std { return \&_std_default; } sub _nud_default { my($parser, $symbol) = @_; return $parser->default_nud($symbol); } sub _led_default { my($parser, $symbol) = @_; return $parser->default_led($symbol); } sub _std_default { my($parser, $symbol) = @_; return $parser->default_std($symbol); } sub nud { my($self, $parser, @args) = @_; $self->_dump_denote('nud', $parser) if _DUMP_DENOTE; return $self->get_nud()->($parser, $self, @args); } sub led { my($self, $parser, @args) = @_; $self->_dump_denote('led', $parser) if _DUMP_DENOTE; return $self->get_led()->($parser, $self, @args); } sub std { my($self, $parser, @args) = @_; $self->_dump_denote('std', $parser) if _DUMP_DENOTE; return $self->get_std()->($parser, $self, @args); } sub clone { my $self = shift; return $self->meta->clone_object($self, @_); } sub _dump_denote { my($self, $type, $parser) = @_; my $attr = $self->meta->get_attribute($type); my $entity = $attr->has_value($self) ? $attr->get_value($self) : $parser->can('default_' . $type); require B; my $cvgv = B::svref_2object($entity)->GV; printf STDERR "%s: %s::%s (%s:%s)\n", $type, $cvgv->STASH->NAME, $cvgv->NAME, $self->id, $self->line, ; } no Mouse; __PACKAGE__->meta->make_immutable; __END__ =head1 NAME Text::Xslate::Symbol - The symbol representation used by parsers and compilers =cut Text-Xslate-3.4.0/lib/Text/Xslate/Util.pm0000644000175000017500000002107013040324063017462 0ustar syoheisyoheipackage Text::Xslate::Util; use strict; use warnings; use Carp (); use parent qw(Exporter); our @EXPORT_OK = qw( mark_raw unmark_raw html_escape escaped_string uri_escape p dump html_builder hash_with_default literal_to_value value_to_literal import_from neat is_int any_in read_around make_error $DEBUG $STRING $NUMBER ); our $DEBUG; defined($DEBUG) or $DEBUG = $ENV{XSLATE} || ''; our $DisplayWidth = 76; if($DEBUG =~ /display_width=(\d+)/) { $DisplayWidth = $1; } # cf. http://swtch.com/~rsc/regexp/regexp1.html my $dquoted = qr/" [^"\\]* (?: \\. [^"\\]* )* "/xms; my $squoted = qr/' [^'\\]* (?: \\. [^'\\]* )* '/xms; our $STRING = qr/(?: $dquoted | $squoted )/xms; our $NUMBER = qr/ (?: (?: [0-9][0-9_]* (?: \. [0-9_]+)? \b) # decimal | (?: 0 (?: (?: [0-7_]+ ) # octal | (?: x [0-9a-fA-F_]+) # hex | (?: b [01_]+ ) # binary )?) )/xms; require Text::Xslate; # load XS stuff sub mark_raw; # XS sub unmark_raw; # XS sub html_escape; # XS sub uri_escape; # XS sub escaped_string; *escaped_string = \&mark_raw; sub merge_hash; # XS sub html_builder (&){ my($code_ref) = @_; return sub { my $ret = $code_ref->(@_); return ref($ret) eq 'CODE' ? html_builder(\&{$ret}) : mark_raw($ret); }; } sub hash_with_default { my($hash_ref, $default) = @_; ref($hash_ref) eq 'HASH' or Carp::croak('Usage: hash_with_default(\%vars, $default)'); require 'Text/Xslate/HashWithDefault.pm'; my %vars; tie %vars, 'Text::Xslate::HashWithDefault', $hash_ref, $default; return \%vars; } # for internals sub neat { my($s) = @_; if ( defined $s ) { if ( ref($s) || Scalar::Util::looks_like_number($s) ) { return $s; } else { return "'$s'"; } } else { return 'nil'; } } sub is_int { my($s) = @_; # XXX: '+1', '1.0', '00', must NOT be interpreted as an integer return defined($s) && $s =~ /\A -? [0-9]+ \z/xms && int($s) eq $s && abs(int($s)) < 0x7FFF_FFFF; # fits int32_t } sub any_in { my $value = shift; if(defined $value) { return scalar grep { defined($_) && $value eq $_ } @_; } else { return scalar grep { not defined($_) } @_; } } my %esc2char = ( 't' => "\t", 'n' => "\n", 'r' => "\r", ); sub literal_to_value { my($value) = @_; return $value if not defined $value; if($value =~ s/\A "(.*)" \z/$1/xms){ $value =~ s/\\(.)/$esc2char{$1} || $1/xmseg; } elsif($value =~ s/\A '(.*)' \z/$1/xms) { $value =~ s/\\(['\\])/$1/xmsg; # ' for poor editors } elsif($value =~ /\A [+-]? $NUMBER \z/xmso) { if($value =~ s/\A ([+-]?) (?= 0[0-7xb])//xms) { $value = ($1 eq '-' ? -1 : +1) * oct($value); # also grok hex and binary } else { $value =~ s/_//xmsg; } } return $value; } my %char2esc = ( "\\" => '\\\\', "\n" => '\\n', "\r" => '\\r', '"' => '\\"', '$' => '\\$', '@' => '\\@', ); my $value_chars = join '|', map { quotemeta } keys %char2esc; sub value_to_literal { my($value) = @_; return 'undef' if not defined $value; if(is_int($value)){ return $value; } else { $value =~ s/($value_chars)/$char2esc{$1}/xmsgeo; return qq{"$value"}; } } sub import_from { my $code = "# Text::Xslate::Util::import_from()\n" . "package " . "Text::Xslate::Util::_import;\n" . "use warnings FATAL => 'all';\n" . 'my @args;' . "\n"; for(my $i = 0; $i < @_; $i++) { my $module = $_[$i]; if($module =~ /[^a-zA-Z0-9_:]/) { Carp::confess("Xslate: Invalid module name: $module"); } my $commands; if(ref $_[$i+1]){ require 'Data/Dumper.pm'; my @args = ($_[++$i]); my @protos = ('*data'); $commands = Data::Dumper->new(\@args, \@protos)->Terse(1)->Dump(); } $code .= "use $module ();\n" if !$module->can('export_into_xslate'); if(!defined($commands) or $commands ne '') { $code .= sprintf <<'END_IMPORT', $module, $commands || '()'; @args = %2$s; %1$s->can('export_into_xslate') ? %1$s->export_into_xslate(\@funcs, @args) # bridge modules : %1$s->import(@args); # function-based modules END_IMPORT } } local $Text::Xslate::Util::{'_import::'}; #print STDERR $code; my @funcs; my $e = do { local $@; eval qq{package} . qq{ Text::Xslate::Util::_import;\n} . $code; $@; }; Carp::confess("Xslate: Failed to import:\n" . $e) if $e; push @funcs, map { my $entity_ref = \$Text::Xslate::Util::_import::{$_}; my $c; if(ref($entity_ref) eq 'GLOB') { # normal symbols $c = *{$entity_ref}{CODE}; } elsif(ref($entity_ref) eq 'REF') { # special constants no strict 'refs'; $c = \&{ 'Text::Xslate::Util::_import::' . $_ }; } defined($c) ? ($_ => $c) : (); } keys %Text::Xslate::Util::_import::; return {@funcs}; } sub make_error { my($self, $message, $file, $line, @extra) = @_; if(ref $message eq 'SCALAR') { # re-thrown form virtual machines return ${$message}; } my $lines = read_around($file, $line, 1, $self->input_layer); if($lines) { $lines .= "\n" if $lines !~ /\n\z/xms; $lines = '-' x $DisplayWidth . "\n" . $lines . '-' x $DisplayWidth . "\n"; } local $Carp::CarpLevel = $Carp::CarpLevel + 1; my $class = ref($self) || $self; $message =~ s/\A \Q$class: \E//xms and $message .= "\t..."; if(defined $file) { if(defined $line) { unshift @extra, $line; } unshift @extra, ref($file) ? '' : $file; } if(@extra) { $message = Carp::shortmess(sprintf '%s (%s)', $message, join(':', @extra)); } else { $message = Carp::shortmess($message); } return sprintf "%s: %s%s", $class, $message, $lines; } sub read_around { # for error messages my($file, $line, $around, $input_layer) = @_; defined($file) && defined($line) or return ''; if (ref $file) { # if $file is a scalar ref, it must contain text strings my $content = $$file; utf8::encode($content); $file = \$content; } $around = 1 if not defined $around; $input_layer = '' if not defined $input_layer; open my $in, '<' . $input_layer, $file or return ''; local $/ = "\n"; local $. = 0; my $s = ''; while(defined(my $l = <$in>)) { if($. >= ($line - $around)) { $s .= $l; } if($. >= ($line + $around)) { last; } } return $s; } sub p { # for debugging, the guts of dump() require 'Data/Dumper.pm'; # we don't want to create its namespace my $dd = Data::Dumper->new(\@_); $dd->Indent(1); $dd->Sortkeys(1); $dd->Quotekeys(0); $dd->Terse(1); return $dd->Dump() if defined wantarray; print $dd->Dump(); } sub dump :method { goto &p } 1; __END__ =head1 NAME Text::Xslate::Util - A set of utilities for Xslate =head1 SYNOPSIS use Text::Xslate::Util qw( mark_raw unmark_raw html_escape uri_escape p html_builder hash_with_default ); =head1 DESCRIPTION This module provides utilities for Xslate. =head1 INTERFACE =head2 Exportable functions =head3 C This is the entity of the C filter. =head3 C This is the entity of the C filter. =head3 C This is the entity of the C filter. =head3 C This is the entity of the C filter. =head3 C / C Displays the contents of I<$any> using C. This is the entity of the C filter, useful for debugging. =head3 C<< html_builder { block } | \&function :CodeRef >> Wraps a block or I<&function> with C so that the new subroutine will return a raw string. This function is the same as what Text::Xslate exports. =head3 C<< hash_with_default \%hash, $default :Any >> Set a default value I<$default> to I<%hash> and returns a HashRef. This is provided for debugging. =head1 SEE ALSO L =cut Text-Xslate-3.4.0/lib/Text/Xslate/Manual/0000755000175000017500000000000013040325435017430 5ustar syoheisyoheiText-Xslate-3.4.0/lib/Text/Xslate/Manual/FAQ.pod0000644000175000017500000002507213040006212020536 0ustar syoheisyohei =head1 NAME Text::Xslate::Manual::FAQ - Frequently asked questions and answers =head1 DESCRIPTION This manual page lists FAQs, which we've heard for now. =head1 QUESTIONS =head2 General =head3 How do you pronounce 'Xslate'? We read it C. =head3 What 'Xslate' stands for? It stands for I, a template engine written in XS, although pure Perl implementations are also provided. =head3 What are 'Kolon', 'Metakolon', and 'TTerse' ? Xslate supports multiple template syntaxes. Kolon is the default syntax, Metakolon is suitable to output Kolon templates, and TTerse is compatible with Template-Toolkit 2. You can specify the template syntax by passing C option to the Text::Xslate constructor. my $tx = Text::Xslate->new( syntax => 'TTerse', # by moniker ); my $tx = Text::Xslate->new( syntax => 'Text::Xslate::Syntax::TTerse', # by fully qualified name ); =head3 What version of perl does Xslate require? Xslate is tested on perl v5.8.1. No special settings should be required. =head3 How can I install the pure-Perl version of Xslate? Pass C<< PUREPERL_ONLY=1 >> to F, which requests the Xslate build system not to make XS parts. Note that C<< cpanm 1.7 >> supports C<--pp> option to install pure-Perl alternatives, so you can type C<< cpanm --pp Text::Xslate >>. =head3 What optimizations does Xslate employs? Here are some optimizations worth noting that makes Text::Xslate run so fast, in no particular order: =over =item Pre-compiled templates Text::Xslate is among the template engines that pre-compile the templates. This is similar to, say, Template::Toolkit, but Text::Xslate compiles the templates to C structures and stores them as binary data. =item Built on top of a virtual machine Text::Xslate is built on top of virtual machine that executes bytecode, and this virtual machine is fine-tuned I for template processing. The virtual machine also employs optimizations such as direct-threading style coding to shave off any extra milliseconds that the engine might take otherwise =item Custom byte codes for oft-used operations Some operations which are used very often are optimized into its own byte code. For example (as described elsewhere) Text::Xslate automatically escapes HTML unless you tell it not to. Text::Xslate implements this process which involves escaping the string I appending the result to the output buffer in C, as a custom byte code. This lets you avoid the penalties usually involved in such operations. =item Pre-allocation of output buffers One of the main things to consider to reduce performance degradation while processing a template is to avoid the number of calls to C. One of the tricks that Text::Xslate employs to reduce the number of calls to C is to pre-allocate the output buffer in an intelligent manner: For example, Text::Xslate assumes that most templates will be rendered to be about the same as the previous run, so when a template is rendered it uses the size allocated for the previous rendering as an approximation of how much space the current rendering will require. This allows you to greatly reduce the number of C calls required to render a template. =back =head3 How can I throw errors in functions and/or methods? Handle warnings by C and raises exceptions if needed. That's because Xslate catches exceptions in templates and emits them as warnings. =head2 Configuration =head3 When I create the Xslate instance? Xslate instances are reusable and creating the instance costs somewhat so you're recommended to reuse them as much as possible. That is, you should make the instance global. Consider a PSGI application: # create Xslate here, not in psgi_app(); my $xslate = Text::Xslate->new(...); sub psgi_app { my($env) = @_; # use $xslate and create $response return $response; } return \&psgi_app; # as a PSGI app Don't create the instance in each request. It's less efficient. =head3 How can I change instance attributes dynamically? Instance attributes, e.g. C, C, or C, are immutable, so you cannot change them dynamically. Instead, you can create multiple instances by different options. instance in order to avoid conflicts with cache directories. For example: my %common_config = ( cache_dir => $dir, module => \@module ); my %xslate = ( ja => Text::Xslate->new( path => [ $template_ja ], %common_config ), en => Text::Xslate->new( path => [ $template_en ], %common_config ), ro => Text::Xslate->new( path => [ $template_ro ], %common_config ), ); $xslate{$lang}->render(...); =head2 Templates =head3 How can I changes template tags? Use C, C, and C options to C method, which can be joined together with C option: my $tx = Text::Xslate->new( syntax => 'TTerse', tag_start => '{{', tag_end => '}}', line_start => undef, ); print $tx->render_string('Hello, {{lang}} world!', { lang => 'Xslate' }); Note that you'd better to avoid symbols which can be used for operators. =head3 How can I iterate over HASH references? Convert HASH references into ARRAY references because C methods can deal with just ARRAY references. : # in Kolon : # iterate $hash by keys : for $hash.keys() -> $key { <: $key :> : } : # by values : for $hash.values() -> $value { <: $value :> : } : # by key-value pairs : for $hash.kv() -> $pair { <: $pair.key :>=<: $pair.value :> : } Note that the above methods return ARRAY references sorted by the keys. =head3 How can I use Template-Toolkit virtual methods and filters? Xslate itself does not support these methods and filters, but there are modules on CPAN that implement them. L provides almost all the TT methods and filters, but it requires Template-Toolkit installed. L provides the same features as C, and it does not require the Template-Toolkit runtime. These bridge modules are useful not only for TTerse users, but also for Kolon users. =head3 How can I (write|get) plugins? It is unlikely to need to write plugins for Xslate, because Xslate allows you to export any functions to templates. Any function-based modules are available by the C option. Xslate also allows you to call methods for object instances, so you can use any object-oriented modules, except for classes which only provide class methods (they need wrappers). If you want to add methods to builtin data types (nil, scalars, arrays and hashes), you can write bridge modules. See L for details. =head3 How to limit while-loop like Template-Toolkit? While Template-Toolkit has a loop counter to prevent runaway C loop, Xslate has no arbitrary limitation. Instead, you can use C to limit B runaway code: eval { local $SIG{ALRM} = sub { die @_ }; alarm(1); # set timeout $tx->render('<: while true { } :>', \%vars); }; if($@ =~ /\b ALRM \b/xms) { # timeout! } =head3 Does Xslate process text strings, or binary strings? X X X X (The meaning of I and I is that of Perl, see L.) Xslate assumes template files to be encoded in C by default, so the output is a text string and template parameters, including values which registered functions return, B be text strings. However, if you want to process binary strings, you can do so by passing C<:bytes> to C, although it's not recommended. =head3 Why doesn't I cannot access $object.attr like TT2? Template-Toolkit allows objects (i.e. blessed references) to access its element if the object has no accessor methods, i.e. C<< [% object.attr %] >> might mean C<< $object->{attr} >>. This behavior breaks encapsulation and hides typos, so Xslate doesn't allow such fallbacks. If you want to access object attributes, define the accessors of them, or prepare values as a non-object before calling C. =head3 Can I load macros in other template files? Not yet. Currently Xslate doesn't support external macros. =head2 Functions, filters and macros =head3 Where are the list of builtin functions? See L. =head3 How can I use macros as a callback to high-level functions? Macros are objects that overload C<&{}>, the CODE dereference operator, so all you have to do is to call them simply, but don't check their types because they are not a I CODE reference. my $tx = Text::Xslate->new( function => { count => sub { my($a, $cb) = @_; # Don't check the type of $cb! return scalar grep { $cb->($_) } @{$a}; }, }, ); print $tx->render_string('<: count($a, -> $x { $x >= 50 }) :>', { a => [ 0 .. 100 ] }, ); # => 50 =head2 Web Application Frameworks =head3 How can I use Xslate in $my_favorite_WAF? There are bridges that integrate Xslate into WAFs: =over =item * L for L =item * L for L =item * L for general usage =back There are WAFs which adopt Xslate as the default template engine: =over =item * L =item * L =back =head3 Where are examples which use Xslate in Catalyst? There is a real-world project that uses Xslate with Catalyst. L Initializing Xslate: L Working on: L Enjoy! =head2 Development and support =head3 How can I colorize Xslate templates? For C user, there is F for Kolon: L For C user, there are plugins: L L =head3 Where can I ask questions? The mailing list is recommended to ask questions. L If you find a bug or have a request, creating github issues is better because those tickets are less likely to disappear than the ports in the mailing list. L =head3 I found a bug! What can I do for you? Please make a minimal test case to show the problem clearly. The code is the common language both I and you speak fluently ;) =head1 SEE ALSO L L L =cut Text-Xslate-3.4.0/lib/Text/Xslate/Manual/Builtin.pod0000644000175000017500000001723713040006205021543 0ustar syoheisyohei =head1 NAME Text::Xslate::Manual::Builtin - Builtin methods and filters/functions in Xslate =head1 DESCRIPTION This document describes builtin methods and filters/functions in Xslate. Note that the xslate engine is not aware of B, so all the methods and filters/functions return a single value, even when the equivalent of Perl's returns a list of values. Note that optional functions are defined in L. =head1 METHODS The xslate engine supports auto-boxing, so you can call methods for primitive (non-object) values. The following are builtin methods. =head2 For nil C has its specific namespace as C, although no builtin methods are provided. =head2 For SCALARs The namespace of SCALARs is C, although no builtin methods are provided. =head2 For ARRAY references The namespace of ARRAY references is C. =head3 C<$arrayref.first()> Returns the first element of I<$arrayref>. =head3 C<$arrayref.last()> Returns the last element of I<$arrayref>. =head3 C<$arrayref.size()> Returns the number of elements in I<$arrayref>. =head3 C<$arrayref.join($separator)> Joins the elements of I<$arrayref> into a single string separated by I<$separator>. =head3 C<$arrayref.reverse()> Returns an ARRAY reference consisting of the elements of I<$arrayref> in the opposite order. =head3 C<$arrayref.sort(?$callback)> Sorts I<$arrayref> and returns a new ARRAY reference. The optional I<$callback> is the same as Perl's. Examples: : my $arrayref = [2, 1, 10]; : # alphabetic sort (default) : $arrayref.sort().join(" "); # 1 10 2 : # explicitly alphabetic : $arrayref.sort(-> $a, $b { $a cmp $b }).join(" "); # 1 10 2 : # numeric sort : $arrayref.sort(-> $a, $b { $a <=> $b }).join(" "); # 1 2 10 See also L. =head3 C<$arrayref.map($callback)> Evaluates I<$callback> for each element of I<$arrayref> and returns a new ARRAY reference composed of the result of each such evaluation. Examples: : my $arrayref = [1, 2, 4, 8, 16]; : # double : $arrayref.map(-> $a { $a * 2 }).join(','); # 2,4,8,16,32 : # sequence : my $hashref = {a => 1, b => 2, c => 3, d => 4}; : ['b', 'd', 'a'].map(-> $a {$hashref[$a]}).join(','); # 2,4,1 See also L =head3 C<$arrayref.reduce($callback)> Reduces I<$arrayref> by calling I<$callback> multiple times. If I<$arrayref> is empty, this method returns C. Examples: : my $arrayref = [10, 20, 30]; : # sum : $arrayref.reduce(-> $a, $b { $a + $b }); # 60 : # concat : $arrayref.reduce(-> $a, $b { $a ~ $b }); # 102030 : # min : $arrayref.reduce(-> $a, $b { $a min $b }); # 10 : # max : $arrayref.reduce(-> $a, $b { $a max $b }); # 30 See also L. =head3 C<$arrayref.merge($v)> Returns a new ARRAY reference consisting of I<$arrayref> and I<$v>. I<$v> may be an ARRAY reference or a scalar value. =head2 For HASH references The namespace of HASH references is C. =head3 C<$hashref.size()> Returns the number of entries of I<$hashref>. : my $hashref = {a => 1, b => 2, c => 3, d => 4}; : $hashref.size(); # 4 =head3 C<$hashref.keys()> Returns an ARRAY reference consisting of the keys of I<$hashref>, which are sorted by the keys. : my $hashref = {a => 1, b => 2, c => 3, d => 4}; : $hashref.keys().join(' '); # a b c d =head3 C<$hashref.values()> Returns an ARRAY reference consisting of the values of I<$hashref>, which are sorted by the keys. : my $hashref = {a => 1, b => 2, c => 3, d => 4}; : $hashref.values().join(' '); # 1 2 3 4 =head3 C<$hashref.kv()> Returns an ARRAY reference consisting of the key-value pairs of I<$hashref>, which are sorted by the keys. Each pair is an object that has the C and C attributes. For example: : for $hashref.kv() -> $pair { <: $pair.key :>=<: $pair.value :> : } Output: a=1 b=2 c=3 d=4 =head3 C<$hashref.merge($v)> Returns a new HASH reference consisting of I<$hashref> and I<$v>. : my $hashref = {a => 1, b => 2, c => 3, d => 4}; : my $new = $hashref.merge({a => 0, e => 5}); : # {a => 0, b => 2, c => 3, d => 4, e => 5} I<$v> must be a HASH reference. =head1 LOOP VARIABLES You can use special loop variables in C loops, although its forms vary in template syntaxes, i.e. C<< $~item >> in Kolon and C<< loop >> in TTerse. In this list, the name of the loop variable is represented as C<< $~item >>. See also L and L. =head2 C<< $~item / $~item.index >> The current iterating index in the loop, which starts B<0>. =head2 C<< $~item.count >> The current iterating count in the loop, which starts B<1>. i.e. the same as C<< $~item + 1 >>. =head2 C<< $~item.cycle(...) >> Selects a value in the arguments in cycle. For example: : for $arrayref -> $item { <: $~item.cycle('odd', 'even') :> : } It will print C<< odd even odd even ... >>. =head2 C<< $~item.is_first >> True if the loop block is the first, false otherwise. This is aliased to C in TTerse for compatibility with TT2. =head2 C<< $~item.is_last >> True if the loop block is the last, false otherwise. This is aliased to C in TTerse for compatibility with TT2. =head2 C<< $~item.peek_next >> The next item of the looping array. C if C. i.e. the same as C<< $~item.is_last ? nil : $~item.body[$~item+1] >>. =head2 C<< $~item.peek_prev >> The previous item of the looping array. C if C. i.e. the same as C<< $~item.is_first ? nil : $~item.body[$~item-1] >>. =head2 C<< $~item.body >> The reference of the looping array. =head2 C<< $~item.size >> The size of the looping array. i.e. C<< scalar(@{$arrayref}) >> in Perl. =head2 C<< $~item.max_index >> The maximum index of the looping array. i.e. C<< $#{$arrayref} >> in Perl. =head1 FILTERS/FUNCTIONS The xslate engine supports filter syntax as well as function call. The following is the builtin functions, which can be invoked as filter syntax. For example, the following two statements are the same: <: $value | foo :> <: foo($value) :> Note that some builtin functions, such as C, are not a real function which you cannot use as a filter. =head2 C<< mark_raw($str) >> Mark I<$str> as a raw string to avoid auto HTML escaping. You'd better avoid to use this function. Instead, you should use the C subroutine in programs, which you can import from C. C is an alias to C. =head2 C<< unmark_raw($str) >> Remove the raw mark from I<$str>. If I<$str> is not a raw string, this function returns I<$str> as is. =head2 C<< html_escape($str) >> Escapes html meta characters in I<$str>. If I<$str> is a raw string, this function returns I<$str> as is. The html meta characters are C<< /[<>"'&]/ >>. C is an alias to C. =head2 C<< uri_escape($str) >> Escapes unsafe URI characters in I<$str> which gets encoded to UTF-8. The unsafe URI characters are characters not included in the C character class defined by RFC 3986, i.e. C<< /[^A-Za-z0-9\-\._~]/ >>. C is an alias to C. =head2 C<< is_array_ref(($value) >> Returns true if I<$value> is an ARRAY reference. =head2 C<< is_hash_ref(($value) >> Returns true if I<$value> is a HASH reference. =head2 C<< dump($value) >> Inspects I<$value> with C. This function is provided for testing and debugging. =head2 C<< defined($value) >> Returns true if I<$value> is defined. This is not a real function, but an unary operator, so you can omit the parens like C<< defined $value >>. =head1 SEE ALSO L L L =cut Text-Xslate-3.4.0/lib/Text/Xslate/Manual/Debugging.pod0000644000175000017500000000511113040006205022014 0ustar syoheisyohei =head1 NAME Text::Xslate::Manual::Debugging - Debugging techniques for Xslate templates =head1 DESCRIPTION This document describes techniques for debugging templates. =head2 Setting C<< verbose => 2 >> Try C<< verbose => 2 >> in the first step. This option enables full warnings, especially warnings related to C. =head2 File names and line numbers Xslate messages include file names, line numbers, and, if possible, source code lines which seems problems. You can also access the file name and the line number in templates by C<__FILE__> and C<__LINE__> tokens just like as Perl. If you want reports files and lines from your registered functions, C<< Text::Xslate->current_file >> and C<< Text::Xslate->current_line >> in callbacks are the same as C<__FILE__> and C<__LINE__> in templates respectively. sub my_sqrt { my($n) = @_; if($n < 1) { # return a message instead of warnings return sprintf "!!! Can't take sqrt of $n at %s line %d !!!", Text::Xslate->current_file, Text::Xslate->current_line; } return sqrt($n); } my $tx = Text::Xslate->new( function => { sqrt => \&my_sqrt }, ); =head2 To dump values You can use any dumping modules via the C option, but Xslate has a builtin C filter to dump template values. <: $value | dump # Dump $value with Data::Dumper :> =head2 Detection of missing variables (or typos or variable names) Xslate itself has warning system for use of uninitialized values, but sometimes it is not enough. If you want fill in some string, e.g. B, for missing variables, you can use the C utility. For example: use Text::Xslate::Util qw(hash_with_default); $tx->render($name, hash_with_default(\%vars, sub { "FILL ME '@_' " }) ); Note that this is really B because it is a tied-hash wrapper. =head2 Customization of error messages You can customize error handlers by C and C. In these handlers, you can call C<< Text::Xslate->print() >> method in order to add your custom messages to the output buffer, which makes debugging easier. #!perl -w use strict; use Text::Xslate; my %vpath = ( hello => 'Hello, <: $lang :> world!' . "\n", ); my $tx = Text::Xslate->new( path => \%vpath, verbose => 2, warn_handler => sub { Text::Xslate->print('[[', @_, ']]') }, ); print $tx->render('hello', { }); # => Hello, [[use nil to print at ...]] world! =head1 SEE ALSO L L =cut Text-Xslate-3.4.0/lib/Text/Xslate/Manual/Cookbook.pod0000644000175000017500000001666513040006205021707 0ustar syoheisyohei=head1 NAME Text::Xslate::Manual::Cookbook - How to cook Xslate templates =head1 DESCRIPTION The Xslate cookbook is a set of recipes showing Xslate features. =head1 RECIPES =head2 How to manage HTML forms Managing HTML forms is an important issue for web applications. You're better off using modules that manage HTML forms rather than managing this yourself in your templates. This section proposes two basic solutions: using FillInForm and HTML form builders. In both solutions, you should not use the C filter in templates, which easily creates B. Instead, application code should be responsible for calling the C function that C can export. =head3 Using FillInForm One solution to manage HTML forms is to use FillInForm modules with the block filter syntax. Example code using C: #!perl -w use strict; use Text::Xslate qw(html_builder); use HTML::FillInForm; # HTML::FillInForm::Lite is okay sub fillinform { my($q) = @_; my $fif = HTML::FillInForm->new(); return html_builder { my($html) = @_; return $fif->fill(\$html, $q); }; } my $tx = Text::Xslate->new( function => { fillinform => \&fillinform, }, ); my %vars = ( q => { foo => "" }, ); print $tx->render_string(<<'T', \%vars); FillInForm: : block form | fillinform($q) -> {
: } T Output: FillInForm:
Because L provides a C function, it becomes even simpler: use HTML::FillInForm::Lite qw(fillinform); my $tx = Text::Xslate->new( function => { fillinform => html_builder(\&fillinform) }, ); From 1.5018 on, C is supported for HTML builder modules like C. Just import HTML builder functions with C option. my $tx = Text::Xslate->new( html_builder_module => [ 'HTML::FillInForm::Lite' => [qw(fillinform)] ], ); See also L or L for details. =head3 Using HTML form builders Another solution to manage HTML forms is to use form builders. In such cases, all you have to do is to apply C to HTML parts. Here is a PSGI application that uses C: #!psgi use strict; use warnings; use Text::Xslate qw(mark_raw); use HTML::Shakan; use Plack::Request; my $tx = Text::Xslate->new(); sub app { my($env) = @_; my $req = Plack::Request->new($env); my $shakan = HTML::Shakan->new( request => $req, fields => [ TextField(name => 'name', label => 'Your name: ') ], ); my $res = $req->new_response(200); # do mark_raw here, not in templates my $form = mark_raw($shakan->render()); $res->body( $tx->render_string(<<'T', { form => $form }) ); Building form

Form:
<: $form :>

T return $res->finalize(); } return \&app; Output: Building form

Form:

See also L for details. =head2 How to use Template Toolkit's WRAPPER feature in Kolon Use template cascading, which is a super-set of the C directive. F:
block content -> { }
F : cascade wrapper : override content -> { Hello, world! : } Output:
Hello, world!
=head3 Template cascading Xslate supports B