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
14 $ENV{MOUSE_PUREPERL} = $use_pp;
18 return HTTP::Engine->new(
21 request_handler => sub {
24 return HTTP::Engine::Response->new(body => "Hello, world!\n");
30 my $req = HTTP::Request->new(GET => 'http://localhost/');
32 print "load HTTP::Engine, new(), and run()\n";
36 $he->run($req, env => \%ENV);
40 $he->run($req, env => \%ENV);
44 print "load HTTP::Engine, new(), and run() * 100\n";
48 $he->run($req, env => \%ENV) for 1 .. 100;
52 $he->run($req, env => \%ENV) for 1 .. 100;