erlang学习之自定义behaviour【转】

来自：http://www.cnblogs.com/ziyouchutuwenwu/p/3722696.html

R15开始，回调模型使用callback来约定，更加好理解了

test_behavior.erl

-module(test_behavior).

-callback ok_func()->
    {OK::atom()}.

-callback no_reply_func(Reason::atom())->
    {noreply}.

 

test_impl.erl

-module(test_impl).
-behaviour(test_behavior).

-compile(export_all).

ok_func()->
    ok.

no_reply_func(Reason)->
    io:format("~p~n",[Reason]),
    noreply.

 

test.erl

-module(test).
-compile(export_all).

call_behavior_ok(Mod)->
    Mod:ok_func().

call_behavior_no_reply(Mod)->
    Mod:no_reply_func(fuck).

 

测试

test:call_behavior_ok(test_impl).
test:call_behavior_no_reply(test_impl).