9 use Mouse -traits => 'My::Role';
12 package SubClassUseBase;
13 use base qw/SomeClass/;
16 package SubSubClassUseBase;
17 use base qw/SubClassUseBase/;
20 use Test::More tests => 2;
21 use Mouse::Util qw/find_meta does_role/;
23 my $subsubclass_meta = Mouse->init_meta( for_class => 'SubSubClassUseBase' );
24 ok does_role($subsubclass_meta, 'My::Role'),
25 'SubSubClass metaclass does role from grandparent metaclass';
26 my $subclass_meta = find_meta('SubClassUseBase');
27 ok does_role($subclass_meta, 'My::Role'),
28 'SubClass metaclass does role from parent metaclass';