sub AUTOLOAD {
	next if $AUTOLOAD =~ /DESTROY/;	# be safe
	my $sub_text = shift;
	$AUTOLOAD =~ s/.*:://;
	eval qq|*{$AUTOLOAD} = sub { $sub_text };|
	# the following goto may require
	# no strict 'refs';
	goto &$AUTOLOAD;
}