Changeset 4967

Timestamp:

01/19/08 22:18:55 (5 years ago)

Author:

daisuke

Message:

lang/perl/Cache-Memcached-LibMemcached?; display version and stuff

Files:

• lang/perl/Cache-Memcached-LibMemcached/trunk/tools/benchmark.pl (modified) (2 diffs)

lang/perl/Cache-Memcached-LibMemcached/trunk/tools/benchmark.pl

@@ -4 +4 @@
 use Cache::Memcached::Fast;
 use Cache::Memcached::LibMemcached;
+
+foreach my $module qw(Cache::Memcached Cache::Memcached::Fast Cache::Memcached::LibMemcached) {
+    no strict 'refs';
+    print "$module => " . ${ "${module}::VERSION" }, "\n";
+}
 
 my %args = (
@@ -76 +81 @@
     print qq|==== Benchmark "Simple set() (scalar)" ====\n|;
     $data = '0123456789' x 10;
-    cmpthese(400_000, {
+    cmpthese(500_000, {
         perl_memcahed => sub {
             $memd->set( 'foo', $data );