Private Type TInfo
requestHeaders As Scripting.Dictionary
bodyParameters As Scripting.Dictionary
End Type
Private this As TInfo
Implements IRestDriver
Private Property Let IRestDriver_bodyParameter(ByVal key As String, ByVal Value As String)
this.bodyParameters.Add key, Value
End Property
Private Property Let IRestDriver_RequestHeader(ByVal key As String, ByVal Value As String)
this.requestHeaders.Add key, Value
End Property
'-----------------------------------------------------------