stack trace в перле
Я уже больше 5 лет пишу на перле, но правило "век живи - век учись" никто не отменял :)
Иногда бывает когда ковыряешься в чужом говнокоде и надо надо узнать а откуда же этот кусок кода вызывается, то тогда на помощь приходит модуль Carp, а точнее функция из него cluck.
Делается это просто:
use Carp q/cluck/;
warn cluck;
выводит все вызовы "вверх" до самого начала.
К слову, до недавнего времени, я руками вставлял caller во все функции вверх по стеку вызова функций , и он был большой, да если еще под mod_perl, занимало это прилично времени :)
Иногда бывает когда ковыряешься в чужом говнокоде и надо надо узнать а откуда же этот кусок кода вызывается, то тогда на помощь приходит модуль Carp, а точнее функция из него cluck.
Делается это просто:
use Carp q/cluck/;
warn cluck;
выводит все вызовы "вверх" до самого начала.
К слову, до недавнего времени, я руками вставлял caller во все функции вверх по стеку вызова функций , и он был большой, да если еще под mod_perl, занимало это прилично времени :)