# Automatically setup 'debug_around' on methods with the 'Debug' attribute: sub Debug :ATTR_SUB { my ($package, $symbol, $referent, $attr, $data, $phase, $filename, $linenum) = @_;

scream(join('',
	ref($referent), " ",
	*{$symbol}{NAME}, " ",
	"($referent) ", "was just declared ",
	"and ascribed the ${attr} attribute ",
	"with data ($data)\n",
	"in phase $phase\n",
	"in file $filename at line $linenum\n"
));


return debug_around(*{$symbol}{NAME}, pkg => $package, filename => $filename, line => $linenum);
}