From: Dave Rolsky <autarch@houseabsolute.urth.org>
Date: Fri, 27 Mar 2009 01:27:21 +0000 (-0500)
Subject: Make MMMC->initialize_body private (there is a public version in the
X-Git-Tag: 0.73_01~5^2~3
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f5b0af77bf4082b2272b4ce37eae529cdcd745fc;p=gitmo%2FMoose.git

Make MMMC->initialize_body private (there is a public version in the
parent class that will warn if called)
---

diff --git a/lib/Moose/Meta/Method/Constructor.pm b/lib/Moose/Meta/Method/Constructor.pm
index 0a6dd36..ed7ec3b 100644
--- a/lib/Moose/Meta/Method/Constructor.pm
+++ b/lib/Moose/Meta/Method/Constructor.pm
@@ -42,7 +42,7 @@ sub new {
     # needed
     weaken($self->{'associated_metaclass'});
 
-    $self->initialize_body;
+    $self->_initialize_body;
 
     return $self;
 }
@@ -133,7 +133,7 @@ sub _generate_slot_initializers {
     } 0 .. (@{$self->attributes} - 1)) . ";\n";
 }
 
-sub initialize_body {
+sub _initialize_body {
     my $self = shift;
     # TODO:
     # the %options should also include a both