anchor.diff:      {reply, {ok, MA}, State, MA};
   handle_call({set_max_age, MA}, _From, State) ->
       {reply, ok, State#state{max_age=MA}, MA};
  +handle_call(get_type, _From,#state{type = Type, max_age=MA} = State) ->
  +    {reply, {ok, Type}, State, MA};
  +handle_call({set_type, Type}, _From,#state{type = undefined,
  +                                           max_age=MA} = State) ->
  +    {reply, ok, State#state{type = Type}, MA};
  +handle_call({set_type, _Type}, _From,#state{max_age=MA} = State) ->
  +    {reply, ok, State, MA};
   handle_call({set_iss_sub, Issuer, Subject}, _From,
               #state{max_age=MA, user_info=Info}=State) ->
       {ok, NewInfo} = watts_userinfo:update_iss_sub(Issuer, Subject, Info),
  
positive.code: -include("watts.hrl").
  -record(state, {
            id = unkonwn,
            issuer_id = undefined,
            sess_token = undefined,
            user_agent = undefined,
  
negative.code: -export([set_max_age/2]).
  
  -export([set_token/2]).
  -export([set_type/2]).
  -export([get_type/1]).
  
  -export([set_error/2]).
  -export([get_error/1]).
  