elector

%%%-------------------------------------------------------------------
%% @doc elector application module that bootstraps the elector.
%% @private
%% @end
%%%-------------------------------------------------------------------
-module(elector_app).

%%--------------------------------------------------------------------
%% Behaviours
%%--------------------------------------------------------------------
-behaviour(application).

%%--------------------------------------------------------------------
%% Exported API
%%--------------------------------------------------------------------
-export([start/2, stop/1]).

%%--------------------------------------------------------------------
%% Exported functions
%%--------------------------------------------------------------------
%% @doc Starts the elector application.
-spec start(_StartType :: term(), _StartArgs :: term()) -> ok.
start(_StartType, _StartArgs) ->
    validate(),
    elector_sup:start_link().

-spec stop(_State :: term()) -> ok.
stop(_State) ->
    ok.

%%---------------------------------------------------------------------
%% internal functions
%%---------------------------------------------------------------------
%% @doc Validates the strategy module.
validate() ->
    Strategy_module = elector_config_handler:strategy_module(),

    Attributes = erlang:apply(Strategy_module, module_info, [attributes]),
    Behaviours = proplists:get_value(behaviour, Attributes),
    Is_strategy = lists:member(elector_strategy_behaviour, Behaviours),

    if Is_strategy /= true ->
           throw({strategy_implementation_error,
                  "Strategy module must implement the base strategy behaviour"});
       true ->
           nil
    end,

    ok.