4 use Config; printf "Perl/%vd (%s)\n", $^V, $Config{archname};
6 use Benchmark qw(:hireswallclock);
7 use Benchmark::Forking qw(cmpthese);
9 use Encode (); # pre-load for Interface::Test
13 my($use_pp, $any_moose) = @_;
14 $ENV{MOUSE_PUREPERL} = $use_pp;
15 $ENV{ANY_MOOSE} = $any_moose if defined $any_moose;
19 return HTTP::Engine->new(
22 request_handler => sub {
25 return HTTP::Engine::Response->new(body => "Hello, world!\n");
31 my $req = HTTP::Request->new(GET => 'http://localhost/');
33 print "load HTTP::Engine, new(), and run()\n";
37 $he->run($req, env => \%ENV);
41 $he->run($req, env => \%ENV);
44 my $he = new_he(0, 'Moose');
45 $he->run($req, env => \%ENV);
49 print "load HTTP::Engine, new(), and run() * 100\n";
53 $he->run($req, env => \%ENV) for 1 .. 100;
57 $he->run($req, env => \%ENV) for 1 .. 100;
60 my $he = new_he(0, 'Moose');
61 $he->run($req, env => \%ENV) for 1 .. 100;