Changeset 14697 for dan

Timestamp:

06/27/08 15:49:57 (5 months ago)

Author:

yappo

Message:

うまく動いてなかった、いらないサブルーチン定義の削除がうまくいかないボス毛手

Location:

dan/perl/Object-with/branches/yappo

Files:

• lib/Object/with.pm (modified) (2 diffs)
• test.pl (modified) (1 diff)

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

@@ -31 +31 @@
         no strict 'refs';
         no warnings 'redefine';
-        *{$name} = $code if $code && ref $code;
+        my($caller, $method) = $name =~ /^(.*)::(.*)$/;
+        if ($code && ref $code) {
+            *{$name} = $code;
+        } else {
+            *{$name} = sub{};
+        }
         delete $TMP_METHOD_CACHE{$name};
     }
@@ -47 +52 @@
     no strict 'refs';
     no warnings 'redefine';
-
     $TMP_METHOD_CACHE{$name} = defined &{$name} ? \&{$name} : undef unless exists $TMP_METHOD_CACHE{$name};
-    *{$name}                 = \&{"$class\::$method"};
+    *{$name}                 = sub { unshift @_, $TMP_OBJ; goto &{"$class\::$method"} };
 }
 

dan/perl/Object-with/branches/yappo/test.pl

@@ -20 +20 @@
     hello();
 };
+warn "----------------";
+hello();
 hello2();
+warn "----------------";
 
 sub hello2 { die 'end' }