diff options
author | franck cuny <franck@lumberjaph.net> | 2010-02-14 12:07:57 +0100 |
---|---|---|
committer | franck cuny <franck@lumberjaph.net> | 2010-02-14 12:07:57 +0100 |
commit | 15ba520701c09c3025b222d587056d62e2947a1b (patch) | |
tree | 7ca75b20e1cf63cf34fa92368e39a44d481a5144 | |
parent | use with_meta instead of with_caller (diff) | |
download | moosex-privacy-15ba520701c09c3025b222d587056d62e2947a1b.tar.gz |
make push_* private and use wrap instead of new
-rw-r--r-- | lib/MooseX/Privacy/Meta/Class/Private.pm | 6 | ||||
-rw-r--r-- | lib/MooseX/Privacy/Meta/Class/Protected.pm | 6 |
2 files changed, 6 insertions, 6 deletions
diff --git a/lib/MooseX/Privacy/Meta/Class/Private.pm b/lib/MooseX/Privacy/Meta/Class/Private.pm index a6e7546..7cea57c 100644 --- a/lib/MooseX/Privacy/Meta/Class/Private.pm +++ b/lib/MooseX/Privacy/Meta/Class/Private.pm @@ -11,20 +11,20 @@ has local_private_methods => ( required => 1, default => sub { [] }, auto_deref => 1, - handles => { 'push_private_method' => 'push' }, + handles => { '_push_private_method' => 'push' }, ); sub add_private_method { my ( $self, $method_name, $code ) = @_; $self->add_method( $method_name, - MooseX::Privacy::Meta::Method::Private->new( + MooseX::Privacy::Meta::Method::Private->wrap( name => $method_name, body => $code, package_name => $self->name ) ); - $self->push_private_method($method_name); + $self->_push_private_method($method_name); } 1; diff --git a/lib/MooseX/Privacy/Meta/Class/Protected.pm b/lib/MooseX/Privacy/Meta/Class/Protected.pm index b9d6314..aa5936e 100644 --- a/lib/MooseX/Privacy/Meta/Class/Protected.pm +++ b/lib/MooseX/Privacy/Meta/Class/Protected.pm @@ -11,20 +11,20 @@ has local_protected_methods => ( required => 1, default => sub { [] }, auto_deref => 1, - handles => { 'push_protected_method' => 'push' }, + handles => { '_push_protected_method' => 'push' }, ); sub add_protected_method { my ( $self, $method_name, $code ) = @_; $self->add_method( $method_name, - MooseX::Privacy::Meta::Method::Protected->new( + MooseX::Privacy::Meta::Method::Protected->wrap( name => $method_name, body => $code, package_name => $self->name ) ); - $self->push_protected_method($method_name); + $self->_push_protected_method($method_name); } 1; |