anchor.diff:    {ok, AccessToken} = maps:find(<<"access_token">>, TokenMap),
     AccessedPath = list_to_binary(binary_to_list(Path) ++ "?access_token=" ++ binary_to_list(AccessToken)),
     request(AccessedPath, Method, Headers, Body).
  -
  -
  -
  -
  -
  -
  
positive.code: get_response_body_raw(Response) ->
    {ok, {_, _, Body, _ , _}} = Response,
    BodyList = binary_to_list(Body),
    Start = string:str(BodyList, "{"),
    End = string:str(BodyList, "}"),
    case {Start, End} of
      {0, 0} -> {error, no_json, BodyList};
      _ ->
        Bin = list_to_binary(string:sub_string(BodyList, Start, End)),
        tr_json:decode(Bin)
    end.
  
  
negative.code:     Data = get_stream(State),
        case Data of
          ok -> ok;
          {error, Name, R} ->
            lager:warning("Unknown data ~p:~p!",[Name, R]),
            ok;
          Other when is_map(Other)->
            {ok, DeviceId} = maps:find(<<"coreid">>, Data),
            location_store:register_location(DeviceId, Data)
        end,
      erlang:send_after(?TIMEDIFF, self(), request, []),
      {noreply, State}
    catch Err:Reason ->
      lager:error("Error during sending request ~p", [{Err, Reason}]),
      {stop, {Err, Reason}, State}
    end.
  
  terminate(Reason, State) ->
  