class Faraday::Request::Multipart

def call(env)
  match_content_type(env) do |params|
    env.request.boundary ||= unique_boundary
    env.request_headers[CONTENT_TYPE] +=
      "; boundary=#{env.request.boundary}"
    env.body = create_multipart(env, params)
  end
  @app.call env
end

def create_multipart(env, params)
  boundary = env.request.boundary
  parts = process_params(params) do |key, value|
    part(boundary, key, value)
  end
  parts << Faraday::Parts::EpiloguePart.new(boundary)
  body = Faraday::CompositeReadIO.new(parts)
  env.request_headers[Faraday::Env::ContentLength] = body.length.to_s
  body
end

def has_multipart?(obj) # rubocop:disable Naming/PredicateName
  if obj.respond_to?(:each)
    (obj.respond_to?(:values) ? obj.values : obj).each do |val|
      return true if val.respond_to?(:content_type) || has_multipart?(val)
    end
  end
  false
end

def initialize(app = nil, options = {})
  super(app)
  @options = options
end

def part(boundary, key, value)
  if value.respond_to?(:to_part)
    value.to_part(boundary, key)
  else
    Faraday::Parts::Part.new(boundary, key, value)
  end
end

def process_params(params, prefix = nil, pieces = nil, &block)
  params.inject(pieces || []) do |all, (key, value)|
    if prefix
      key = @options[:flat_encode] ? prefix.to_s : "#{prefix}[#{key}]"
    end
    case value
    when Array
      values = value.inject([]) { |a, v| a << [nil, v] }
      process_params(values, key, all, &block)
    when Hash
      process_params(value, key, all, &block)
    else
      # rubocop:disable Performance/RedundantBlockCall
      all << block.call(key, value)
      # rubocop:enable Performance/RedundantBlockCall
    end
  end
end

def process_request?(env)
  type = request_type(env)
  env.body.respond_to?(:each_key) && !env.body.empty? && (
    (type.empty? && has_multipart?(env.body)) ||
      (type == self.class.mime_type)
  )
end

def unique_boundary
  "#{DEFAULT_BOUNDARY_PREFIX}-#{SecureRandom.hex}"
end