GenServer Supervisor Revision 2

gen_server_supervisor_rev_02.ex

defmodule GenServerSupervisor do
  use GenServer

  # Client API #
  def start_link(child_specs_list) do
    GenServer.start_link(__MODULE__, child_specs_list)
  end

  # Server API #

  def init(child_specs_list) do
    Process.flag(:trap_exit, true)

    child_specs_list |> start_children
  end

  # Helper Functions #
  defp start_children([child_spec | rest]) do
    case start_child(child_spec) do
      {:ok, pid} ->
        [{pid, child_spec} | start_children(rest)]
      :error -> :error
    end
  end

  defp start_children([]), do: []

  defp start_child({module, fun, args}) do
    case apply(module, fun, args) do
      {:ok, pid} -> {:ok, pid}
      _ -> :error
    end
  end
end