[gitmo/Mouse.git] / t / 006-unimport.t

#!/usr/bin/env perl
use strict;
use warnings;
use Test::More tests => 2;

do {
    package Class;
    use Mouse;

    no Mouse;

    package Child;
    use Mouse;
    extends 'Class';

    no Mouse;
};

ok(!Child->can('extends'), "extends keyword is unimported");
ok(!Class->can('extends'), "extends keyword is unimported");
Commit	Line	Data
c3398f5b	1	#!/usr/bin/env perl
	2	use strict;
	3	use warnings;
	4	use Test::More tests => 2;
	5
	6	do {
	7	package Class;
	8	use Mouse;
	9
	10	no Mouse;
	11
	12	package Child;
	13	use Mouse;
	14	extends 'Class';
	15
	16	no Mouse;
	17	};
	18
	19	ok(!Child->can('extends'), "extends keyword is unimported");
	20	ok(!Class->can('extends'), "extends keyword is unimported");
	21