Tenho o seguinte código em TLPP pra teste:

Method get() as Logical Class SolicitacaoArmazemController

    // Setar Empresa e Filial no começo do App.

    rpcSetEnv(cEmpAnt, cFilAnt)
    oRest:setKeyHeaderResponse('Content-Type', 'application/json; charset=utf-8')

    // Cria a string JSON de resposta
    Local cResponseJson := '[{"Mensagem":"Hello World!"}]'

    // Define a resposta do REST utilizando a string JSON criada
    oRest:setResponse(cResponseJson)

    ConOut("SolicitacaoArmazemController::get - JSON estático gerado e retornado com sucesso: " + cResponseJson)

    // Reseta para o All... (Filial e Empresa) e fecha a conexão com a Filial e Empresa.
    // Necessario quando não se usa o TenantId no Header.
    rpcClearEnv()

Return .T.

Ele faz um simples Hello World e funciona, o que eu quero saber é como eu faço pra jogar um JSON dentro do objeto JsonObject que eu criei logo acima na classe, com o método new():

Method new() as Object Class SolicitacaoArmazemController
    ::jResponse := JsonObject():new()
Return Self

Vi um exemplo em ADVPL no link TOTVS Backoffice Linha Protheus - ADVPL - Classe JsonObject mas não entendi.