9 use Class::Load 'is_class_loaded';
17 sub foo_role_applied { 1 }
19 package Conflicts::With::Foo;
21 sub foo_role_applied { 0 }
30 $new_class = Moose::Meta::Class->create(
32 superclasses => ['Class'],
35 }, undef, 'creating lives' );
38 my $with_foo = Class::WithFoo->new;
40 ok $with_foo->foo_role_applied;
41 isa_ok $with_foo, 'Class', '$with_foo';
44 Moose::Meta::Class->create(
46 superclasses => ['Class'],
47 roles => 'Foo', # "oops"
49 }, qr/You must pass an ARRAY ref of roles/ );
51 ok !is_class_loaded('Made::Of::Fail'), "did not create Made::Of::Fail";
54 Moose::Meta::Class->create(
55 'Continuing::To::Fail',
56 superclasses => ['Class'],
57 roles => ['Foo', 'Conflicts::With::Foo'],
59 }, undef, 'conflicting roles == death' );
61 # XXX: Continuing::To::Fail gets created anyway