Change the writer for insertion_order to include an underscore prefix

[gitmo/Class-MOP.git] / lib / Class / MOP / Class.pm

diff --git a/lib/Class/MOP/Class.pm b/lib/Class/MOP/Class.pm
index a720d17..41fc059 100644 (file)
--- a/lib/Class/MOP/Class.pm
+++ b/lib/Class/MOP/Class.pm
@@ -831,7 +831,7 @@ sub add_attribute {
     # get our count of previously inserted attributes and
     # increment by one so this attribute knows its order
     my $order = (scalar keys %{$self->get_attribute_map}) - 1; 
-    $attribute->set_insertion_order($order + 1);
+    $attribute->_set_insertion_order($order + 1);
 
     # then onto installing the new accessors
     $self->get_attribute_map->{$attribute->name} = $attribute;