improve profiling and benchmarking

PerlDancer · Sep 6, 2016 · 703d582 · 703d582
1 parent b8f8f75
commit 703d582
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/tools/perf.pl b/tools/perf.pl
@@ -7,6 +7,8 @@
 use HTTP::Request::Common;
 use Dumbbench;
 use Getopt::Long qw<:config no_ignore_case>;
+use HTTP::XSHeaders;
+use HTTP::XSCookies;
 
 $ENV{'DANCER_ENVIRONMENT'} = 'production';
 $ENV{'PLACK_ENV'} = 'production';
@@ -70,7 +72,7 @@ sub check_app {
     $app2->({
         REQUEST_METHOD => 'GET',
         PATH_INFO      => '/',
-    });
+    }) for 1 .. 50;
     DB::disable_profile();
     DB::finish_profile();
 } elsif ( $opts{'compare'} ) {