class HTTParty::Response

def self._load(data)
  req, resp, parsed_resp, resp_body = Marshal.load(data)
  new(req, resp, -> { parsed_resp }, body: resp_body)
end

def self.underscore(string)
  string.gsub(/([A-Z]+)([A-Z][a-z])/, '\1_\2').gsub(/([a-z])([A-Z])/, '\1_\2').downcase
end

def _dump(_level)
  Marshal.dump([request, response, parsed_response, body])
end

def code
  response.code.to_i
end

def display(port=$>)
  if !parsed_response.nil? && parsed_response.respond_to?(:display)
    parsed_response.display(port)
  elsif !response.nil? && !response.body.nil? && response.body.respond_to?(:display)
    response.body.display(port)
  else
    port.write(inspect)
  end
end

def http_version
  response.http_version
end

def initialize(request, response, parsed_block, options = {})
  @request      = request
  @response     = response
  @body         = options[:body] || response.body
  @parsed_block = parsed_block
  @headers      = Headers.new(response.to_hash)
  if request.options[:logger]
    logger = ::HTTParty::Logger.build(
      request.options[:logger],
      request.options[:log_level],
      request.options[:log_format]
    )
    logger.format(request, self)
  end
  throw_exception
end

def inspect
  inspect_id = ::Kernel::format '%x', (object_id * 2)
  %(#<#{self.class}:0x#{inspect_id} parsed_response=#{parsed_response.inspect}, @response=#{response.inspect}, @headers=#{headers.inspect}>)
end

def method_missing(name, *args, &block)
  if parsed_response.respond_to?(name)
    parsed_response.send(name, *args, &block)
  elsif response.respond_to?(name)
    response.send(name, *args, &block)
  else
    super
  end
end

def nil?
  warn_about_nil_deprecation
  response.nil? || response.body.nil? || response.body.empty?
end

def parsed_response
  @parsed_response ||= @parsed_block.call
end

def pretty_print(pp)
  if !parsed_response.nil? && parsed_response.respond_to?(:pretty_print)
    parsed_response.pretty_print(pp)
  else
    super
  end
end

def respond_to_missing?(name, *args)
  return true if super
  parsed_response.respond_to?(name) || response.respond_to?(name)
end

def tap
  yield self
  self
end

def throw_exception
  if @request.options[:raise_on].to_a.detect { |c| code.to_s.match(/#{c.to_s}/) }
    ::Kernel.raise ::HTTParty::ResponseError.new(@response), "Code #{code} - #{body}"
  end
end

def to_s
  if !response.nil? && !response.body.nil? && response.body.respond_to?(:to_s)
    response.body.to_s
  else
    inspect
  end
end

def warn_about_nil_deprecation
  trace_line = caller.reject { |line| line.include?('httparty') }.first
  warning = "[DEPRECATION] HTTParty will no longer override `response#nil?`. " \
    "This functionality will be removed in future versions. " \
    "Please, add explicit check `response.body.nil? || response.body.empty?`. " \
    "For more info refer to: https://github.com/jnunemaker/httparty/issues/568\n" \
    "#{trace_line}"
  warn(warning)
end