appoptics_apm 4.0.2

data/lib/appoptics_apm/inst/redis.rb

@@ -0,0 +1,275 @@
+# Copyright (c) 2016 SolarWinds, LLC.
+# All rights reserved.
+
+module AppOpticsAPM
+  module Inst
+    module Redis
+      module Client
+        # The operations listed in this constant skip collecting KVKey
+        NO_KEY_OPS = [:keys, :randomkey, :scan, :sdiff, :sdiffstore, :sinter,
+                      :sinterstore, :smove, :sunion, :sunionstore, :zinterstore,
+                      :zunionstore, :publish, :select, :eval, :evalsha, :script].freeze
+
+        # Instead of a giant switch statement, we use a hash constant to map out what
+        # KVs need to be collected for each of the many many Redis operations
+        # Hash formatting by undiagnosed OCD
+        KV_COLLECT_MAP = {
+          :brpoplpush  => { :destination  => 2 }, :rpoplpush   => { :destination  => 2 },
+          :sdiffstore  => { :destination  => 1 }, :sinterstore => { :destination  => 1 },
+          :sunionstore => { :destination  => 1 }, :zinterstore => { :destination  => 1 },
+          :zunionstore => { :destination  => 1 }, :publish     => { :channel      => 1 },
+          :incrby      => { :increment    => 2 }, :incrbyfloat => { :increment    => 2 },
+          :pexpire     => { :milliseconds => 2 }, :pexpireat   => { :milliseconds => 2 },
+          :expireat    => { :timestamp    => 2 }, :decrby      => { :decrement    => 2 },
+          :psetex      => { :ttl     => 2 },      :restore  => { :ttl     => 2 },
+          :setex       => { :ttl     => 2 },      :setnx    => { :ttl     => 2 },
+          :move        => { :db      => 2 },      :select   => { :db      => 1 },
+          :lindex      => { :index   => 2 },      :getset   => { :value   => 2 },
+          :keys        => { :pattern => 1 },      :expire   => { :seconds => 2 },
+          :rename      => { :newkey  => 2 },      :renamenx => { :newkey  => 2 },
+          :getbit      => { :offset  => 2 },      :setbit   => { :offset  => 2 },
+          :setrange    => { :offset  => 2 },      :evalsha  => { :sha     => 1 },
+          :getrange    => { :start => 2, :end       => 3 },
+          :zrange      => { :start => 2, :end       => 3 },
+          :bitcount    => { :start => 2, :stop      => 3 },
+          :lrange      => { :start => 2, :stop      => 3 },
+          :zrevrange   => { :start => 2, :stop      => 3 },
+          :hincrby     => { :field => 2, :increment => 3 },
+          :smove           => { :source    => 1, :destination => 2 },
+          :bitop           => { :operation => 1, :destkey     => 2 },
+          :hincrbyfloat    => { :field     => 2, :increment   => 3 },
+          :zremrangebyrank => { :start     => 2, :stop        => 3 }
+        }.freeze
+
+        # The following operations don't require any special handling. For these,
+        # we only collect KVKey and KVOp
+        #
+        # :append, :blpop, :brpop, :decr, :del, :dump, :exists,
+        # :hgetall, :hkeys, :hlen, :hvals, :hmset, :incr, :linsert,
+        # :llen, :lpop, :lpush, :lpushx, :lrem, :lset, :ltrim,
+        # :persist, :pttl, :hscan, :rpop, :rpush, :rpushx, :sadd,
+        # :scard, :sismember, :smembers, :strlen, :sort, :spop,
+        # :srandmember, :srem, :sscan, :ttl, :type, :zadd, :zcard,
+        # :zcount, :zincrby, :zrangebyscore, :zrank, :zrem,
+        # :zremrangebyscore, :zrevrank, :zrevrangebyscore, :zscore
+        #
+        # For the operations in NO_KEY_OPS (above) we only collect
+        # KVOp (no KVKey)
+
+        def self.included(klass)
+          # We wrap two of the Redis methods to instrument
+          # operations
+          ::AppOpticsAPM::Util.method_alias(klass, :call, ::Redis::Client)
+          ::AppOpticsAPM::Util.method_alias(klass, :call_pipeline, ::Redis::Client)
+        end
+
+        # Given any Redis operation command array, this method
+        # extracts the Key/Values to report to the AppOptics
+        # dashboard.
+        #
+        # @param command [Array] the Redis operation array
+        # @param r [Return] the return value from the operation
+        # @return [Hash] the Key/Values to report
+        def extract_trace_details(command, r)
+          kvs = {}
+          op = command.first
+
+          kvs[:KVOp] = command[0]
+          kvs[:RemoteHost] = @options[:host]
+
+          unless NO_KEY_OPS.include?(op) || (command[1].is_a?(Array) && command[1].count > 1)
+            if command[1].is_a?(Array)
+              kvs[:KVKey] = command[1].first
+            else
+              kvs[:KVKey] = command[1]
+            end
+          end
+
+          if KV_COLLECT_MAP[op]
+            # Extract KVs from command for this op
+            KV_COLLECT_MAP[op].each { |k, v| kvs[k] = command[v] }
+          else
+            # This case statement handle special cases not handled
+            # by KV_COLLECT_MAP
+            case op
+            when :set
+              if command.count > 3
+                if command[3].is_a?(Hash)
+                  options = command[3]
+                  kvs[:ex] = options[:ex] if options.key?(:ex)
+                  kvs[:px] = options[:px] if options.key?(:px)
+                  kvs[:nx] = options[:nx] if options.key?(:nx)
+                  kvs[:xx] = options[:xx] if options.key?(:xx)
+                else
+                  options = command[3..-1]
+                  until (opts = options.shift(2)).empty?
+                    case opts[0]
+                    when 'EX' then; kvs[:ex] = opts[1]
+                    when 'PX' then; kvs[:px] = opts[1]
+                    when 'NX' then; kvs[:nx] = opts[1]
+                    when 'XX' then; kvs[:xx] = opts[1]
+                    end
+                  end
+                end
+              end
+
+            when :get
+              kvs[:KVHit] = r.nil? ? 0 : 1
+
+            when :hdel, :hexists, :hget, :hset, :hsetnx
+              kvs[:field] = command[2] unless command[2].is_a?(Array)
+              if op == :hget
+                kvs[:KVHit] = r.nil? ? 0 : 1
+              end
+
+            when :eval
+              if command[1].length > 1024
+                kvs[:Script] = command[1][0..1023] + '(...snip...)'
+              else
+                kvs[:Script] = command[1]
+              end
+
+            when :script
+              kvs[:subcommand] = command[1]
+              kvs[:Backtrace] = AppOpticsAPM::API.backtrace if AppOpticsAPM::Config[:redis][:collect_backtraces]
+              if command[1] == 'load'
+                if command[1].length > 1024
+                  kvs[:Script] = command[2][0..1023] + '(...snip...)'
+                else
+                  kvs[:Script] = command[2]
+                end
+              elsif command[1] == :exists
+                if command[2].is_a?(Array)
+                  kvs[:KVKey] = command[2].inspect
+                else
+                  kvs[:KVKey] = command[2]
+                end
+              end
+
+            when :mget
+              if command[1].is_a?(Array)
+                kvs[:KVKeyCount] = command[1].count
+              else
+                kvs[:KVKeyCount] = command.count - 1
+              end
+              values = r.select { |i| i }
+              kvs[:KVHitCount] = values.count
+
+            when :hmget
+              kvs[:KVKeyCount] = command.count - 2
+              values = r.select { |i| i }
+              kvs[:KVHitCount] = values.count
+
+            when :mset, :msetnx
+              if command[1].is_a?(Array)
+                kvs[:KVKeyCount] = command[1].count / 2
+              else
+                kvs[:KVKeyCount] = (command.count - 1) / 2
+              end
+            end # case op
+          end # if KV_COLLECT_MAP[op]
+        rescue StandardError => e
+          AppOpticsAPM.logger.debug "Error collecting redis KVs: #{e.message}"
+          AppOpticsAPM.logger.debug e.backtrace.join('\n')
+        ensure
+          return kvs
+        end
+
+        # Extracts the Key/Values to report from a pipelined
+        # call to the AppOptics dashboard.
+        #
+        # @param pipeline [Redis::Pipeline] the Redis pipeline instance
+        # @return [Hash] the Key/Values to report
+        def extract_pipeline_details(pipeline)
+          kvs = {}
+
+          kvs[:RemoteHost] = @options[:host]
+          kvs[:Backtrace] = AppOpticsAPM::API.backtrace if AppOpticsAPM::Config[:redis][:collect_backtraces]
+
+          command_count = pipeline.commands.count
+          kvs[:KVOpCount] = command_count
+
+          kvs[:KVOp] = if pipeline.commands.first == :multi
+            :multi
+          else
+            :pipeline
+          end
+
+          # Report pipelined operations  if the number
+          # of ops is reasonable
+          if command_count < 12
+            ops = []
+            pipeline.commands.each do |c|
+              ops << c.first
+            end
+            kvs[:KVOps] = ops.join(', ')
+          end
+        rescue StandardError => e
+          AppOpticsAPM.logger.debug "[appoptics_apm/debug] Error extracting pipelined commands: #{e.message}"
+          AppOpticsAPM.logger.debug e.backtrace
+        ensure
+          return kvs
+        end
+
+        #
+        # The wrapper method for Redis::Client.call.  Here
+        # (when tracing) we capture KVs to report and pass
+        # the call along
+        #
+        def call_with_appoptics(command, &block)
+          if AppOpticsAPM.tracing?
+            ::AppOpticsAPM::API.log_entry(:redis, {})
+
+            begin
+              r = call_without_appoptics(command, &block)
+              report_kvs = extract_trace_details(command, r)
+              r
+            rescue StandardError => e
+              ::AppOpticsAPM::API.log_exception(:redis, e)
+              raise
+            ensure
+              ::AppOpticsAPM::API.log_exit(:redis, report_kvs)
+            end
+
+          else
+            call_without_appoptics(command, &block)
+          end
+        end
+
+        #
+        # The wrapper method for Redis::Client.call_pipeline.  Here
+        # (when tracing) we capture KVs to report and pass the call along
+        #
+        def call_pipeline_with_appoptics(pipeline)
+          if AppOpticsAPM.tracing?
+            # Fall back to the raw tracing API so we can pass KVs
+            # back on exit (a limitation of the AppOpticsAPM::API.trace
+            # block method)  This removes the need for an info
+            # event to send additonal KVs
+            ::AppOpticsAPM::API.log_entry(:redis, {})
+
+            report_kvs = extract_pipeline_details(pipeline)
+
+            begin
+              call_pipeline_without_appoptics(pipeline)
+            rescue StandardError => e
+              ::AppOpticsAPM::API.log_exception(:redis, e)
+              raise
+            ensure
+              ::AppOpticsAPM::API.log_exit(:redis, report_kvs)
+            end
+          else
+            call_pipeline_without_appoptics(pipeline)
+          end
+        end
+      end
+    end
+  end
+end
+
+if AppOpticsAPM::Config[:redis][:enabled]
+  if defined?(::Redis) && Gem::Version.new(::Redis::VERSION) >= Gem::Version.new('3.0.0')
+    AppOpticsAPM.logger.info '[appoptics_apm/loading] Instrumenting redis' if AppOpticsAPM::Config[:verbose]
+    ::AppOpticsAPM::Util.send_include(::Redis::Client, ::AppOpticsAPM::Inst::Redis::Client)
+  end
+end

