2 # Reported as https://rt.cpan.org/Public/Bug/Display.html?id=59610
14 use MooseX::ClassAttribute;
16 # I also do nothing, except use MX:CA
21 use strict; use warnings;
29 use strict; use warnings;
37 use strict; use warnings;
39 with 'Role1', 'Role2';
44 use strict; use warnings;
46 with 'Role2', 'Role1';
49 # in this example, all roles actually disappear if the second one uses MX:CA!
53 use Test::More tests => 5;
56 local $TODO = 'Class attributes are lost during role composition';
57 foreach my $class (qw(Foo Bar Baz Quux))
60 [ map { $_->name} $class->meta->calculate_all_roles ],
61 superbagof(qw(Role1 Role2)),
62 'Both roles are consumed by class ' . $class,