]> Dogcows Code - chaz/p5-CGI-Ex/blobdiff - samples/benchmark/bench_template.pl
CGI::Ex 2.14
[chaz/p5-CGI-Ex] / samples / benchmark / bench_template.pl
index 6b0f77b9548a786f7ba69ed848db56fb7aeb76d9..17866dd1734460fe2ecf6162eb795f3a57693669 100644 (file)
@@ -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%  #
 
 
This page took 0.022234 seconds and 4 git commands to generate.