Mailman - Useful process mailbox functions for Elixir

mailman.ex

defmodule Mailman do
  def get_all, do: do_get_all()

  def peek(pid \\ nil) do
    {:messages, messages} = :erlang.process_info(pid || self(), :messages)

    messages
  end

  defp do_get_all(msgs \\ []) do
    receive do
      msg -> do_get_all([msg | msgs])
    after
      0 -> msgs
    end
  end
end