6 use Test::More tests => 3;
12 package My::Custom::Meta::Attr;
15 extends 'Mouse::Meta::Attribute';
19 package My::Fancy::Role;
22 has 'bling_bling' => (
23 metaclass => 'My::Custom::Meta::Attr',
33 with 'My::Fancy::Role';
36 my $c = My::Class->new;
37 isa_ok($c, 'My::Class');
39 ok($c->meta->has_attribute('bling_bling'), '... got the attribute');
41 isa_ok($c->meta->get_attribute('bling_bling'), 'My::Custom::Meta::Attr');