Changeset 20895 for lang/perl/Method-Cached/trunk/lib/Method/Cached/Domain.pm

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/lib/Method/Cached/Domain.pm (modified) (6 diffs)

lang/perl/Method-Cached/trunk/lib/Method/Cached/Domain.pm

@@ -14 +14 @@
 
 __PACKAGE__->mk_classaccessor('storage');
-__PACKAGE__->mk_classaccessor('key_regularizer' => 'LIST');
+__PACKAGE__->mk_classaccessor('key_rule' => 'LIST');
 
 sub new {
@@ -20 +20 @@
     my %args  = (0 < @_ && ref $_[0] eq 'HASH') ? %{ $_[0] } : @_;
     my $self  = bless {}, $class;
-    my $storage_class   = $args{storage_class}   || croak 'storage_class is necessary';
-    my $storage_args    = $args{storage_args}    || undef;
-    my $key_regularizer = $args{key_regularizer} || undef;
+    my $storage_class = $args{storage_class} || croak 'storage_class is necessary';
+    my $storage_args  = $args{storage_args}  || undef;
+    my $key_rule      = $args{key_rule}      || undef;
     if (blessed $storage_class) {
         $self->storage($storage_class);
@@ -35 +35 @@
         $self->storage($storage_class->new(@{ $storage_args || [] }));
     }
-    $self->key_regularizer($key_regularizer) if $key_regularizer;
+    $self->key_rule($key_rule) if $key_rule;
     $self;
 }
@@ -43 +43 @@
     my $registry = Method::Cached::MethodRegistry::refer($name);
     Method::Cached::KeyRegularizer->regularize(
-        $registry->{key_regularizer} || $self->key_regularizer || undef, 
+        $registry->{key_rule} || $self->key_rule || undef, 
         $name,
         @args,
@@ -82 +82 @@
   my $domain = Method::Cached::Domain->new(
       # The supported interface is Cache::Cache and Cache::Memcached. 
-      storage_class   => 'Cache::Memcached::Fast',
-      storage_args    => [
+      storage_class => 'Cache::Memcached::Fast',
+      storage_args  => [
           {
               servers         => [qw/ 127.0.0.1:11211 /],
@@ -91 +91 @@
           },
       ],
-      key_regularizer => undef,
+      key_rule      => undef,
   );