diff options
author | franck cuny <franck@lumberjaph.net> | 2010-02-14 14:19:43 +0100 |
---|---|---|
committer | franck cuny <franck@lumberjaph.net> | 2010-02-14 14:19:43 +0100 |
commit | 1ae3b8b58a365a3db69c7a705cda9b90f822b524 (patch) | |
tree | f7334bfd70d459f01ec17fb3515372fb32128a3c /lib/MooseX/Privacy/Meta/Class/Private.pm | |
parent | fix message (diff) | |
download | moosex-privacy-1ae3b8b58a365a3db69c7a705cda9b90f822b524.tar.gz |
add_{private,protected}_method accept meta method
Diffstat (limited to 'lib/MooseX/Privacy/Meta/Class/Private.pm')
-rw-r--r-- | lib/MooseX/Privacy/Meta/Class/Private.pm | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/lib/MooseX/Privacy/Meta/Class/Private.pm b/lib/MooseX/Privacy/Meta/Class/Private.pm index 7cea57c..0482d08 100644 --- a/lib/MooseX/Privacy/Meta/Class/Private.pm +++ b/lib/MooseX/Privacy/Meta/Class/Private.pm @@ -15,12 +15,20 @@ has local_private_methods => ( ); sub add_private_method { - my ( $self, $method_name, $code ) = @_; + my $self = shift; + my ( $method_name, $body ); + if ( scalar @_ == 1 ) { + $method_name = $_[0]->name; + $body = $_[0]->body; + } + else { + ( $method_name, $body ) = @_; + } $self->add_method( $method_name, MooseX::Privacy::Meta::Method::Private->wrap( name => $method_name, - body => $code, + body => $body, package_name => $self->name ) ); |