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

use strict;
use warnings;

use Test::More tests => 2;

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

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

ok eval("!defined(&CONST)");
Commit	Line	Data
226432f6	1	use strict;
	2	use warnings;
	3
39bc2d6e	4	use Test::More tests => 2;
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)");