X-Git-Url: https://git.dogcows.com/gitweb?a=blobdiff_plain;f=samples%2Fbenchmark%2Fbench_template.pl;h=17866dd1734460fe2ecf6162eb795f3a57693669;hb=aa030874456c91d688e6c9b25e82d2bf9575ea6f;hp=6b0f77b9548a786f7ba69ed848db56fb7aeb76d9;hpb=d0287461de3f9b5c49ce02b22957022bdc5e87d8;p=chaz%2Fp5-CGI-Ex diff --git a/samples/benchmark/bench_template.pl b/samples/benchmark/bench_template.pl index 6b0f77b..17866dd 100644 --- a/samples/benchmark/bench_template.pl +++ b/samples/benchmark/bench_template.pl @@ -46,12 +46,9 @@ my @config2 = (@config1, COMPILE_EXT => '.ttc'); #use CGI::Ex::Template::XS; #my $tt1 = CGI::Ex::Template::XS->new(@config1); -#my $tt2 = CGI::Ex::Template::XS->new(@config2); my $tt1 = Template->new(@config1); -my $tt2 = Template->new(@config2); -my $cet = CGI::Ex::Template->new(@config1); -my $cetc = CGI::Ex::Template->new(@config2); +my $cet = CGI::Ex::Template->new(@config1, compile_perl => 1); #$swap->{$_} = $_ for (1 .. 1000); # swap size affects benchmark speed @@ -168,8 +165,9 @@ my $tests = { # '43_filteruri' => "[% ' ' | uri %]", # 132% # 550% # 379% # 471% # 12524.4/s # '44_filterevl' => "[% foo | eval %]", # 303% # 530% # 434% # 478% # 5475.5/s # '45_capture' => "[% foo = BLOCK %]Hi[% END %][% foo %]", # 102% # 386% # 291% # 304% # 10606.5/s # - '46_complex' => "$longer_template", # 60% # 290% # 160% # 270% # 1054.3/s # - '47_hello2000' => "$hello2000", # 2% # 136% # 39% # 115% # 184.8/s # + '46_refs' => "[% b = \\code(1); b(2) %]", # 60% # 270% # 239% # 174% # 6451.9/s # + '47_complex' => "$longer_template", # 60% # 290% # 160% # 270% # 1054.3/s # + '48_hello2000' => "$hello2000", # 2% # 136% # 39% # 115% # 184.8/s # # overall # 95% # 406% # 251% # 346% #