keep

-module(keep).

-export([init/0, get/1, put/2, delete/1]).

init() ->
    ets:new(keep, [named_table, public, ordered_set]).

get(Key) ->
    case ets:lookup(keep, Key) of
        [{Key, Value}] -> Value;
        _ -> undefined
    end.

put(Key, Value) ->
    ets:insert(keep, {Key, Value}).

delete(Key) ->
    ets:delete(keep, Key).