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