sub foo
{
	. . .
	my $obj = $self->which_obj;
	. . .
}