gistfile1.txt

class Module
  def def_trace_method(method_name, suffix = :rubeus)
    self.module_eval(<<-"EOS")
      def #{method_name.to_s}_with_#{suffix.to_s}(*args, &block)
        puts "\#{self.name}.#{method_name}(\#{args.map{|arg| arg.inspect}.join(', ')})"
        puts caller.join("\n  ") if block_given?
        #{method_name.to_s}_without_#{suffix.to_s}(*args, &block)
      end
    EOS
    self.module_eval do
      alias_method "#{method_name.to_s}_without_#{suffix.to_s}".to_sym, method_name.to_sym
      alias_method method_name.to_sym, "#{method_name.to_s}_with_#{suffix.to_s}".to_sym
    end
  end
end