my $object = $other_object->get_object; my $result = do { use safederef; $object->possible_method; };