[% title %]

X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=urisagit%2FTemplate-Simple.git;a=blobdiff_plain;f=extras%2Fbench_all.pl;fp=extras%2Fbench_new.pl;h=642b40b3549fc4071832124eea1f173991630b5b;hp=24bd9794b0ac92e0aa4bf564b7506cd90d7ea60e;hb=f5c8badf9cff80771975450c60d32c987c7f6af9;hpb=f12977deb12d8e9e3f2555f77905ba78ed609046 diff --git a/extras/bench_new.pl b/extras/bench_all.pl old mode 100755 new mode 100644 similarity index 75% rename from extras/bench_new.pl rename to extras/bench_all.pl index 24bd979..642b40b --- a/extras/bench_new.pl +++ b/extras/bench_all.pl @@ -24,6 +24,7 @@ my $template_info = [ simple => 'hehe [% name %]', toolkit => 'hehe [% name %]', teeny => 'hehe [% name %]', + tiny => 'hehe [% name %]', }, { name => 'nested', @@ -76,18 +77,30 @@ SIMPLE [% title %] -

[% post.title %]
[% post.date %] -

+ [% title %] + +

+
[% post.title %]
+ [% post.date %] +

+ + +TINY + teeny => < [% title %] @@ -176,8 +189,9 @@ my $benches = [ my $name = $info->{name} ; my $results ; - open my $fh, '>', \$results or - die "can't open string for output" ; +# open my $fh, '>', \$results or +# open my $fh, '>', '/dev/null' or +# die "can't open string for output" ; mkdir 'tpl' ; write_file( "tpl/$name.tpl", $template ) ; @@ -210,10 +224,7 @@ my $benches = [ #print Dumper $stash ; $bench->{render} = - sub { - $obj->process("$name.tpl", $stash, $fh ); - $bench->{result} = $results ; - } + sub { $obj->process("$name.tpl", $stash ); } }, verify => sub { @@ -221,6 +232,53 @@ my $benches = [ $bench->{result} = $bench->{render}->() ; }, }, + { + name => 'toolkit', + template_key => 'toolkit', + load => sub { return eval { require Template } ; }, + setup => sub { + my( $bench, $info ) = @_ ; + + my $template = $info->{$bench->{template_key}} ; + my $data = $info->{data} ; + + my $obj = Template->new() ; + + $bench->{render} = sub { + my $output ; + $obj->process(\$template, $data, \$output ); + return $output ; + }, + + }, + verify => sub { + my( $bench, $info ) = @_ ; + $bench->{result} = $bench->{render}->() ; + }, + }, + { + name => 'tiny', + template_key => 'tiny', + load => sub { return eval { require Template::Tiny } ; }, + setup => sub { + my( $bench, $info ) = @_ ; + + my $template = $info->{$bench->{template_key}} ; + my $data = $info->{data} ; + + my $obj = Template::Tiny->new() ; + + $bench->{render} = sub { + my $output ; + $obj->process( \$template, $data, \$output ); + return $output ; + }, + }, + verify => sub { + my( $bench, $info ) = @_ ; + $bench->{result} = $bench->{render}->() ; + }, + }, ] ; run_benchmarks() ; @@ -304,14 +362,11 @@ load_menus.pl [--verify | -v] [--iterations | -i ] =head1 DESCRIPTION - --rid | -r Select the restaurant ID to be fetched. - Can be a comma separated list of rids. - 'ALL' will select all the valid - ID's from a source. This is - required (unless is set - to 'ALL'. - - [--file | -f] Load the XML from files. The file is + --verify | -v Verify rendered output is correct + --iterations | -i Iteration count passed to cmpthese + Default is -2 (seconds of cpu time) + --templaters | -t Comma separated list of templaters + to run in this benchmark [--help | ?] Print this help text

[% post.title %]

[% post.title %]