anchor.diff:      procedure SetContentLength(const Value: Integer);
       function GetContentVersion: string;
       procedure SetContentVersion(const Value: string);
  +    function GetContentEncoding: string;
  +    procedure SetContentEncoding(const Value: string);
       function GetHost: string;
       procedure SetHost(const Value: string);
       function GetPathInfo: string;
  
positive.code:   Result := EncodingFromCharSet(ContentMediaType.Charset).GetString(RawContent);
  end;
  
  function TWiRLRequest.GetContentLength: Integer;
  begin
    Result := StrToIntDef(HeaderFields.Values['Content-Length'], -1);
  
negative.code:     property ContentType: string read GetContentType write SetContentType;
      property ContentLength: Integer read GetContentLength write SetContentLength;
      property ContentVersion: string read GetContentVersion write SetContentVersion;
      property ContentEncoding: string read GetContentEncoding write SetContentEncoding;
      property Authorization: string read GetAuthorization write SetAuthorization;
      property Accept: string read GetAccept write SetAccept;
      property AcceptableMediaTypes: TMediaTypeList read GetAcceptableMediaTypes;
  