[gitmo/Moo.git] / t / no-moo.t

use strictures 1;
use Test::More;

{
  package Spoon;

  use Moo;

  no warnings 'redefine';

  sub has { "has!" }

  no Moo;
}

ok(!Spoon->can('extends'), 'extends cleaned');
is(Spoon->has, "has!", 'has left alone');

done_testing;
Commit	Line	Data
34a69e36	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;