anchor.diff:          max_pool_size = 50 :: non_neg_integer(),
           timeout = 300000 :: non_neg_integer()
       }).
  +
  +%% @spec (PoolPidOrName) -> list()
  +%% @doc Returns the current settings in state for the
  +%% specified lhttpc pool (manager).
  +%% @end
  +-spec dump_settings(pid() | atom()) -> list().
  +dump_settings(PidOrName) ->
  +    gen_server:call(PidOrName, dump_settings).
  +
  +-spec set_max_pool_size(pid() | atom(), non_neg_integer()) -> ok.
  +set_max_pool_size(PidOrName, Size) when is_integer(Size), Size > 0 ->
  +    gen_server:cast(PidOrName, {set_max_pool_size, Size}).
  +
   
   %% @spec (PoolPidOrName) -> Count
   %%    Count = integer()
  
positive.code:                     {reply, no_socket, monitor_client(Dest, From, State2)}
              end
      end;
  handle_call(connection_count, _, State) ->
      {reply, dict:size(State#httpc_man.sockets), State};
  handle_call({connection_count, Destination}, _, State) ->
  
negative.code: -spec handle_cast(any(), #httpc_man{}) -> {noreply, #httpc_man{}}.
  handle_cast({update_timeout, Milliseconds}, State) ->
      {noreply, State#httpc_man{timeout = Milliseconds}};
  handle_cast({set_max_pool_size, Size}, State) ->
      {noreply, State#httpc_man{max_pool_size = Size}};
  handle_cast(_, State) ->
      {noreply, State}.
  
  