5 use File::Spec::Functions;
11 use lib catdir($FindBin::Bin, 'lib');
19 use metaclass 'MyMetaClass' => (
20 'attribute_metaclass' => 'MyMetaClass::Attribute',
21 'instance_metaclass' => 'MyMetaClass::Instance',
22 'method_metaclass' => 'MyMetaClass::Method',
23 'random_metaclass' => 'MyMetaClass::Random',
29 isa_ok($meta, 'MyMetaClass', '... Correct metaclass');
30 ok(Class::MOP::is_class_loaded('MyMetaClass'), '... metaclass loaded');
32 is($meta->attribute_metaclass, 'MyMetaClass::Attribute', '... Correct attribute metaclass');
33 ok(Class::MOP::is_class_loaded('MyMetaClass::Attribute'), '... attribute metaclass loaded');
35 is($meta->instance_metaclass, 'MyMetaClass::Instance', '... Correct instance metaclass');
36 ok(Class::MOP::is_class_loaded('MyMetaClass::Instance'), '... instance metaclass loaded');
38 is($meta->method_metaclass, 'MyMetaClass::Method', '... Correct method metaclass');
39 ok(Class::MOP::is_class_loaded('MyMetaClass::Method'), '... method metaclass loaded');