summary refs log tree commit diff
diff options
context:
space:
mode:
authorfranck cuny <franck@lumberjaph.net>2010-02-14 12:07:57 +0100
committerfranck cuny <franck@lumberjaph.net>2010-02-14 12:07:57 +0100
commit15ba520701c09c3025b222d587056d62e2947a1b (patch)
tree7ca75b20e1cf63cf34fa92368e39a44d481a5144
parentuse with_meta instead of with_caller (diff)
downloadmoosex-privacy-15ba520701c09c3025b222d587056d62e2947a1b.tar.gz
make push_* private and use wrap instead of new
-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;