anchor.diff:      property HttpMethodName: string read GetHttpMethodName;
     end;
   
  +  ANYAttribute     = class(HttpMethodAttribute)
  +  public
  +    function Matches(const ARequest: TWebRequest): Boolean; override;
  +  end;
  +
     GETAttribute     = class(HttpMethodAttribute)
     public
       function Matches(const ARequest: TWebRequest): Boolean; override;
  
positive.code:     function Matches(const ARequest: TWebRequest): Boolean; override;
    end;
  
    OPTIONSAttribute = class(HttpMethodAttribute);
  
    ConsumesAttribute = class(MARSAttribute)
    private
  
negative.code:     Result := Result.Substring(0, Result.Length - 'Attribute'.Length);
  end;
  
  { ANYAttribute }
  
  function ANYAttribute.Matches(const ARequest: TWebRequest): Boolean;
  begin
    Result := ARequest.MethodType = TMethodType.mtAny;
  end;
  
  { OPTIONSAttribute }
  
  function OPTIONSAttribute.Matches(const ARequest: TWebRequest): Boolean;
  begin
    Result := SameText(ARequest.Method, 'OPTIONS');
  end;
  
  end.
  