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

групп:

каналов:

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

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

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

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

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

go.backupland.com

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

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

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

Size: a a a

Modern::Perl

368 membersпожаловаться на группу
2020 January 27

EG

Emmanuel Goldstein in Modern::Perl
Roman
Зависимостей бояться, код не писать.
Копипастишь модуль к себе, и никаких зависимостей.
Мне очень хочется для этого скрипта оставаться в пределах одного файла, потому что его регулярно приходится притягивать курлом.
источник
13:58пожаловаться#1

EG

Emmanuel Goldstein in Modern::Perl
Да и зачем для этого зависимость, если это делается в пару строчек.
источник
13:58пожаловаться#2

R

Roman in Modern::Perl
Копипасть как угодно, хоть в один файл. Перл и не такое стерпит.
источник
13:58пожаловаться#3

EG

Emmanuel Goldstein in Modern::Perl
Roman
Копипасть как угодно, хоть в один файл. Перл и не такое стерпит.
Но зачем?
источник
13:58пожаловаться#4

R

Roman in Modern::Perl
Да, действительно, думай сам. )
источник
13:59пожаловаться#5

EG

Emmanuel Goldstein in Modern::Perl
Весь код «декоратора» выглядит так:
use Attribute::Handlers;

sub decorator : ATTR(CODE) {
    my ($package, $symbol, $referent) = @_;
    no warnings 'redefine';
    *{ $symbol } = sub {
        # replacement code
    }
}
источник
14:00пожаловаться#6

EG

Emmanuel Goldstein in Modern::Perl
Ещё вопрос: детерменирован ли порядок исполнения атрибутов? Если у меня есть сабрутина :first :second, правда ли, что :first будет вызван до :second всегда?
источник
14:10пожаловаться#7

EG

Emmanuel Goldstein in Modern::Perl
(При условии, что фаза нигде явно не задана)
источник
14:11пожаловаться#8

R

Roman in Modern::Perl
Я бы начал с проверки порядка сканирования функций, иначе нет гарантии порядка исполнения.
источник
14:24пожаловаться#9

AK

Andrey Konovalov in Modern::Perl
Кстати, раз уж зашла речь о всяких малоиспользуемых, но интересных фичах:
кто-нибудь в курсе, есть что-то подобное Moo, использующее внутри себя Sentinel и соотв. позволяющее делать lvalue-присваивание как во всех нормальных ООП-языках:
$inst->attr = $value;
?
источник
14:29пожаловаться#10

EG

Emmanuel Goldstein in Modern::Perl
Andrey Konovalov
Кстати, раз уж зашла речь о всяких малоиспользуемых, но интересных фичах:
кто-нибудь в курсе, есть что-то подобное Moo, использующее внутри себя Sentinel и соотв. позволяющее делать lvalue-присваивание как во всех нормальных ООП-языках:
$inst->attr = $value;
?
Что тебе мешает сделать просто lvalue-функцию?
источник
14:30пожаловаться#11

EG

Emmanuel Goldstein in Modern::Perl
Хотя стандартный для Perl стиль $inst->attr($value) мне кажется даже в чём-то элегантнее, так как позволяет чейнить присваивания.
источник
14:36пожаловаться#12

R

Roman in Modern::Perl
Есть люди, которым хочется "красиво" любой ценой  )
источник
14:37пожаловаться#13

VG

Vadim Goncharov in Modern::Perl
$inst->{attr} = $value; и не ебать моск
источник
14:39пожаловаться#14

R

Roman in Modern::Perl
$inst->{aatr} - уже ебет
источник
14:40пожаловаться#15

R

Roman in Modern::Perl
вызов несуществующего метода - фатальная ошибка
источник
14:40пожаловаться#16

VG

Vadim Goncharov in Modern::Perl
для этого есть рестриктед хэши, хоть прям из коробки use fields
источник
14:40пожаловаться#17

EG

Emmanuel Goldstein in Modern::Perl
Andrey Konovalov
Кстати, раз уж зашла речь о всяких малоиспользуемых, но интересных фичах:
кто-нибудь в курсе, есть что-то подобное Moo, использующее внутри себя Sentinel и соотв. позволяющее делать lvalue-присваивание как во всех нормальных ООП-языках:
$inst->attr = $value;
?
Я так и не понял, в чём проблема.
https://perlbanjo.com/f6a60586fb
источник
14:45пожаловаться#18

EG

Emmanuel Goldstein in Modern::Perl
lvalue-сабрутины работают из коробки
источник
14:45пожаловаться#19

AK

Andrey Konovalov in Modern::Perl
Emmanuel Goldstein
lvalue-сабрутины работают из коробки
Работают-то работают, но как-то не так, как надо для объектов. Я в своё время копал эту проблему довольно подробно.
источник
14:46пожаловаться#20