anchor.diff:        BodySizeOut:32, (opaque(Index)):32,
         0:64, BodyOut/binary>>;
   
  +canned_responses(binary, _Index, _Key, Op, flushed) ->
  +    ExtrasOut = <<>>,
  +    ExtrasSizeOut = size(ExtrasOut),
  +    Status = ?NO_ERROR,
  +    BodyOut = <<>>,
  +    BodySizeOut = size(BodyOut),
  +    KeySize = 0,
  +
  +    <<16#81:8, Op:8, KeySize:16, ExtrasSizeOut:8, 0, Status:16,
  +      BodySizeOut:32, 16#00:32,
  +      0:64, BodyOut/binary>>;
  +
   canned_responses(binary, _Index, _Key, _Op, noop)       -> [].
   
   
  
positive.code: -behaviour(gen_server).
  
  %%% Macros
  -export([reset_all_keys/0,
           start_link/1,
           stop/1,
           reset/1,
           init/1,
  
negative.code:     timer:sleep(1),
      send(Sock, Rest).
  
  
  flush_all(Parent, Port) ->
      gen_server:call(Parent, {flush_all, Port}).
  
  get_key(Parent, Port, Key) ->
      {ok, Result} = gen_server:call(Parent, {get_key, Port, Key}),
      Result.
  
  put_key(Parent, Port, Key, Value, CAS) ->
      gen_server:call(Parent, {put_key, Port, Key, Value, CAS}).
  put_key(Parent, Port, Key, Value) ->
      put_key(Parent, Port, Key, Value, undefined).
  
  
  parse(<<16#80:8, _Rest/binary>> = Request) ->
      ct:log("About to parse request: ~p", [Request]),
  