7 use Scalar::Util 'blessed';
10 $SIG{__WARN__} = sub { warn $_[0] if $_[0] !~ /Squirrel is deprecated/ };
25 # note that 'Foo' is defined before this, to prevent Moose being loaded from
26 # affecting its definition
29 plan skip_all => "Moose 0.68 required for this test" unless eval { require Moose::Role && Moose::Role->VERSION('0.68') };
45 ok(!Foo::Role->can('has'), "Mouse::Role::has was unimported");
47 skip "ancient moose", 1 if $Moose::VERSION <= 0.50;
48 ok(!Bar::Role->can('has'), "Moose::Role::has was unimported");
55 has bar => (is => 'rw');
60 has bar => (is => 'rw');
63 isa_ok(Foo::Role->meta, 'Mouse::Meta::Role');
64 isa_ok(Foo::Role->meta, 'Mouse::Meta::Role');
66 isa_ok(Bar::Role->meta, 'Moose::Meta::Role');
67 isa_ok(Bar::Role->meta, 'Moose::Meta::Role');