$a_ref_to_the_object = Class->new;

##</code><code>##

%$a_ref_to_the_object = %{Class->new};

##</code><code>##

sub retarget_ref {
	my ($old, $new) = @_;
	ref $old and ref $new or return;
	local $SIG{__DIE__}; # disable any user error handlers
	
	eval { $$old = $$new }; $@ or return;
	eval { @$old = @$new }; $@ or return;
	eval { %$old = %$new };
}