class AWS::Core::JSONResponseParser

def extract_data response
  body = response.http_response.body
  body = "{}" if [nil, ''].include?(body)
  translate(JSON.load(body))
end

def initialize rules
  @rules = rules
end

def simulate
  {}
end

def translate values, rules = @rules
  rules.inject({}) do |data,(key,rule)|
    if values.key?(key)
      data.merge(rule[:sym] || key => translate_value(values[key], rule))
    else
      data
    end
  end
end

def translate_hash values, rules
  translate(values, rules[:members])
end

def translate_map values, rules
  values.inject({}) do |data,(key,value)|
    data.merge(key => translate_value(value, rules[:members]))
  end
end

def translate_value value, rule
  case
  when value.is_a?(Array) then value.map{|v| translate_value(v, rule) }
  when rule[:type] == :hash then translate_hash(value, rule)
  when rule[:type] == :map then translate_map(value, rule)
  when rule[:type] == :blob then Base64.decode64(value)
  when rule[:type] == :time then Time.at(value)
  when rule[:type] == :big_decimal then BigDecimal.new(value)
  else value
  end
end