9 has 'a' => (is => 'ro');
10 has 'b' => (is => 'ro');
11 has 'c' => (is => 'ro');
17 has 'd' => (is => 'ro');
19 has 'e' => (is => 'ro');
22 my %role_insertion_order = (
28 is_deeply({ map { $_->name => $_->insertion_order } map { Foo::Role->meta->get_attribute($_) } Foo::Role->meta->get_attribute_list }, \%role_insertion_order, "right insertion order within the role");
30 my %class_insertion_order = (
38 { local $TODO = "insertion order is lost during role application";
39 is_deeply({ map { $_->name => $_->insertion_order } Foo->meta->get_all_attributes }, \%class_insertion_order, "right insertion order within the class");