7 use Scalar::Util 'blessed';
21 # note that 'Foo' is defined before this, to prevent Moose being loaded from
22 # affecting its definition
25 plan skip_all => "Moose required for this test" unless eval { require Moose::Role };
41 ok(!Foo::Role->can('has'), "Mouse::Role::has was unimported");
42 ok(!Bar::Role->can('has'), "Moose::Role::has was unimported");
48 has bar => (is => 'rw');
53 has bar => (is => 'rw');
56 isa_ok(Foo::Role->meta, 'Mouse::Meta::Role');
57 isa_ok(Foo::Role->meta, 'Mouse::Meta::Role');
59 isa_ok(Bar::Role->meta, 'Moose::Meta::Role');
60 isa_ok(Bar::Role->meta, 'Moose::Meta::Role');