anchor.diff:  %%
   %%% @doc Connection manager for the more or less arbitrary protocol tcp sockets.
   %%% This gen_server is responsible for keeping track of persistent
  -%%% connections to HTTP servers. The only interesting API is
  -%%% `connection_count/0' and `connection_count/1'.
  +%%% connections to HTTP servers.
   -module(ns_connection_pool).
   
   -export([
           start_link/1,
  -        connection_count/1,
  -        connection_count/2,
  -        update_connection_timeout/2,
           maybe_take_socket/2,
           put_socket/3
       ]).
  
positive.code: 
  %% @hidden
  -spec handle_cast(any(), #ns_connection_pool{}) -> {noreply, #ns_connection_pool{}}.
  handle_cast({update_timeout, Milliseconds}, State) ->
      {noreply, State#ns_connection_pool{timeout = Milliseconds}};
  handle_cast(_, State) ->
      {noreply, State}.
  
  
negative.code:                     {reply, no_socket, monitor_client(Dest, From, State2)}
              end
      end;
  handle_call({done, Dest, Socket}, {Pid, _} = From, State) ->
      gen_server:reply(From, ok),
      case dict:find(Pid, State#ns_connection_pool.clients) of
  