ТЕМА: Вопрос к скриптерам: alias и локальные переменные

alias old_foo foo
def foo
  old_foo
  for i in bar
   dosomething(i)
  end
end

def old
   a = "a"
end
alias new old
def old(*args, &block)
   new(*args, &block)
   a = "b"
end

def bar
  @bar
end
 
def bar=(arg)
  @bar=arg
end

class Testing
  def hit
    @hit 
  end
  def hit=(value)
    p value
    @hit=value
  end
  def initialize
    hit = []
    p @hit
  end
end

#Наш класс
class Foo
  #Старая функция. Неприступная как шут знает что.
  def bar
    value = 5
  end
 
  #Алиасим и переопределяем
  alias bar1 bar
  def bar
    #Вызываем старую функцию. Трейсер ниже ловит ее и выхватывает биндинг
    bar1
    #В биндинге недавно вызванной функции делаем новое вычисление, а именно спрашиваем локальную переменную
    value = $bind.eval("value")
    #Ваш код
    #...
    #Возврат для проверки
    value
  end
end
 
#Трейсер. Выхватывает вообще все действия в Руби, включая вызов функции
set_trace_func proc { |event, file, lineno, id, binding, klass|
  #События вызова функции. Второе условие важно, вместо Foo впихните свой класс.
  if (event == "call") and (klass <= Foo) then
    #Складируем биндинг для будующего использования. Например в $bind
    $bind = binding
  end
}
 
#Пускаем тест
foo = Foo.new
p foo.bar

def say
  a = 1
end
 
alias original_say say
def say
  aliased_binding = nil #заводим переменную, чтобы иметь к ней доступ из трейсера
  tracer = proc do |event, file, lineno, id, binding, klass|
    aliased_binding = binding if event == 'return' #записываем в заведенную переменную binding после исполнения оригинальной функции
  end
 
  set_trace_func tracer #устанавливаем трейсер
  original_say
  set_trace_func nil    #обнуляем трейсер, незачем ему вечно тормозить наш код
 
  aliased_binding.eval 'a'
end
 
say