4 use Test::More tests => 12;
7 package My::Meta::Class;
9 extends 'Mouse::Meta::Class';
11 has my_class_attr => (
15 package My::Meta::Role;
17 extends 'Mouse::Meta::Role';
23 package My::Meta::Attribute;
25 extends 'Mouse::Meta::Attribute';
33 my $meta = My::Meta::Class->initialize('Foo');
34 isa_ok $meta, 'My::Meta::Class';
35 can_ok $meta, qw(name my_class_attr);
36 is $meta->name, 'Foo';
38 is $meta->my_class_attr, 42;
41 $meta = My::Meta::Role->initialize('Bar');
42 isa_ok $meta, 'My::Meta::Role';
43 can_ok $meta, qw(name my_role_attr);
44 is $meta->name, 'Bar';
46 is $meta->my_role_attr, 43;
49 $meta = My::Meta::Attribute->new('baz');
50 isa_ok $meta, 'My::Meta::Attribute';
51 can_ok $meta, qw(name my_attr_attr);
52 is $meta->name, 'baz';
54 is $meta->my_attr_attr, 44;