Вот такая штука получилась. perl Makefile.PL && make && make test TEST_VERBOSE=1
2008/12/10 Ruslan Zakirov <[EMAIL PROTECTED]>: > 2008/12/10 Vany Serezhkin <[EMAIL PROTECTED]>: >> Vladimir V. Perepelitsa wrote: >>> >>> Прикольно >>> хотя имхо Devel::RefCount делает то-же самое. >>> >> >> Не, Ты непонял, он по изменению рефкаунта событие генерит. >> Посмотреть то количество ссылок - это не проблема, проблема в том, что >> sv_free() ни ухом ни рылом про мэджик, и соответственно штатными редствами >> этого получить нельзя. >> Атутмеханизм .. похжий на DESTROY, не осилил обращение по стэшу методам. >> В релизной версии видимо придётся реализовать. > > Не компилица у меня, но я тут подумал о другом. Что если взять > сохранить у себя правильную weak ссылку на скаляр и как профайлеры > следить за различными PP функциями (так делает Devel::NYTProf и очень > быстро это делает) - такими как LEAVESUB, LEAVEEVAL и прочими. Когда > освободят переменную, то твою ссылку слабую обновят и перенаправят на > NULL и можно ее тоже выкидывать. Возможно не получиться отловить $a = > undef; сразу, но только в конце блока. Можно постараться. > > >> >> >> -- >> Ivan B. Serezhkin >> Spamooborona, Yandex. http://so.yandex.ru/ >> >> -- >> Moscow.pm mailing list >> [email protected] | http://moscow.pm.org >> > > > > -- > Best regards, Ruslan. > -- Best regards, Ruslan.
Ref-Watch-0.01.tar.gz
Description: GNU Zip compressed data
-- Moscow.pm mailing list [email protected] | http://moscow.pm.org
