Changeset 14701 for dan

Timestamp:

06/27/08 16:44:10 (5 months ago)

Author:

yappo

Message:

なんかへん

Files:

• dan/perl/Object-with/branches/yappo/lib/Object/with.pm (modified) (2 diffs)

dan/perl/Object-with/branches/yappo/lib/Object/with.pm

@@ -28 +28 @@
             *{$name} = $code;
         } else {
-            *{$name} = sub{};
+            undef ${"$caller\::"}{$method};
         }
         delete $TMP_METHOD_CACHE{$name};
@@ -47 +47 @@
     no strict 'refs';
     no warnings 'redefine';
+
     $TMP_METHOD_CACHE{$name} = defined &{$name} ? \&{$name} : undef unless exists $TMP_METHOD_CACHE{$name};
     *{$name}                 = sub { unshift @_, $TMP_OBJ; goto &{"$class\::$method"} };