Erlang函数名称在运行时更改

-module(my_module).
-export([my_function/1]).

my_function(Arg) ->
    io:format("Hello ~p!~n", [Arg]).

% 在运行时更改函数名称
change_function_name() ->
    NewModuleName = my_module_renamed,
    NewFunctionName = my_function_renamed,
    OldModuleName = my_module,
    OldFunctionName = my_function,
    
    % 重新加载模块
    case code:soft_purge(OldModuleName) of
        true ->
            case code:load_file(NewModuleName) of
                {module, NewModuleName} ->
                    % 修改函数名称
                    case erlang:delete_module(OldModuleName) of
                        true ->
                            erlang:put(OldModuleName, undefined),
                            erlang:put(OldFunctionName, undefined),
                            erlang:put(NewModuleName, undefined),
                            erlang:put(NewFunctionName, undefined),
                            true;
                        _ ->
                            false
                    end;
                _ ->
                    false
            end;
        _ ->
            false
    end.