Size: a a a

2021 June 25

W

Warstone in Modern::Perl
источник

P

Pavel in Modern::Perl
https://masonbook.houseabsolute.com/book/
в браузере уже есть, нашел. спасибо
источник

W

Warstone in Modern::Perl
https://perlbanjo.com/7e032a6f94

Даже вот так не сработает.
источник

A

Alexander in Modern::Perl
Мне вот интересно стало. Сам тулкит выглядит скорее мёртвым чем живым, последний релиз в 15 году, последний коммит - в 16м. Далеко не факт, что и сам мэнтейнер живой, т.к. сайт у него тоже не работает.
Почему вдруг запонадобился?
источник

A

Alexander in Modern::Perl
Просто живой интерес
источник

И

Игорь in Modern::Perl
А как-то получить список всех пакетов подключенных через use можно?
источник

И

Игорь in Modern::Perl
Если можно, то вот так можно провернуть))
https://perlbanjo.com/61b9ed16c3
источник

W

Warstone in Modern::Perl
Нельзя...
источник

W

Warstone in Modern::Perl
Я могу в любой момент создать новый пакет
источник

W

Warstone in Modern::Perl
И удалить его - тоже.
источник

И

Игорь in Modern::Perl
А если через deparse прогнать и в его выводе выцепить все use?
источник

W

Warstone in Modern::Perl
Сколько раз говорить что я могу создать модуль без use. Что вам deparse даст?
источник

И

Игорь in Modern::Perl
Ну в теории можно попарсить выхлоп от deparse. Если модуль на лету создавался, то заодно все package тоже выхватить. Но я не пробовал, это так, рассуждаю что может deparse дать
источник

W

Warstone in Modern::Perl
И как вы по депарсу поймете что модуль на лету создастся через 10 лет после депарса?
источник

W

Warstone in Modern::Perl
Например вот тут: https://github.com/Warstone/SORM/blob/develop/lib/SORM/ResultRow.pm#L58
Под каждый запрос, если такого пакета нету - я создаю его. Чтобы можно было сделать:
my $query = $orm->q("
   SELECT m.data AS my_cool_data, 1 AS this_is_one, s.*
   FROM master_table m
   LEFT JOIN slave_table s ON s.master_id = m.id
   WHERE s.id <= 25
");
foreach my $row ($query->all) {
   print $row->id . ": " . $row->slave_data . ", " . encode_json($row->my_cool_data) . ", this_is_one: " . $row->this_is_one ."\n";
}
источник

P

Pavel in Modern::Perl
Да есть такая система request ticket (RT) , он там как шаблонизатор , вот надо погрузиться поглубже.
источник

P

Pavel in Modern::Perl
В некоторых компаниях я знаю юзают и CGI::WebIn и Webout, это мне кажется еще жестче , но ничего... живут и дальше)
источник

IB

Ivan Bessarabov in Modern::Perl
Request Tracker
источник

P

Pavel in Modern::Perl
Да, спасибо Вань , очепятался)
источник

SZ

Sergey Zhmylove in Modern::Perl
Можно, причем можно всех пакетов, а можно всех пакетов, подключенных через use. Оба варианта я выше уже показывал, несколько месяцев назад
источник