Changeset 20895 for lang/perl/Method-Cached/trunk/t/benchmark2.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/benchmark2.pl (modified) (3 diffs)

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

@@ -6 +6 @@
 
 use Method::Cached::Manager -default => {
-    storage_class    => 'Cache::Memcached::Fast',
-    storage_args     => [
-        { servers    => [qw/ 127.0.0.1:11211 /] },
+    storage_class => 'Cache::Memcached::Fast',
+    storage_args  => [
+        { servers => [qw/ 127.0.0.1:11211 /] },
     ],
-    key_regularizer  => 'SERIALIZE', # SERIALIZE / LIST
+    key_rule      => 'LIST', # SERIALIZE / LIST
 };
 
 use Method::Cached2 -default => {
-    storage_class    => 'Cache::Memcached::Fast',
-    storage_args     => [
-        { servers    => [qw/ 127.0.0.1:11211 /] },
+    storage_class => 'Cache::Memcached::Fast',
+    storage_args  => [
+        { servers => [qw/ 127.0.0.1:11211 /] },
     ],
-    key_regularizer  => 'SERIALIZE', # SERIALIZE / LIST
+    key_rule      => 'LIST', # SERIALIZE / LIST
 };
 
@@ -59 +59 @@
 my $num = 13;
 
-my ($fib, $c_fib, $c2_fib, $f_fib, $m_fib);
+my ($fib, $c_fib, $c2_fib, $m_fib);
 
 sub fib    { $fib    = $num; $fib    = Dummy::fib($fib)           }
@@ -66 +66 @@
 sub m_fib  { $m_fib  = $num; $m_fib  = Dummy::fib_memoize($m_fib) }
 
-cmpthese(1000, {
+cmpthese(10000, {
     'fib'     => \&fib,
     'Cached'  => \&c_fib,