Change the writer for insertion_order to include an underscore prefix

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

diff --git a/lib/Class/MOP.pm b/lib/Class/MOP.pm
index bdc1783..e9f94f2 100644 (file)
--- a/lib/Class/MOP.pm
+++ b/lib/Class/MOP.pm
@@ -510,7 +510,7 @@ Class::MOP::Attribute->meta->add_attribute(
 Class::MOP::Attribute->meta->add_attribute(
     Class::MOP::Attribute->new('insertion_order' => (
         reader      => { 'insertion_order' => \&Class::MOP::Attribute::insertion_order },
-        writer      => { 'set_insertion_order' => \&Class::MOP::Attribute::set_insertion_order },
+        writer      => { '_set_insertion_order' => \&Class::MOP::Attribute::_set_insertion_order },
         predicate   => { 'has_insertion_order' => \&Class::MOP::Attribute::has_insertion_order },
     ))
 );