Tidy and make weaken_value private

[gitmo/Moose.git] / lib / Moose / Meta / Attribute.pm

diff --git a/lib/Moose/Meta/Attribute.pm b/lib/Moose/Meta/Attribute.pm
index 640f20a..0e3fd5e 100644 (file)
--- a/lib/Moose/Meta/Attribute.pm
+++ b/lib/Moose/Meta/Attribute.pm
@@ -428,7 +428,7 @@ sub initialize_instance_slot {
     $self->set_initial_value($instance, $val);
 
     if ( ref $val && $self->is_weak_ref ) {
-        $self->weaken_value($instance);
+        $self->_weaken_value($instance);
     }
 }
 
@@ -503,7 +503,7 @@ sub set_value {
     $self->SUPER::set_value($instance, $value);
 
     if ( ref $value && $self->is_weak_ref ) {
-        $self->weaken_value($instance);
+        $self->_weaken_value($instance);
     }
 
     if ($self->has_trigger) {
@@ -511,11 +511,11 @@ sub set_value {
     }
 }
 
-sub weaken_value {
+sub _weaken_value {
     my ( $self, $instance ) = @_;
 
-    my $meta_instance =
-      Class::MOP::Class->initialize( blessed($instance) )->get_meta_instance;
+    my $meta_instance = Class::MOP::Class->initialize( blessed($instance) )
+        ->get_meta_instance;
 
     $meta_instance->weaken_slot_value( $instance, $self->name );
 }