P
ну тогда может лучше эту переменную в объекте хранить, а не делать our
Size: a a a
2021 June 25
P
и вообще сделать один базовый клас с методом типа set_test {} а A,B отнаследовать
W
Ну не в объект, а в класс. Так что все-таки our (или аксессоры)
P
а у меня вот вопрос "пиратский" )), ни у кого нет в цифре книги https://www.oreilly.com/library/view/embedding-perl-in/0596002254/ ?
И
Я просто не хочу лишнего в A и B писать. Только вызов $deb. Потом когда отлажуть через поиск быстренько все вызовы поубираю и все. Мне почему-то показалось это простым способом.
P
ну если отнаследовать их от одного простого класса, то потом можно быстро убрать это
IB
Не сразу, но понял о чем ты — переписал твой псевдокод в работающий пример — https://perlbanjo.com/fc496f25b5
W
А еще можно сделать бяку:
perl -e '*{"UNIVERSAL::debug"} = sub {1}; package A; sub test { print "Bingo!\n" if __PACKAGE__->debug;} package main; A::test()'
Только вы ее никому не показывайте.IB
Мне прямо совсем не нравится такое движение данных, даже для отладки =)
VO
а это не то же самое что $::deb?
VO
т.е. буквы main -- выкинули. это то что надо или нет?
И
Вот же...оказалось что их можно выкинуть. А я не догадался))
И
Да, в целом оно. Все меньше писать.
И
Вот это, если честно, что-то не вкурил пока
W
UNIVERSAL - базовый класс для всех остальных в перле.
IB
"Меньше писать" — это плохая цель. Хорошая цель — "писать понятный код" =)
SZ
Можно ещё короче, только зачем
P
я как-то так написал бы
https://perlbanjo.com/451bdcd355
это конечно без привязки к конкретной задаче )... (хотя если только не писать main - то решение должно быть рабочим )
https://perlbanjo.com/451bdcd355
это конечно без привязки к конкретной задаче )... (хотя если только не писать main - то решение должно быть рабочим )
SZ
Ты слишком SOLIDный программист
P
А вот книжечку по Mason никто не подкинет? ( https://www.oreilly.com/library/view/embedding-perl-in/0596002254/ )
повторюсь тут еще раз )
повторюсь тут еще раз )