В рейтинге участвует:

групп:

каналов:

Виртуальный сервер на SSD - недорого!

Аренда выделенных и виртуальных серверов (VDS/VPS), хостинг, аренда IP-адресов, администрирование, круглосуточная поддержка

qwarta.ru подробнее

Резервное копирование с проверкой на вирусы!!!

Удобный сервис создания резервных копий на любой сервер сети интернет. Отслеживайте изменения, проверяйте на вирусы. Надежно защитите свой бизнес!

go.backupland.com

Выбираете сервер? Любая конфигурация на заказ!

Аренда физических серверов любых конфигураций под любые запросы - 1С бухгалтерия, игровые сервера, нагруженные проекты, интернет-магазины!

qwarta.ru подробнее

Size: a a a

Modern::Perl

416 membersпожаловаться на группу
2021 January 26

W

Warstone in Modern::Perl
Аналог из C# - это что-нибудь типа: OnChanged?.Invoke(old_value, new_value). Тут нас интересует "?". Если OnChanged не задано, то то что после "." не выполнится. Такая удобная форма записи:
if(OnChanged != null)
 OnChnaged.Invoke(old_value, new_value);
источник
01:56пожаловаться#1

OP

Oleg Pronin in Modern::Perl
Andrey Konovalov
Подскажите, есть ли уже пакет, умеющий генерить sub'ы в таком духе: sub json { state $json; $json //= JSON->new }
Речь не о json конкретно, с ним понятно, что переменная намного дешевле. Речь в принципе об отложенном создании объектов
А в чем тайный смысл
sub json { state $json; $json //= JSON->new }
?
Чем это отличается от
sub json { state $json = JSON->new }
Кроме лишней проверки каждый раз?
источник
02:59пожаловаться#2

AK

Andrey Konovalov in Modern::Perl
Oleg Pronin
А в чем тайный смысл
sub json { state $json; $json //= JSON->new }
?
Чем это отличается от
sub json { state $json = JSON->new }
Кроме лишней проверки каждый раз?
Хм... Ничем, Вы правы
источник
03:02пожаловаться#3

OP

Oleg Pronin in Modern::Perl
Я только одно отличие вижу, что если конструктор вернет undef, то в вашем варианте он будет пытаться создать обьект при след вызове еще раз.
источник
03:03пожаловаться#4

OP

Oleg Pronin in Modern::Perl
Но врядли это релевантно
источник
03:03пожаловаться#5

AK

Andrey Konovalov in Modern::Perl
Согласен, суть вообще не в этом.
источник
03:04пожаловаться#6

OP

Oleg Pronin in Modern::Perl
Суть я понял)
источник
03:04пожаловаться#7

OP

Oleg Pronin in Modern::Perl
Lazy singleton
источник
03:05пожаловаться#8

AK

Andrey Konovalov in Modern::Perl
Странно, что Scalar::Defer есть, а таких генераторов инстансов на лету и только по необходимости нет.
источник
03:05пожаловаться#9

OP

Oleg Pronin in Modern::Perl
Через классовый ауесор можно вывернуться с дефолтным значением через сабрефу но проблема в том что короче не будет. Это и так одна короткая строка. Генератор никак не сокращает особо код
источник
03:09пожаловаться#10

AK

Andrey Konovalov in Modern::Perl
Oleg Pronin
Через классовый ауесор можно вывернуться с дефолтным значением через сабрефу но проблема в том что короче не будет. Это и так одна короткая строка. Генератор никак не сокращает особо код
https://perlbanjo.com/0db53d0d88
источник
03:20пожаловаться#11

AK

Andrey Konovalov in Modern::Perl
Сам Defer так выглядит
источник
03:20пожаловаться#12

AK

Andrey Konovalov in Modern::Perl
То есть это не синглтон по сути. В каждом пакете будет своя копия
источник
03:22пожаловаться#13

W

Warstone in Modern::Perl
А в чем сакральный смысл всего этого?
источник
03:22пожаловаться#14

AK

Andrey Konovalov in Modern::Perl
Warstone
А в чем сакральный смысл всего этого?
Если объект в течение жизни сервиса не понадобился - то и хорошо. Если понадобился - создастся в момент, когда будет нужен. Например, для всяких сервисов с протухающими соединениями полезно
источник
03:24пожаловаться#15

W

Warstone in Modern::Perl
Как раз нет. Вы один раз создали, соединение протухло, но оно создано
источник
03:24пожаловаться#16

AK

Andrey Konovalov in Modern::Perl
Warstone
Как раз нет. Вы один раз создали, соединение протухло, но оно создано
И толку мне с него? Новое соединение будет куда менее проблемным, нежели выяснение, не сдохло ли старое
источник
03:25пожаловаться#17

W

Warstone in Modern::Perl
Так нового не будет судя по тому что вы хотите добиться.
источник
03:25пожаловаться#18

W

Warstone in Modern::Perl
Или я чего-то не понимаю..
источник
03:26пожаловаться#19

AK

Andrey Konovalov in Modern::Perl
Warstone
Так нового не будет судя по тому что вы хотите добиться.
auth_ldap->search()
Пока я не вызову auth_ldap где-то в эндпойнте веб-сервиса - никакого LDAP-соединения не будет.
источник
03:27пожаловаться#20