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");
43 skip "ancient moose", 1 if $Moose::VERSION <= 0.50;
44 ok(!Bar::Role->can('has'), "Moose::Role::has was unimported");
51 has bar => (is => 'rw');
56 has bar => (is => 'rw');
59 isa_ok(Foo::Role->meta, 'Mouse::Meta::Role');
60 isa_ok(Foo::Role->meta, 'Mouse::Meta::Role');
62 isa_ok(Bar::Role->meta, 'Moose::Meta::Role');
63 isa_ok(Bar::Role->meta, 'Moose::Meta::Role');