Changeset 8749 for lang/perl/Class-Component

Timestamp:

04/03/08 16:30:57 (5 years ago)

Author:

yappo

Message:

lang/perl/Class-Component: オリジナルの方でもsetterつけた

Files:

• lang/perl/Class-Component/trunk/lib/Class/Component.pm (modified) (1 diff)

lang/perl/Class-Component/trunk/lib/Class/Component.pm

@@ -13 +13 @@
     my $method = "class_component_$name";
     no strict 'refs';
-    *{__PACKAGE__."::$method"} = sub { shift->{"_$method"} };
+    *{__PACKAGE__."::$method"} = sub { 
+        $_[0]->{"_$method"} = $_[1] if $_[1];
+        $_[0]->{"_$method"}
+    };
 }