anchor.diff:  
   
   terminate(_Reason, #state{client = Client, parser = Parser}) ->
  -    fusco:disconnect(Client),
  +    fusco_cp:stop(Client),
       exml_stream:free_parser(Parser).
   
   
  
positive.code:     {MS, S, MMS} = now(),
      InitRid = MS * 1000000 * 1000000 + S * 1000000 + MMS,
      {ok, Parser} = exml_stream:new_parser(),
      {ok, Client} = fusco:start({HostStr, Port, false},
                                 [{on_connect, OnConnectFun}]),
      {ok, #state{owner = Owner,
                  url = Path,
                  parser = Parser,
  
negative.code: request(#transport{socket = {Client, Path}}, Body, OnReplyFun) ->
      Headers = [{<<"Content-Type">>, <<"text/xml; charset=utf-8">>}],
      Reply =
          fusco_cp:request(Client, Path, "POST", Headers, exml:to_iolist(Body),
                           2, infinity),
      OnReplyFun(Reply),
      {ok, {_Status, _Headers, RBody, _Size, _Time}} = Reply,
      {ok, RBody}.
  