11 use base 'Class::MOP::Class';
14 use base 'Class::MOP::Class';
17 use base 'Foo::Meta', 'Bar::Meta';
23 metaclass->import('Foo::Meta');
25 ok(!$@, '... Foo.meta => Foo::Meta is compatible') || diag $@;
30 metaclass->import('Bar::Meta');
32 ok(!$@, '... Bar.meta => Bar::Meta is compatible') || diag $@;
38 metaclass->import('Bar::Meta');
40 ok($@, '... Foo::Foo.meta => Bar::Meta is not compatible') || diag $@;
46 metaclass->import('Foo::Meta');
48 ok($@, '... Bar::Bar.meta => Foo::Meta is not compatible') || diag $@;
54 metaclass->import('FooBar::Meta');
56 ok(!$@, '... FooBar.meta => FooBar::Meta is compatible') || diag $@;
62 metaclass->import('FooBar::Meta');
64 ok(!$@, '... FooBar2.meta => FooBar::Meta is compatible') || diag $@;