Changeset 8743

Timestamp:

04/03/08 16:16:40 (8 months ago)

Author:

yappo

Message:

lang/perl/HTTP-MobileAttribute?: Plugin のアクセサメソッドは一度登録したら二度と登録しなくていいよ

Files:

• lang/perl/HTTP-MobileAttribute/trunk/lib/HTTP/MobileAttribute/Plugin.pm (modified) (3 diffs)

lang/perl/HTTP-MobileAttribute/trunk/lib/HTTP/MobileAttribute/Plugin.pm

@@ -6 +6 @@
 sub mk_register_accessors {
     my $self    = shift;
+    return if $self->{__method_registerd};
     my $carrier = shift;
     my $class   = ref $self;
@@ -12 +13 @@
     for my $method (@_) {
         no strict 'refs';
-        *{"$class\::$method"} = sub { shift->{$method} } unless *{"$class\::$method"}{CODE};
+        *{"$class\::$method"} = sub { shift->{$method} };
         $pkg->register_method( $method => $self );
     }
+    $self->{__method_registerd} = 1;
 }
 
@@ -20 +22 @@
     my($self, $c) = @_;
     for my $key (keys %{ $self }) {
-        delete $self->{$key} unless $key eq 'config';
+        delete $self->{$key} unless $key eq 'config' || $key eq '__method_registerd';
     }
 }