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

Timestamp:

10/07/08 17:54:44 (3 months ago)

Author:

bonnu

Message:

lang/perl/Method-Cached - benchmark script was updated

Files:

• lang/perl/Method-Cached/trunk/lib/Method/Cached/Domain.pm (modified) (2 diffs)

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

@@ -8 +8 @@
 use Scalar::Util qw/blessed/;
 use UNIVERSAL::require;
-use Method::Cached::KeyRegularizer;
+use Method::Cached::KeyRule;
 use Method::Cached::MethodRegistry;
 
@@ -42 +42 @@
     my ($self, $name, @args) = @_;
     my $registry = Method::Cached::MethodRegistry::refer($name);
-    Method::Cached::KeyRegularizer->regularize(
+    Method::Cached::KeyRule::regularize(
         $registry->{key_rule} || $self->key_rule || undef, 
         $name,