anchor.diff:  %% Exported Functions
   %%------------------------------------------------------------------------------
   
  +%% @doc Get the value for `Key' or `undefined' if not found.
   -spec get(any()) -> undefined | {ok, any()}.
   get(Key) ->
     case ets:lookup(?MODULE, Key) of
  
positive.code: -module(clj_cache).
  
  -behavior(gen_server).
  
negative.code: %% gen_server callbacks
  %%------------------------------------------------------------------------------
  
  %% @private
  start_link() ->
    gen_server:start_link({local, ?MODULE}, ?MODULE, [], []).
  
  %% @private
  init([]) ->
    ets:new(?MODULE, [named_table, set, protected, {keypos, 1}]),
    {ok, undefined}.
  
  %% @private
  handle_call({put, Key, Value}, _From, State) ->
    true = ets:insert(?MODULE, {Key, Value}),
    {reply, ok, State}.
  
  %% @private
  handle_cast(_Msg, State) ->
    {noreply, State}.
  
  %% @private
  handle_info(_Msg, State) ->
    {noreply, State}.
  
  %% @private
  terminate(_Msg, State) ->
    {ok, State}.
  
  %% @private
  code_change(_Msg, _From, State) ->
    {ok, State}.
  