use Sub::Name 'subname';
use Devel::GlobalDestruction 'in_global_destruction';
-our $VERSION = '0.83';
+our $VERSION = '0.84';
$VERSION = eval $VERSION;
our $AUTHORITY = 'cpan:STEVAN';
# 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;