data/lib/appoptics_apm/inst/resque.rb

@@ -0,0 +1,151 @@
+# Copyright (c) 2016 SolarWinds, LLC.
+# All rights reserved.
+
+require 'socket'
+require 'json'
+
+module AppOpticsAPM
+  module Inst
+    module ResqueClient
+      def self.included(klass)
+        klass.send :extend, ::Resque
+        ::AppOpticsAPM::Util.method_alias(klass, :enqueue, ::Resque)
+        ::AppOpticsAPM::Util.method_alias(klass, :enqueue_to, ::Resque)
+        ::AppOpticsAPM::Util.method_alias(klass, :dequeue, ::Resque)
+      end
+
+      def extract_trace_details(op, klass, args)
+        report_kvs = {}
+
+        begin
+          report_kvs[:Spec] = :pushq
+          report_kvs[:Flavor] = :resque
+          report_kvs[:JobName] = klass.to_s
+
+          if AppOpticsAPM::Config[:resqueclient][:log_args]
+            kv_args = args.to_json
+
+            # Limit the argument json string to 1024 bytes
+            if kv_args.length > 1024
+              report_kvs[:Args] = kv_args[0..1023] + '...[snipped]'
+            else
+              report_kvs[:Args] = kv_args
+            end
+          end
+          report_kvs[:Backtrace] = AppOpticsAPM::API.backtrace if AppOpticsAPM::Config[:resqueclient][:collect_backtraces]
+          report_kvs[:Queue] = klass.instance_variable_get(:@queue)
+        rescue => e
+          AppOpticsAPM.logger.debug "[appoptics_apm/debug] #{__method__}:#{File.basename(__FILE__)}:#{__LINE__}: #{e.message}" if AppOpticsAPM::Config[:verbose]
+        end
+
+        report_kvs
+      end
+
+      def enqueue_with_appoptics(klass, *args)
+        if AppOpticsAPM.tracing?
+          report_kvs = extract_trace_details(:enqueue, klass, args)
+
+          AppOpticsAPM::API.trace(:'resque-client', report_kvs, :enqueue) do
+            enqueue_without_appoptics(klass, *args)
+          end
+        else
+          enqueue_without_appoptics(klass, *args)
+        end
+      end
+
+      def enqueue_to_with_appoptics(queue, klass, *args)
+        if AppOpticsAPM.tracing? && !AppOpticsAPM.tracing_layer_op?(:enqueue)
+          report_kvs = extract_trace_details(:enqueue_to, klass, args)
+          report_kvs[:Queue] = queue.to_s if queue
+
+          AppOpticsAPM::API.trace(:'resque-client', report_kvs) do
+            enqueue_to_without_appoptics(queue, klass, *args)
+          end
+        else
+          enqueue_to_without_appoptics(queue, klass, *args)
+        end
+      end
+
+      def dequeue_with_appoptics(klass, *args)
+        if AppOpticsAPM.tracing?
+          report_kvs = extract_trace_details(:dequeue, klass, args)
+
+          AppOpticsAPM::API.trace(:'resque-client', report_kvs) do
+            dequeue_without_appoptics(klass, *args)
+          end
+        else
+          dequeue_without_appoptics(klass, *args)
+        end
+      end
+    end
+
+    module ResqueWorker
+      def self.included(klass)
+        ::AppOpticsAPM::Util.method_alias(klass, :perform, ::Resque::Worker)
+      end
+
+      def perform_with_appoptics(job)
+        report_kvs = {}
+
+        begin
+          report_kvs[:Spec] = :job
+          report_kvs[:Flavor] = :resque
+          report_kvs[:JobName] = job.payload['class'].to_s
+          report_kvs[:Queue] = job.queue
+
+          # Set these keys for the ability to separate out
+          # background tasks into a separate app on the server-side UI
+
+          report_kvs[:'HTTP-Host'] = Socket.gethostname
+          report_kvs[:Controller] = "Resque_#{job.queue}"
+          report_kvs[:Action] = job.payload['class'].to_s
+          report_kvs[:URL] = "/resque/#{job.queue}/#{job.payload['class']}"
+
+          if AppOpticsAPM::Config[:resqueworker][:log_args]
+            kv_args = job.payload['args'].to_json
+
+            # Limit the argument json string to 1024 bytes
+            if kv_args.length > 1024
+              report_kvs[:Args] = kv_args[0..1023] + '...[snipped]'
+            else
+              report_kvs[:Args] = kv_args
+            end
+          end
+
+          report_kvs[:Backtrace] = AppOpticsAPM::API.backtrace if AppOpticsAPM::Config[:resqueworker][:collect_backtraces]
+        rescue => e
+          AppOpticsAPM.logger.debug "[appoptics_apm/debug] #{__method__}:#{File.basename(__FILE__)}:#{__LINE__}: #{e.message}" if AppOpticsAPM::Config[:verbose]
+        end
+
+        AppOpticsAPM::API.start_trace(:'resque-worker', nil, report_kvs) do
+          perform_without_appoptics(job)
+        end
+      end
+    end
+
+    module ResqueJob
+      def self.included(klass)
+        ::AppOpticsAPM::Util.method_alias(klass, :fail, ::Resque::Job)
+      end
+
+      def fail_with_appoptics(exception)
+        if AppOpticsAPM.tracing?
+          AppOpticsAPM::API.log_exception(:resque, exception)
+        end
+        fail_without_appoptics(exception)
+      end
+    end
+  end
+end
+
+if defined?(::Resque) && RUBY_VERSION >= '1.9.3'
+  AppOpticsAPM.logger.info '[appoptics_apm/loading] Instrumenting resque' if AppOpticsAPM::Config[:verbose]
+
+  ::AppOpticsAPM::Util.send_include(::Resque,         ::AppOpticsAPM::Inst::ResqueClient) if AppOpticsAPM::Config[:resqueclient][:enabled]
+  ::AppOpticsAPM::Util.send_include(::Resque::Worker, ::AppOpticsAPM::Inst::ResqueWorker) if AppOpticsAPM::Config[:resqueworker][:enabled]
+  if AppOpticsAPM::Config[:resqueclient][:enabled] || AppOpticsAPM::Config[:resqueworker][:enabled]
+    ::AppOpticsAPM::Util.send_include(::Resque::Job,    ::AppOpticsAPM::Inst::ResqueJob)
+  end
+end
+
+

