anchor.diff:                        {H, I}
                 end,
                 mc_bucket:addrs(Pool, B)).
  +
  +monitor_all() ->
  +    {Buckets, Servers} = get_buckets_and_servers(),
  +    monitor(Servers, Buckets),
  +    {ok, Servers}.
  +
  +unmonitor_all() ->
  +    {_Buckets, Servers} = get_buckets_and_servers(),
  +    unmonitor(Servers),
  +    {ok, Servers}.
  
positive.code: -behaviour(gen_event).
  
  -export([start_link/0, setup_handler/0]).
  
  %% gen_event callbacks
  -export([init/1, handle_event/2, handle_call/2,
  
negative.code:                   end,
                    Servers).
  
  unmonitor(Servers) ->
      lists:foreach(fun ({H, P}) ->
                            stats_collector:unmonitor(H, P)
                    end, Servers).
  
  get_buckets_and_servers() ->
      [Pool | []] = mc_pool:list(), % assume one pool
      Buckets = mc_bucket:list(Pool),
  