anchor.diff:  %%% gen server
   
   init([]) ->
  +    process_flag(trap_exit, true),
       Tab = ets:new(?MODULE, [protected, set, named_table]),
       {ok, #state{tab=Tab}}.
   
  
positive.code:     %% if a get stats is not under way start one
      Awaiting = case orddict:find(App, Active) of
                     error ->
                         do_get_stats(App, {M, F, A}),
                         [From];
                     {ok, Froms} ->
                         [From|Froms]
                 end,
      orddict:store(App, Awaiting, Active).
  
  
negative.code:       {"Expired cache, re-calculate",
         fun get_expired/0},
        {"Only a single process can calculate stats",
         fun serialize_calls/0},
        {"Crash test",
         fun crasher/0}
        ]}.
  
  register() ->
      [meck:expect(M, produce_stats, fun() -> ?STATS end)
  