Хотелось бы узнать, есть ли готовые решения для сабжа?
Я пробовал Class::Accessor, Class::Gomor, но не смог выжать из них то, что мне нужно.
Ниже более подробное описание.

Есть объект примерно такой структуры:

Мне нужен модуль, который бы автоматически сгенерировал следующие методы get'a/set'a:

• Hash
• A
• B
• Array
• Scalar

Т.е. мне нужен генератор для аттрибутов, у которых уровень вложенности больше 1. Надесь суть ясна.

Это сообщение отредактировал(а) KSURi - 4.1.2008, 19:51

стандартные модули - маловероятно... странный случай просто =) не думаю, что кому то могло такое понадобится.
если все таки надо, то можно делать так:

тот самый модуль Class/Plainer.pm



примитивный тест test.pl



P.S. замечу, что
а) под вложенными стурктурами понимаются только хеши хешей, т.е. содержимое массивов не просматривается
б) как только идентификатор найден - поиск останавливается.. отсюда вывод:
по хорошему _все_ имена полей класса должны быть различными - иначе задаче криво сформулирована

Это сообщение отредактировал(а) sir_nuf_nuf - 6.1.2008, 07:31

sir_nuf_nuf, интересный подход, думаю это подталкнет на создание своего модуля, автора темы.
Тоже считаю, что модуля нет ещё для таких структур, хотя может авторы существующих, могут и подсказать.
Лично не использовал, пишу все методы "ручками", и мне так удобнее, да и вполне это просто.
Но суть мне интересна.

З.Ы.: пожалуйста отредактируйте сообщение, используя подсветку кода, примерно так

так приятнее читать его.

Я прикидывал как это сделать самому (хотя ваш вариант кажется компактнее), просто думал может придется изобретать велосипед...
В любом случае спасибо, на досуге разберу ваш код

Уважаемый sir_nuf_nuf!

А как тест сработает в случае

  

Это сообщение отредактировал(а) ginnie - 6.1.2008, 11:39

плохо сработает =)
меняем lookup



Спасибо за замечания !!

Это сообщение отредактировал(а) sir_nuf_nuf - 7.1.2008, 22:29

Уважаемый sir_nuf_nuf, регулярное выражение

используется для ускорения работы?   

Зачем спорить по мелочам?) Выход тут очевиден я думаю, я вполне могу поправить те моменты, которые кажутся не совсем удачными.

В этом может родиться истина ;)

Я думаю дискуссию можно не прекращать  , интересная тема.
А может быть, что-то очень даже перспективное, главное нужное другим людям ;) , может получится.

Как я и говорил, на досуге взялся за код sir_nuf_nuf. Почитал, разобрал.
Вот проблема уже появилась:
после вызова lookup для например ключа B в хэшерефе А (если смотреть абсолютно, то В выглядит как $obj->{A}->{B}, соответственно вызываю я его $obj->set_B('bla')), это ключ почему-то просто пропадает из этого самого хэшрефа (писать даже как-то стыдно такое, но что поделать...). Понимаю, что скорее всего ничего не понятно из данного текста, поэтому лучше посмотреть 3 скриншота (обратите внимание на красные рамки в верхнем-правом углу):
1. Структура hashref'a до вызова сеттера.
http://i5.tinypic.com/6wxfakw.png
2. Структура hashref'a во время работы сеттера (если быть точным, то уже после работы оператора присваивания, но до возвращения из самого метода)
http://i17.tinypic.com/6y504sj.png
3. Структура hasref'a после возвращения из сеттера
http://i1.tinypic.com/870n1j9.png

P.S.: sir_nuf_nuf, заметил что изменили немного код саба lookup, использовав прагму attributes и вместо ref использовали reftype. Можно узнать, чем вызвано такое решение?

Это сообщение отредактировал(а) KSURi - 7.1.2008, 01:43

Уважаемый KSURi, а нельзя модулем Data::Dumper вывести содержимое объекта после set__LoginTemplate(), чтобы исключить ошибки отладчика?

Сказать, что я удивлен, значит не сказать ничего...

Причем:

выдает


Это сообщение отредактировал(а) KSURi - 7.1.2008, 13:20

Уважаемый KSURi, руками бы уже раз 100 все методы доступа написал? 

Без твоих исходников, боюсь, никто ничего дельного не посоветует, я точно не смогу -  у меня по телепатии двойка была в школе   

Дык написал уже давно, хотел вот объем кода сократить, а то получилось, что половина кода - однообразные сабы...

Уважаемый sir_nuf_nuf, решил еще раз внимательно посмотреть предложенный Вами вариант  
Возникло несколько моментов, требующих Ваших пояснений:

• первый раз сталкиваюсь с конструкцией
  

  Код

  my $method = our $AUTOLOAD;

  
  что она делает?
• нетривиальная конструкция 
  

  Код

  *$method = sub {             my ($self) = @_;             return ${lookup($self, $iden)};         } ... goto &$method;

  
  для чего? Разве без "выкрутасов" не будет работать?
  

  Код

  return ${lookup($self, $iden)};