t/no-moo.t

   1 use strictures 1;
   2 use Test::More;
   3
   4 {
   5   package Spoon;
   6
   7   use Moo;
   8
   9   no warnings 'redefine';
  10
  11   sub has { "has!" }
  12
  13   no Moo;
  14 }
  15
  16 ok(!Spoon->can('extends'), 'extends cleaned');
  17 is(Spoon->has, "has!", 'has left alone');
  18
  19 done_testing;