anchor.diff:    RegisterReadersAndWriters;
   
   end.
  +
  
positive.code:   LJsonBO: TJsonBaseObject;
    LEncoding: TEncoding;
  begin
    LEncoding := GetDesiredEncoding(AActivation);
  
    LJsonBO := AValue.AsObject as TJsonBaseObject;
    if Assigned(LJsonBO) then
  
negative.code: uses
    Classes, SysUtils, Rtti
  
  , MARS.Core.Attributes, MARS.Core.Declarations, MARS.Core.MediaType
  , MARS.Core.MessageBodyWriter, MARS.Core.MessageBodyReader
  , MARS.Core.Activation.Interfaces
  ;
  
  type
    [Produces(TMediaType.APPLICATION_JSON)]
  