summaryrefslogtreecommitdiff
path: root/lib/MooseX/Privacy/Meta/Class/Private.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/MooseX/Privacy/Meta/Class/Private.pm')
-rw-r--r--lib/MooseX/Privacy/Meta/Class/Private.pm12
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
)
);