5 use Test::More tests => 10;
14 # this attribute definition is intended to load submodules
22 __PACKAGE__->meta->make_immutable; # ensure metaclasses loaded
31 my $metaclass = Class->meta;
33 can_ok($metaclass, 'meta');
35 can_ok($metaclass->constructor_class, 'meta');
36 can_ok($metaclass->destructor_class, 'meta');
37 can_ok($metaclass->attribute_metaclass, 'meta');
39 can_ok($metaclass->get_method('foo'), 'meta');
40 can_ok($metaclass->get_attribute('foo'), 'meta');
41 can_ok($metaclass->get_attribute('foo')->accessor_metaclass, 'meta');
42 can_ok($metaclass->get_attribute('foo')->delegation_metaclass, 'meta');
46 my $metarole = Class->meta;
48 can_ok($metarole, 'meta');
50 can_ok($metarole->get_method('foo'), 'meta');