data/lib/appoptics_apm/inst/rest-client.rb

@@ -0,0 +1,50 @@
+# Copyright (c) 2016 SolarWinds, LLC.
+# All rights reserved.
+
+module AppOpticsAPM
+  module Inst
+    module RestClientRequest
+      def self.included(klass)
+        ::AppOpticsAPM::Util.method_alias(klass, :execute, ::RestClient::Request)
+      end
+
+      ##
+      # execute_with_appoptics
+      #
+      # The wrapper method for RestClient::Request.execute
+      #
+      def execute_with_appoptics(&block)
+        blacklisted = AppOpticsAPM::API.blacklisted?(uri)
+
+        unless AppOpticsAPM.tracing?
+          xtrace = AppOpticsAPM::Context.toString
+          @processed_headers['X-Trace'] = AppOpticsAPM::Context.toString if AppOpticsAPM::XTrace.valid?(xtrace) && !blacklisted
+          return execute_without_appoptics(&block)
+        end
+
+        begin
+          kvs = {}
+          kvs[:Backtrace] = AppOpticsAPM::API.backtrace if AppOpticsAPM::Config[:rest_client][:collect_backtraces]
+          AppOpticsAPM::API.log_entry('rest-client', kvs)
+
+          @processed_headers['X-Trace'] = AppOpticsAPM::Context.toString unless blacklisted
+
+          # The core rest-client call
+          execute_without_appoptics(&block)
+        rescue => e
+          AppOpticsAPM::API.log_exception('rest-client', e)
+          raise e
+        ensure
+          AppOpticsAPM::API.log_exit('rest-client')
+        end
+      end
+    end
+  end
+end
+
+if AppOpticsAPM::Config[:rest_client][:enabled]
+  if defined?(::RestClient)
+    AppOpticsAPM.logger.info '[appoptics_apm/loading] Instrumenting rest-client' if AppOpticsAPM::Config[:verbose]
+    ::AppOpticsAPM::Util.send_include(::RestClient::Request, ::AppOpticsAPM::Inst::RestClientRequest)
+  end
+end

