module Roda::RodaPlugins::OptimizedMatching::RequestMethods

def on(*args, &block)
  case args.length
  when 1
    case matcher = args[0]
    when String
      always{yield} if _match_string(matcher)
    when Class
      if matcher == String
        rp = @remaining_path
        if rp.getbyte(0) == 47
          if last = rp.index('/', 1)
            @remaining_path = rp[last, rp.length]
            always{yield rp[1, last-1]}
          elsif (len = rp.length) > 1
            @remaining_path = ""
            always{yield rp[1, len]}
          end
        end
      elsif matcher == Integer
        if (matchdata = /\A\/(\d{1,100})(?=\/|\z)/.match(@remaining_path)) && (value = scope.send(:_convert_class_Integer, matchdata[1]))
          @remaining_path = matchdata.post_match
          always{yield(value)}
        end
      else
        path = @remaining_path
        captures = @captures.clear
        meth = :"_match_class_#{matcher}"
        if respond_to?(meth, true)
          # Allow calling private methods, as match methods are generally private
          if send(meth, &block)
            block_result(yield(*captures))
            throw :halt, response.finish
          else
            @remaining_path = path
            false
          end
        else
          unsupported_matcher(matcher)
        end
      end
    when Regexp
      if matchdata = self.class.cached_matcher(matcher){matcher}.match(@remaining_path)
        @remaining_path = matchdata.post_match
        always{yield(*matchdata.captures)}
      end
    when true
      always(&block)
    when false, nil
      # nothing
    else
      path = @remaining_path
      captures = @captures.clear
      matched = case matcher
      when Array
        _match_array(matcher)
      when Hash
        _match_hash(matcher)
      when Symbol
        _match_symbol(matcher)
      when Proc
        matcher.call
      else
        unsupported_matcher(matcher)
      end
      if matched
        block_result(yield(*captures))
        throw :halt, response.finish
      else
        @remaining_path = path
        false
      end
    end
  when 0
    always(&block)
  else
    if_match(args, &block)
  end
end