10 use Scalar::Util 'blessed';
13 $SIG{__WARN__} = sub { warn $_[0] if $_[0] !~ /Squirrel is deprecated/ };
18 use Squirrel::Role; # loa Mouse::Role
28 # note that 'Foo' is defined before this, to prevent Moose being loaded from
29 # affecting its definition
32 eval{ require Moose::Role && Moose::Role->VERSION(Mouse::Spec->MooseVersion) };
33 plan skip_all => "Moose $Mouse::Spec::MooseVersion required for this test" if $@;
39 use Squirrel::Role; # load Moose::Role
49 ok(!Foo::Role->can('has'), "Mouse::Role::has was unimported");
50 ok(!Bar::Role->can('has'), "Moose::Role::has was unimported");
56 has bar => (is => 'rw');
61 has bar => (is => 'rw');
64 isa_ok(Foo::Role->meta, 'Mouse::Meta::Role');
65 isa_ok(Foo::Role->meta, 'Mouse::Meta::Role');
67 isa_ok(Bar::Role->meta, 'Moose::Meta::Role');
68 isa_ok(Bar::Role->meta, 'Moose::Meta::Role');