Size: a a a

2021 January 13

SZ

Sergey Zhmylove in Modern::Perl
Хотя я не сторонник shift
источник

SZ

Sergey Zhmylove in Modern::Perl
Ещё и return написали
источник

SZ

Sergey Zhmylove in Modern::Perl
Чтобы уж точно не оптимизировалось
источник

W

Warstone in Modern::Perl
Denis F
ну геттер/сеттер читабельнее, не?
Нет. Потому что обычно нужен простой аксессор, а они оптимизируются и встраиваются в дерево.
источник

b

basiliscos in Modern::Perl
Warstone
Нет. Это единственно верная при аксессорах
push $self->tests->@*, $data - няшней, как по мне
источник

W

Warstone in Modern::Perl
basiliscos
push $self->tests->@*, $data - няшней, как по мне
Тебе сколько раз говорили не писать такой код )))
источник

W

Warstone in Modern::Perl
Denis F
ну геттер/сеттер читабельнее, не?
https://metacpan.org/pod/Class::Accessor::Inherited::XS

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

DF

Denis F in Modern::Perl
Ну тут никаких ассессоров нет, чистый перл
источник

DF

Denis F in Modern::Perl
Но идею я понял
источник

W

Warstone in Modern::Perl
$self->test у тебя - классический ro аксессор.
источник

W

Warstone in Modern::Perl
Только имя ключа не совпадает с названием сабы, а так - прямо христоматейный.
источник

DF

Denis F in Modern::Perl
Ну я про то, что никакие дополнительные модули не используются.
источник

W

Warstone in Modern::Perl
Ну это не мешает ему быть аксессором. У нас в тестовом 2е задание что-ли руками написать генератор аксессоров.
источник

DF

Denis F in Modern::Perl
Warstone
Только имя ключа не совпадает с названием сабы, а так - прямо христоматейный.
для 2005 года сойдет :)
источник

W

Warstone in Modern::Perl
И для 21го сойдет. Вопрос в том - понимаешь-ли ты что такое аксессоры и как они работают и почему именно так.
источник

b

basiliscos in Modern::Perl
а что там понимать? Саба, к-я возвращает референс на что-то из объекта...
источник

W

Warstone in Modern::Perl
basiliscos
а что там понимать? Саба, к-я возвращает референс на что-то из объекта...
Не референс а что-либо. Кто мешает туда SV положить?
источник

b

basiliscos in Modern::Perl
ну да, скаляр )
источник

W

Warstone in Modern::Perl
Так что твое определение неточное ))
источник

b

basiliscos in Modern::Perl
но вообще ничего особого в аксессорах нет. Просто удобный способ, с защитой от рефакторинга, вместо того, чтобы лезть в потроха объекта напрямую через хэш.
источник