5 use Test::More tests => 10;
11 has foo => (is => 'rw');
13 __PACKAGE__->meta->make_immutable; # ensure metaclasses loaded
22 my $metaclass = Class->meta;
24 can_ok($metaclass, 'meta');
26 can_ok($metaclass->constructor_class, 'meta');
27 can_ok($metaclass->destructor_class, 'meta');
28 can_ok($metaclass->attribute_metaclass, 'meta');
30 can_ok($metaclass->get_method('foo'), 'meta');
31 can_ok($metaclass->get_attribute('foo'), 'meta');
32 can_ok($metaclass->get_attribute('foo')->accessor_metaclass, 'meta');
33 can_ok($metaclass->get_attribute('foo')->delegation_metaclass, 'meta');
37 my $metarole = Class->meta;
39 can_ok($metarole, 'meta');
41 can_ok($metarole->get_method('foo'), 'meta');