Permalink
Browse files

none special

  • Loading branch information...
1 parent 04e3d82 commit d8871f406c41be2e971a737f2c4b1fb810ee0fec @shafiev committed Jun 13, 2010
Showing with 13 additions and 19 deletions.
  1. +3 −0 Changes
  2. +0 −10 Changes~
  3. +1 −0 Makefile.PL
  4. +4 −3 benchmark.pl
  5. +5 −6 lib/AnyEvent/HTTPBenchmark.pm
View
@@ -1,3 +1,6 @@
+0.05
+ -adding help
+ -try to curve dns caching problem :)
0.04
-remove the -file param releted code.
-change the all say to perl due the perl 5.8.x(really because this version is using be RHEL/CentOS )
View
@@ -1,10 +0,0 @@
-0.04
- -remove the -file param releted code.
- -change the all say to perl due the perl 5.8.x(really because this version is using be RHEL/CentOS )
- -
-0.03
- -adding the command line args. ( -url , -c , -n , -debug , -file, -proxy , useragent )
-0.02
- -add some stats output + small code refactoring
-0.01
- -first public release
View
@@ -16,4 +16,5 @@ WriteMakefile(
},
dist => { COMPRESS => 'gzip -9f', SUFFIX => 'gz', },
clean => { FILES => 'AnyEvent-HTTPBenchmark-*' },
+ EXE_FILES => ['benchmark.pl'] ,
);
View
@@ -9,11 +9,11 @@
my $timeout = 60;
my $count = 30000; #number of requests
my $concurency = 20; # number of parralle requests
-my $done = 0;
+my $done = 0; #number of done requests
my $url;
my $method = 'GET'; #http method
my $proxy; # proxy server
-my $file; #scenario file
+my $file; #scenario file(for future use);
my $max_recurse = 10; # the default recurse number;
my $useragent = 'Mozilla/5.0 (compatible; U; AnyEvent::HTTPBenchmark/0.05; +http://github.com/shafiev/AnyEvent-HTTPBenchmark)';
@@ -28,6 +28,7 @@
$AnyEvent::HTTP::USERAGENT = $useragent;
# Caching results of AnyEvent::DNS::a
+# really hack code.will rewrited in nearest future
my $orig_anyeventdnsa = \&AnyEvent::DNS::a;
my %cache;
*AnyEvent::DNS::a = sub($$) {
@@ -38,7 +39,6 @@
return;
}
-warn "asd";
$orig_anyeventdnsa->( $domain,
sub {
$cache{$domain} = [ @_ ];
@@ -49,6 +49,7 @@
return;
};
# End of caching
+# End of MegaKostil'
#on ctrl-c break run the end_bench sub.
$SIG{'INT'} = 'end_bench';
@@ -5,15 +5,15 @@ use strict;
=head1 NAME
-AnyEvent::HTTPBenchmark - The great new AnyEvent::HTTPBenchmark!
+AnyEvent::HTTPBenchmark - The tool to make benchmark good and easy!
=head1 VERSION
-Version 0.01
+Version 0.05
=cut
-our $VERSION = '0.01';
+our $VERSION = '0.05';
=head1 SYNOPSIS
@@ -24,9 +24,7 @@ Perhaps a little code snippet.
use AnyEvent::HTTPBenchmark;
- my $foo = AnyEvent::HTTPBenchmark->new();
- ...
-
+
=head1 EXPORT
A list of functions that can be exported. You can delete this section
@@ -46,6 +44,7 @@ sub function1 {
=cut
sub function2 {
+ #under construction
}
=head1 AUTHOR

0 comments on commit d8871f4

Please sign in to comment.