Changeset 20895 for lang/perl/Method-Cached/trunk/t/benchmark.pl

Timestamp:

10/07/08 15:48:46 (3 months ago)

Author:

bonnu

Message:

lang/perl/Method-Cached - derivation & syntax correct

Files:

• lang/perl/Method-Cached/trunk/t/benchmark.pl (modified) (2 diffs)

lang/perl/Method-Cached/trunk/t/benchmark.pl

@@ -7 +7 @@
 use Method::Cached::Manager
     -default => {
-        storage_class    => 'Cache::Memcached::Fast',
-        storage_args     => [
+        storage_class => 'Cache::Memcached::Fast',
+        storage_args  => [
             { servers    => [qw/ 127.0.0.1:11211 /] },
         ],
-        key_regularizer  => 'SERIALIZE', # SERIALIZE / LIST
+        key_rule      => 'SERIALIZE', # SERIALIZE / LIST
     },
     -domains => {
         'memcached-fast' => {
-            storage_class    => 'Cache::Memcached::Fast',
-            storage_args     => [
+            storage_class => 'Cache::Memcached::Fast',
+            storage_args  => [
                 { servers    => [qw/ 127.0.0.1:11211 /] },
             ],
-            key_regularizer  => 'SERIALIZE', # SERIALIZE / LIST
+            key_rule      => 'SERIALIZE', # SERIALIZE / LIST
         },
         'fastmmap'       => {
-            storage_class    => 'Cache::FastMmap',
-            storage_args     => [
+            storage_class => 'Cache::FastMmap',
+            storage_args  => [
                 share_file     => '/tmp/fastmmap.bin',
                 unlink_on_exit => 0,
             ],
-            key_regularizer  => 'SERIALIZE', # SERIALIZE / LIST
+            key_rule      => 'SERIALIZE', # SERIALIZE / LIST
         },
     },
@@ -83 +83 @@
 sub m_fib   { $m_fib   = $num; $m_fib   = Dummy::fib_memoize($m_fib)    }
 
-cmpthese(50000, {
+cmpthese(10000, {
     'fib'               => \&fib,
     'C(default)'        => \&def_fib,