anchor.diff:  
   %% gen_server callbacks
   -export([init/1,
  -    handle_call/3,
  -    handle_cast/2,
  -    handle_info/2,
  -    terminate/2,
  -    code_change/3]).
  +         handle_call/3,
  +         handle_cast/2,
  +         handle_info/2,
  +         terminate/2,
  +         code_change/3]).
   
   -define(SERVER, ?MODULE).
   -define(REFRESH_INTERVAL, 5000).
  
positive.code: %% @end
  handle_info(timeout, #state{zone_expirations = Orddict, orddict_size = Size} = State) when Size > 0 ->
      Before = now(),
      %% DO MAGIC
      Timestamp = timestamp(),
      NewOrddict = case hd(orddict:to_list(Orddict)) of
                       {Expiration, ListOfExpiredZones} when Expiration < Timestamp ->
                           [gen_server:cast(erldns_manager, {send_axfr, Args}) || Args <- ListOfExpiredZones],
                           create_new_zone_expiration_orddict(Expiration, Orddict, ListOfExpiredZones);
                       {Expiration, _ListOfExpiredZone} when Expiration >= Timestamp ->
                           Orddict
                   end,
      TimeSpentMs = timer:now_diff(now(), Before) div 1000,
      {noreply, State#state{zone_expirations = NewOrddict, orddict_size = orddict:size(NewOrddict)},
          ?REFRESH_INTERVAL + TimeSpentMs};
  handle_info(timeout, State)  ->
      %%TODO Should we attempt a refresh? And check if there are now zones in our authroity we should watch?
      {noreply, State, ?REFRESH_INTERVAL};
  
negative.code:     {reply, ok, State}.
  
  handle_cast({send_notify, {_BindIP, _DestinationIP, _ZoneName, _ZoneClass} = Args}, State) ->
      Spec = {{erldns_zone_transfer_worker, now()},
              {erldns_zone_transfer_worker, start_link, [send_notify, Args]}, temporary, 5000, worker,
              [erldns_zone_transfer_worker]},
      supervisor:start_child(erldns_zone_transfer_sup, Spec),
      {noreply, State, ?REFRESH_INTERVAL};
  handle_cast({handle_notify, {_Message, _ClientIP, _ServerIP} = Args}, State) ->
      Spec = {{erldns_zone_transfer_worker, now()},
              {erldns_zone_transfer_worker, start_link, [handle_notify, Args]}, temporary, 5000, worker,
              [erldns_zone_transfer_worker]},
      supervisor:start_child(erldns_zone_transfer_sup, Spec),
      {noreply, State, ?REFRESH_INTERVAL};
  handle_cast({send_axfr, {_ZoneName, _ServerIP} = Args}, State) ->
      Spec = {{erldns_zone_transfer_worker, now()},
              {erldns_zone_transfer_worker, start_link, [send_axfr, Args]}, temporary, 5000, worker,
              [erldns_zone_transfer_worker]},
      supervisor:start_child(erldns_zone_transfer_sup, Spec),
      {noreply, State, ?REFRESH_INTERVAL};
  handle_cast(_Request, State) ->
  