[perl5.git] / dist / Attribute-Handlers / t / constants.t

use strict;
use Test::More tests => 1;
use Attribute::Handlers;
# This had been failing since the introduction of proxy constant subroutines
use constant SETUP => undef;
sub Test : ATTR(CODE) { };
ok(1, "If we got here, CHECK didn't fail");
Commit	Line	Data
39c882db NC	1	use strict;
	2	use Test::More tests => 1;
	3	use Attribute::Handlers;
	4	# This had been failing since the introduction of proxy constant subroutines
	5	use constant SETUP => undef;
	6	sub Test : ATTR(CODE) { };
	7	ok(1, "If we got here, CHECK didn't fail");