anchor.diff:                  ok ->
                       {noreply, State1#state{pid_from = From}};
                   {error, Reason} ->
  -                    {reply, {error, Reason}, State1}
  +                    {stop, Reason, {error, Reason}, State1}
               end;
           {error, Reason} ->
  -            {reply, {error, Reason}, State}
  +            {stop, Reason, {error, Reason}, State}
       end;
   
   exec(Req, From, #state{socket = Socket} = State) ->
  
positive.code: -spec(handle_response(binary(), #state{}) ->
               #state{}).
  handle_response(Data, #state{pid_from = From,
                               socket = Socket,
                               nreq   = NumReq} = State) ->
      reply(Data, From),
      case NumReq of
          ?MAX_REQ_PER_CON ->
              catch gen_tcp:close(Socket),
              State#state{pid_from = undefined, socket = undefined, nreq = 0};
          _ ->
              State#state{pid_from = undefined, nreq = NumReq + 1}
      end.
  
negative.code:         ok ->
              {noreply, State#state{pid_from = From}};
          {error, Reason} ->
              {stop, Reason, {error, Reason}, State}
      end.
  
  
  