anchor.diff:           remove/2,
            remove_oldest/1,
            purge/1,
  -         size/1]).
  +         size/1,
  +         info/1,
  +         set_size/2]).
   
   %% API exports
   -export([init/1, handle_call/3, handle_cast/2, handle_info/2, terminate/2,
  
positive.code:                   end, Cache#cache.evict_list),
      {reply, ok, Cache#cache{evict_list=[]}};
  
  handle_call(stop, _From, Cache) ->
      {stop, normal, ok, Cache}.
  
  %% @private
  handle_cast(_Msg, Cache) ->
      {noreply, Cache}.
  
  
negative.code:     call(Cache, purge).
  
  
  %% @doc get cache info
  -spec info(Cache::pid()) -> Info::list().
  info(Cache) ->
      call(Cache, info).
  
  %% @doc change the size of the cache
  -spec set_size(Cache::pid(), Size::non_neg_integer()) -> ok.
  set_size(Cache, Size) ->
      gen_server:cast(Cache, {set_size, Size}).
  
  %%====================================================================
  %% Internal functions
  