sub Instance_Var ($) {
	my $package=__PACKAGE__;
	my $var=$_[0];
	my $accessor="$package::$var";
->	eval "
		sub $accessor {
			my $t=shift;
			$t->{$var}=$_[0] if @_;
			$t->{$var};
		}";
}