Update benchmarks

diff --git a/author/pp-vs-xs-with-forking.pl b/author/pp-vs-xs-with-forking.pl
index 816113e..76b563d 100644 (file)
--- a/author/pp-vs-xs-with-forking.pl
+++ b/author/pp-vs-xs-with-forking.pl
@@ -10,8 +10,9 @@ use Encode (); # pre-load for Interface::Test
 use HTTP::Request ();
 
 sub new_he{
-    my($use_pp) = @_;
+    my($use_pp, $any_moose) = @_;
     $ENV{MOUSE_PUREPERL} = $use_pp;
+    $ENV{ANY_MOOSE}      = $any_moose if defined $any_moose;
 
     require HTTP::Engine;
 
@@ -30,7 +31,7 @@ sub new_he{
 my $req = HTTP::Request->new(GET => 'http://localhost/');
 
 print "load HTTP::Engine, new(), and run()\n";
-cmpthese -1 => {
+cmpthese -2 => {
      'XS' => sub {
         my $he  = new_he(0);
         $he->run($req, env => \%ENV);
@@ -39,10 +40,14 @@ cmpthese -1 => {
         my $he  = new_he(1);
         $he->run($req, env => \%ENV);
      },
+     'Moose' => sub {
+        my $he  = new_he(0, 'Moose');
+        $he->run($req, env => \%ENV);
+     },
 };
 
 print "load HTTP::Engine, new(), and run() * 100\n";
-cmpthese -1 => {
+cmpthese -2 => {
      'XS' => sub {
         my $he  = new_he(0);
         $he->run($req, env => \%ENV) for 1 .. 100;
@@ -51,5 +56,9 @@ cmpthese -1 => {
         my $he = new_he(1);
         $he->run($req, env => \%ENV) for 1 .. 100;
      },
+     'Moose' => sub {
+        my $he = new_he(0, 'Moose');
+        $he->run($req, env => \%ENV) for 1 .. 100;
+     },
 };