6 my $Point = Class::MOP::Class->create('Point' => (
9 Class::MOP::Attribute->new('x' => (
13 Class::MOP::Attribute->new('y' => (
21 my $instance = $class->meta->new_object(@_);
22 bless $instance => $class;
32 is($Point->get_attribute('x')->insertion_order, 0, 'Insertion order of Attribute "x"');
33 is($Point->get_attribute('y')->insertion_order, 1, 'Insertion order of Attribute "y"');