X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FClass%2FMOP%2FMethod%2FConstructor.pm;h=6e8337e3a85b4d421024d44a3913621f8fabde1a;hb=8f7852d8bbcb946bb01f8c4ad8e798b023099962;hp=ae5a548e75de55eb0b07bd694e64ca3f71408bec;hpb=afc92ac600289dd8a31b1c4c0a5aa946a2022f1b;p=gitmo%2FClass-MOP.git

diff --git a/lib/Class/MOP/Method/Constructor.pm b/lib/Class/MOP/Method/Constructor.pm
index ae5a548..6e8337e 100644
--- a/lib/Class/MOP/Method/Constructor.pm
+++ b/lib/Class/MOP/Method/Constructor.pm
@@ -31,7 +31,7 @@ sub new {
     # needed
     weaken($self->{'associated_metaclass'});
 
-    $self->initialize_body;
+    $self->_initialize_body;
 
     return $self;
 }
@@ -74,6 +74,12 @@ sub attributes {
 ## method
 
 sub initialize_body {
+    warn 'The initialize_body method has been made private.'
+        . " The public version is deprecated and will be removed in a future release.\n";
+    goto &_initialize_body;
+}
+
+sub _initialize_body {
     my $self        = shift;
     my $method_name = 'generate_constructor_method';