Changeset 13364 for lang/perl/HTTP-Engine/branches

Timestamp:

06/07/08 10:15:33 (5 years ago)

Author:

nothingmuch

Message:

shorter benchmark time

Files:

• lang/perl/HTTP-Engine/branches/lazy_request/tools/benchmark.pl (modified) (2 diffs)

lang/perl/HTTP-Engine/branches/lazy_request/tools/benchmark.pl

@@ -1 +1 @@
 use strict;
 use warnings;
-use Benchmark qw/timethese timeit timestr/;
+use Benchmark qw/countit timethese timeit timestr/;
 use HTTP::Engine;
 use IO::Scalar;
@@ -23 +23 @@
 
 tie *STDOUT, 'IO::Scalar', \my $out;
-my $t = timeit 10_000 => sub {
+my $t = countit 2 => sub {
     $engine->run;
 };