data/lib/appoptics_apm/inst/sequel.rb

@@ -0,0 +1,178 @@
+# Copyright (c) 2016 SolarWinds, LLC.
+# All rights reserved.
+
+module AppOpticsAPM
+  module Inst
+    ##
+    # AppOpticsAPM::Inst::Sequel
+    #
+    # The common (shared) methods used by the AppOpticsAPM Sequel instrumentation
+    # across multiple modules/classes.
+    #
+    module Sequel
+      ##
+      # extract_trace_details
+      #
+      # Given SQL and the options hash, this method extracts the interesting
+      # bits for reporting to the AppOptics dashboard.
+      #
+      def extract_trace_details(sql, opts)
+        kvs = {}
+
+        if !sql.is_a?(String)
+          kvs[:IsPreparedStatement] = true
+        end
+
+        if ::Sequel::VERSION > '4.36.0' && !sql.is_a?(String)
+          # In 4.37.0, sql was converted to a prepared statement object
+          sql = sql.prepared_sql unless sql.is_a?(Symbol)
+        end
+
+        if AppOpticsAPM::Config[:sanitize_sql]
+          # Sanitize SQL and don't report binds
+          if sql.is_a?(Symbol)
+            kvs[:Query] = sql
+          else
+            kvs[:Query] = AppOpticsAPM::Util.sanitize_sql(sql)
+          end
+        else
+          # Report raw SQL and any binds if they exist
+          kvs[:Query] = sql.to_s
+          kvs[:QueryArgs] = opts[:arguments] if opts.is_a?(Hash) && opts.key?(:arguments)
+        end
+
+        kvs[:Backtrace] = AppOpticsAPM::API.backtrace if AppOpticsAPM::Config[:sequel][:collect_backtraces]
+
+        if ::Sequel::VERSION < '3.41.0' && !(self.class.to_s =~ /Dataset$/)
+          db_opts = @opts
+        elsif @pool
+          db_opts = @pool.db.opts
+        else
+          db_opts = @db.opts
+        end
+
+        kvs[:Database]   = db_opts[:database]
+        kvs[:RemoteHost] = db_opts[:host]
+        kvs[:RemotePort] = db_opts[:port] if db_opts.key?(:port)
+        kvs[:Flavor]     = db_opts[:adapter]
+      rescue => e
+        AppOpticsAPM.logger.debug "[appoptics_apm/debug Error capturing Sequel KVs: #{e.message}" if AppOpticsAPM::Config[:verbose]
+      ensure
+        return kvs
+      end
+
+      ##
+      # exec_with_appoptics
+      #
+      # This method wraps and routes the call to the specified
+      # original method call
+      #
+      def exec_with_appoptics(method, sql, opts = ::Sequel::OPTS, &block)
+        if AppOpticsAPM.tracing?
+          kvs = extract_trace_details(sql, opts)
+          AppOpticsAPM::API.log_entry(:sequel, kvs)
+        end
+
+        send(method, sql, opts, &block)
+      rescue => e
+        AppOpticsAPM::API.log_exception(:sequel, e)
+        raise e
+      ensure
+        AppOpticsAPM::API.log_exit(:sequel)
+      end
+    end
+
+    module SequelDatabase
+      include AppOpticsAPM::Inst::Sequel
+
+      def self.included(klass)
+        ::AppOpticsAPM::Util.method_alias(klass, :run, ::Sequel::Database)
+        ::AppOpticsAPM::Util.method_alias(klass, :execute_ddl, ::Sequel::Database)
+        ::AppOpticsAPM::Util.method_alias(klass, :execute_dui, ::Sequel::Database)
+        ::AppOpticsAPM::Util.method_alias(klass, :execute_insert, ::Sequel::Database)
+      end
+
+      def run_with_appoptics(sql, opts = ::Sequel::OPTS)
+        if AppOpticsAPM.tracing?
+          kvs = extract_trace_details(sql, opts)
+          AppOpticsAPM::API.log_entry(:sequel, kvs)
+        end
+
+        run_without_appoptics(sql, opts)
+      rescue => e
+        AppOpticsAPM::API.log_exception(:sequel, e)
+        raise e
+      ensure
+        AppOpticsAPM::API.log_exit(:sequel)
+      end
+
+      def execute_ddl_with_appoptics(sql, opts = ::Sequel::OPTS, &block)
+        # If we're already tracing a sequel operation, then this call likely came
+        # from Sequel::Dataset.  In this case, just pass it on.
+        return execute_ddl_without_appoptics(sql, opts, &block) if AppOpticsAPM.tracing_layer?(:sequel)
+
+        exec_with_appoptics(:execute_ddl_without_appoptics, sql, opts, &block)
+      end
+
+      def execute_dui_with_appoptics(sql, opts = ::Sequel::OPTS, &block)
+        # If we're already tracing a sequel operation, then this call likely came
+        # from Sequel::Dataset.  In this case, just pass it on.
+        return execute_dui_without_appoptics(sql, opts, &block) if AppOpticsAPM.tracing_layer?(:sequel)
+
+        exec_with_appoptics(:execute_dui_without_appoptics, sql, opts, &block)
+      end
+
+      def execute_insert_with_appoptics(sql, opts = ::Sequel::OPTS, &block)
+        # If we're already tracing a sequel operation, then this call likely came
+        # from Sequel::Dataset.  In this case, just pass it on.
+        return execute_insert_without_appoptics(sql, opts, &block) if AppOpticsAPM.tracing_layer?(:sequel)
+
+        exec_with_appoptics(:execute_insert_without_appoptics, sql, opts, &block)
+      end
+    end # module SequelDatabase
+
+    module SequelDataset
+      include AppOpticsAPM::Inst::Sequel
+
+      def self.included(klass)
+        ::AppOpticsAPM::Util.method_alias(klass, :execute, ::Sequel::Dataset)
+        ::AppOpticsAPM::Util.method_alias(klass, :execute_ddl, ::Sequel::Dataset)
+        ::AppOpticsAPM::Util.method_alias(klass, :execute_dui, ::Sequel::Dataset)
+        ::AppOpticsAPM::Util.method_alias(klass, :execute_insert, ::Sequel::Dataset)
+      end
+
+      def execute_with_appoptics(sql, opts = ::Sequel::OPTS, &block)
+        exec_with_appoptics(:execute_without_appoptics, sql, opts, &block)
+      end
+
+      def execute_ddl_with_appoptics(sql, opts = ::Sequel::OPTS, &block)
+        exec_with_appoptics(:execute_ddl_without_appoptics, sql, opts, &block)
+      end
+
+      def execute_dui_with_appoptics(sql, opts = ::Sequel::OPTS, &block)
+        exec_with_appoptics(:execute_dui_without_appoptics, sql, opts, &block)
+      end
+
+      def execute_insert_with_appoptics(sql, opts = ::Sequel::OPTS, &block)
+        exec_with_appoptics(:execute_insert_without_appoptics, sql, opts, &block)
+      end
+
+    end # module SequelDataset
+  end # module Inst
+end # module AppOpticsAPM
+
+if AppOpticsAPM::Config[:sequel][:enabled]
+  if defined?(::Sequel) && ::Sequel::VERSION < '4.0.0'
+    # For versions before 4.0.0, Sequel::OPTS wasn't defined.
+    # Define it as an empty hash for backwards compatibility.
+    module ::Sequel
+      OPTS = {}
+    end
+  end
+
+  if defined?(::Sequel)
+    AppOpticsAPM.logger.info '[appoptics_apm/loading] Instrumenting sequel' if AppOpticsAPM::Config[:verbose]
+    ::AppOpticsAPM::Util.send_include(::Sequel::Database, ::AppOpticsAPM::Inst::SequelDatabase)
+    ::AppOpticsAPM::Util.send_include(::Sequel::Dataset, ::AppOpticsAPM::Inst::SequelDataset)
+  end
+end