anchor.diff:      {noreply, schedule_cache_purge(State)};
   
   handle_cast(?MONITOR_TOKEN_REQ(TokenAuth, TokenRef), State) ->
  +    ?debug("Received request to monitor token (~s)", [TokenRef]),
  +
       case is_token_revoked(TokenRef) of
           {ok, IsRevoked} ->
               ets:update_element(?CACHE_NAME, TokenAuth, [
  
positive.code: -spec purge_cache(state()) -> state().
  purge_cache(State) ->
      ets:delete_all_objects(?CACHE_NAME),
      cancel_cache_purge_timer(State).
  
  
  
negative.code:     {noreply, State};
  
  handle_cast(?TOKEN_DELETED_MSG(TokenId), State) ->
      ?debug("Received token deleted event for token ~s", [TokenId]),
  
      ets:select_replace(?CACHE_NAME, ets:fun2ms(fun(#cache_entry{
          token_ref = {named, Id}
      } = CacheEntry) when Id == TokenId ->
  