sub legacy_code { warn ("This method is deprecated, use current_method instead"); goto(¤t_method); }