class AWS::Core::Response

def cache_key
  [http_request.access_key_id,
   http_request.host,
   request_type,
   serialized_options].join(":")
end

def initialize http_request = nil, http_response = nil, &block
  @http_request = http_request
  @http_response = http_response
  @request_builder = block
  rebuild_request if @request_builder && !http_request
end

def inspect
  if request_type
    "<#{self.class}:#{request_type}>"
  else
    "<#{self.class}>"
  end
end

def rebuild_request
  @http_request = @request_builder.call
end

def serialize_options_array(ary)
  "[" + ary.map { |v| serialize_options_value(v) }.join(" ") +
    "]"
end

def serialize_options_hash(hash)
  "(" + hash.keys.sort_by(&:to_s).map do |key|
    "#{key}=#{serialize_options_value(hash[key])}"
  end.join(" ") + ")"
end

def serialize_options_value(value)
  case value
  when Hash
    serialize_options_hash(value)
  when Array
    serialize_options_array(value)
  else
    value.inspect
  end
end

def serialized_options
  serialize_options_hash(request_options)
end

def successful?
  error.nil?
end

def throttled?
  !successful? and
    http_response.body and
    parsed_body = XmlGrammar.parse(http_response.body) and
    parsed_body.respond_to?(:code) and
    parsed_body.code == "Throttling"
end

def timeout?
  http_response.timeout?
end