anchor.diff:  %%                                  {stop, Reason, State}
   %% @end
   %%--------------------------------------------------------------------
  +handle_cast({diag, Err}, State) ->
  +    {noreply, do_diag(Err, State)};
   handle_cast(_Msg, State) ->
       {noreply, State}.
   
  
positive.code:         undefined -> ok;
          _ ->
              try erlang:process_info(Pid, message_queue_len) of
                  {_, V} when V < 1 -> gen_server:call(?MODULE, {diag, Err});
                  _ -> nothing
              catch _:_ -> nothing
              end
  
negative.code: %%                                   {stop, Reason, State}
  %% @end
  %%--------------------------------------------------------------------
  handle_call(_, _From, _State) ->
      erlang:error(unsupported).
  
  do_diag(Err, #state{last_tstamp = TStamp} = State) ->
      self() ! busy_marker,
      Now = misc:time_to_epoch_ms_int(now()),
      NewState =
  