anchor.diff:      function Post<T>(Entity: TObject): T;overload;
       function Post<T>(Content: string): T;overload;
       function Put<T>(Entity: TObject): T;overload;
  +    function Put<T>(Content: string): T;overload;
       function Patch<T>(Entity: TObject): T;overload;
  +    function Patch<T>(Content: string): T;overload;
       {$ELSE}
       function Get(AListClass, AItemClass: TClass): TObject;overload;
       function Post(Adapter: IJsonListAdapter): TObject;overload;
  
positive.code:   else
      Result := Default(T);
  end;
  {$ELSE}
  function TResource.Get(AListClass, AItemClass: TClass): TObject;
  var
  
negative.code:     Result := Default(T);
  end;
  
  function TResource.Put<T>(Content: string): T;
  var
    vResponse: string;
  begin
    vResponse := Put(Content);
  
    if Trim(vResponse) <> '' then
      Result := TJsonUtil.UnMarshal<T>(vResponse)
    else
      Result := Default(T);
  end;
  
  function TResource.Patch<T>(Entity: TObject): T;
  var
    vResponse: string;
  