no Moo;
}
+{
+ package Roller;
+
+ use Moo::Role;
+
+ no warnings 'redefine';
+
+ sub with { "with!" }
+
+ no Moo::Role;
+}
+
ok(!Spoon->can('extends'), 'extends cleaned');
is(Spoon->has, "has!", 'has left alone');
+ok(!Roller->can('has'), 'has cleaned');
+is(Roller->with, "with!", 'with left alone');
+
done_testing;