From: Dave Rolsky <autarch@urth.org>
Date: Thu, 10 Sep 2009 17:40:23 +0000 (-0500)
Subject: get_mutable_metaclass_name is now private
X-Git-Tag: 0.89_02~8
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=989263ad9027f6d9c9c0bf18205652447b8a81cc;p=gitmo%2FMoose.git

get_mutable_metaclass_name is now private
---

diff --git a/lib/Moose.pm b/lib/Moose.pm
index 10e9eb1..260474a 100644
--- a/lib/Moose.pm
+++ b/lib/Moose.pm
@@ -171,7 +171,7 @@ sub init_meta {
             my $ancestor_meta = Class::MOP::get_metaclass_by_name($ancestor) || next;
 
             my $ancestor_meta_class = ($ancestor_meta->is_immutable
-                ? $ancestor_meta->get_mutable_metaclass_name
+                ? $ancestor_meta->_get_mutable_metaclass_name
                 : ref($ancestor_meta));
 
             # if we have an ancestor metaclass that inherits $metaclass, we use
diff --git a/lib/Moose/Meta/Class.pm b/lib/Moose/Meta/Class.pm
index 224467e..1431810 100644
--- a/lib/Moose/Meta/Class.pm
+++ b/lib/Moose/Meta/Class.pm
@@ -374,7 +374,7 @@ sub _superclass_meta_is_compatible {
 
     my $super_meta_name
         = $super_meta->is_immutable
-        ? $super_meta->get_mutable_metaclass_name
+        ? $super_meta->_get_mutable_metaclass_name
         : ref($super_meta);
 
     return 1
@@ -398,7 +398,7 @@ sub _reconcile_with_superclass_meta {
 
     my $super_meta_name
         = $super_meta->is_immutable
-        ? $super_meta->get_mutable_metaclass_name
+        ? $super_meta->_get_mutable_metaclass_name
         : ref($super_meta);
 
     my $self_metaclass = ref $self;