sig
  class virtual message :
    body:string ->
    headers:(string * string) list ->
    version:Http_types.version option ->
    clisockaddr:Unix.sockaddr ->
    srvsockaddr:Unix.sockaddr ->
    object
      method addBody : string -> unit
      method addBodyBuf : Buffer.t -> unit
      method addHeader : name:string -> value:string -> unit
      method addHeaders : (string * string) list -> unit
      method body : string
      method bodyBuf : Buffer.t
      method clientAddr : string
      method clientPort : int
      method clientSockaddr : Unix.sockaddr
      method private virtual fstLineToString : string
      method hasHeader : name:string -> bool
      method header : name:string -> string
      method headers : (string * string) list
      method removeHeader : name:string -> unit
      method replaceHeader : name:string -> value:string -> unit
      method replaceHeaders : (string * string) list -> unit
      method serialize : Pervasives.out_channel -> unit
      method serverAddr : string
      method serverPort : int
      method serverSockaddr : Unix.sockaddr
      method setBody : string -> unit
      method setBodyBuf : Buffer.t -> unit
      method setVersion : Http_types.version -> unit
      method toString : string
      method version : Http_types.version option
    end
end