#!perl -w
use strict;

print "namespace comparison:\n";

system $^X, '-e', <<'CODE';
	use strict;
	{
		package AH;
		use Attribute::Handlers;

		sub Bar :ATTR(CODE){}
	}

	use Class::Inspector;
	use Data::Dumper;
	print "\nAttribute::Handlers\n";
	print Data::Dumper->Dump([Class::Inspector->methods('AH')], ['*MODULE']);
	print Data::Dumper->Dump([Class::Inspector->methods('UNIVERSAL')], ['*UNIVERSAL']);
CODE

system $^X, '-e', <<'CODE';
	use strict;
	{
		package SA;
		use Sub::Attribute;

		sub Foo :ATTR_SUB{}
	}

	use Class::Inspector;
	use Data::Dumper;
	print "\nSub::Attribute\n";
	print Data::Dumper->Dump([Class::Inspector->methods('SA')], ['*MODULE']);
	print Data::Dumper->Dump([Class::Inspector->methods('UNIVERSAL')], ['*UNIVERSAL']);
__END__
CODE