Не знаю как поточнее назвать тему.

В общем такая проблема:
Есть класс один из методов которого отображается GUI. Для обработки событий GUI используются ссылка на подпрограмму.
Например


Как в подпрограмме quit получить доступ к объекту? Т.е. $self.
Функции обратного вызова планируется хранить в отдельном модуле и экспортировать в класс.

Гоню.... не стоит писать посты когда спать охото ))

Ведь при вызове quit видим же и $self и $win. Так?

нет, не так. Из close вы никогда (почти) не увидите лексические переменные другого блока (процедуры)
что бы при вызове quit было видно  $self и $win
нужно либо создать замыкание (closure)



либо сделать переменные локальными


Это сообщение отредактировал(а) sir_nuf_nuf - 7.9.2009, 11:21

Если просто указать local $self, то интепретатор возмущается

Включена прагма strict.
Если указать our $self, то в пакете где хранятся подпрограммы обратного вызова $self не видно :-(, там strict отключена иначе возмущается.

А можно поподробнее про

про почти, что вы имели ввиду?

P.S. Можно конечно не мучиться и использовать первый вариант, который

но код будет не красивый и работать с ним проблематично. Рисую меню и на каждый пункт меню свой обработчик, а меню большое...
Может есть какие-то другие варианты решения?

под "почти"  - имелся в виду XS извращения типа PadWalker. но это хак.

Объясните, зачем вам видеть переменные лексические переменные другой процедуры ?
это  вообще кошмарный прием - и ни разу не "красиво"

Сделайте так - заведите у колбэков параметры и передавайте переменные через них
(ну опять таки через замыкание)

Это, имхо, наиболее корректно.

Сделаю, делаю как вы порекомендовали, через ссылки на анонимные подпрограммы.
Так проще.
Спасибо 

Лучше посмотрите на последний вариант.
Он тоже через ссылки на анонимные процедуры (они называются замыканиями),
но так код обработчиков будет у вас выделен в отдельные процедуры и может быть
использован повторно.