From: nperez <nperez@cpan.org>
Date: Fri, 8 May 2009 18:29:13 +0000 (-0500)
Subject: and it would be a good idea to use the writer
X-Git-Tag: 0.84~7
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7cdbe6d227b377cb275ec7d3f3eedfb89da6b52d;p=gitmo%2FClass-MOP.git

and it would be a good idea to use the writer
---

diff --git a/lib/Class/MOP/Class.pm b/lib/Class/MOP/Class.pm
index 42739a3..a720d17 100644
--- 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->insertion_order($order + 1);
+    $attribute->set_insertion_order($order + 1);
 
     # then onto installing the new accessors
     $self->get_attribute_map->{$attribute->name} = $attribute;