Changeset 20895 for lang/perl/Method-Cached/trunk/lib/Method/Cached/MethodRegistry.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/MethodRegistry.pm (modified) (2 diffs)

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

@@ -4 +4 @@
 use warnings;
 use 5.008007;
-use Method::Cached::KeyRegularizer;
 
 our %_registry;
@@ -17 +16 @@
     # Arguments of attribute
     #
-    my $domain_name     = ($_[0] && $_[0] =~ /^-?\d+$/) ? q{} : shift;
-    my $expires         = shift || 0;
-    my $key_regularizer = shift || undef;
+    my $domain_name = (defined $_[0] && $_[0] =~ /^-?\d+$/) ? q{} : shift;
+    my $expires     = shift || 0;
+    my $key_rule    = shift || undef;
     $_registry{$name} = {
-        domain          => $domain_name,
-        expires         => $expires,
-        key_regularizer => $key_regularizer,
+        domain   => $domain_name,
+        expires  => $expires,
+        key_rule => $key_rule,
     };
 }