huyderman/querylicious

# frozen_string_literal: true

require 'dry-matcher'
require 'querylicious/types'

module Querylicious
  # A matcher for query key-value pairs
  class Matcher
    # Subclass of Dry::Matcher::Evalutator which provides aliases for common
    # matchers
    class Evaluator < Dry::Matcher::Evaluator
      def phrase(&block)
        key('phrase', op: :eql, type: Types::Strict::String, &block)
      end

      def not_phrase(&block)
        not_key('phrase', type: Types::Strict::String, &block)
      end

      def not_key(key, type: Types::Any, &block)
        key(key, op: :not_eql, type: type, &block)
      end
    end

    CASES = {
      key:     Dry::Matcher::Case.new(
        match:   lambda do |pair, key, op: :eql, type: Types::Any|
          pair.key == key && pair.op == op && type.valid?(pair.value)
        end,
        resolve: ->(pair) { pair.value }
      ),
      default: Dry::Matcher::Case.new(match: ->(_pair) { true })
    }.freeze

    def self.call(result, &block)
      Evaluator.new(result, CASES).call(&block)
    end
  end
end