[p5sagit/namespace-clean.git] / t / 08-const-sub.t

use strict;
use warnings;

use Test::More 0.88;

use constant CONST => 123;
use namespace::clean;

my $x = CONST;
is $x, 123;

ok eval("!defined(&CONST)");

done_testing;
Commit	Line	Data
226432f6	1	use strict;
	2	use warnings;
	3
04312494	4	use Test::More 0.88;
226432f6	5
	6	use constant CONST => 123;
	7	use namespace::clean;
	8
	9	my $x = CONST;
	10	is $x, 123;
	11
	12	ok eval("!defined(&CONST)");
	13
	14	done_testing;