Changeset 20895 for lang/perl/Method-Cached/trunk/lib/Method/Cached/KeyRegularizer.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/KeyRegularizer.pm (modified) (1 diff)

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

@@ -12 +12 @@
 my $_encoder;
 
-# 'This regularizer was not supported or it did not operate normally :' .
-# " $regularizer - $@";
-
 sub regularize {
-    my ($class, $regularizer, $method_name, @args) = @_;
-    ref $regularizer && return $regularizer->(@args);
+    my ($class, $key_rule, $method_name, @args) = @_;
+    ref $key_rule && return $key_rule->(@args);
     {
         no strict 'refs';
-        $regularizer ||= 'LIST';
-        return $method_name . &{$regularizer}(@args);
+        $key_rule ||= 'LIST';
+        return $method_name . &{$key_rule}(@args);
     }
 }