sub some_sub {
	my ($pkg) = caller;
	@{"${pkg}::_ATTR"} = @_;
	...
}