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

групп:

каналов:

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

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

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

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

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

go.backupland.com

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

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

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

Size: a a a

Modern::Perl

387 membersпожаловаться на группу
2020 July 21

a

allter in Modern::Perl
Alexey Ugnichev
Очень редкий случай.
Весьма частый, если в обработчиках исключений у вас могут вылететь исключения, а вы после этого будете использовать $@.

Но лучше использовать Try::Tiny...
источник
13:35пожаловаться#1

AU

Alexey Ugnichev in Modern::Perl
allter
Весьма частый, если в обработчиках исключений у вас могут вылететь исключения, а вы после этого будете использовать $@.

Но лучше использовать Try::Tiny...
Ну там стоит внимательно почитать, для чего и как используется local $@.
источник
13:36пожаловаться#2

a

allter in Modern::Perl
Alexey Ugnichev
Ну там стоит внимательно почитать, для чего и как используется local $@.
В общем, КМК, в прикладном коде просто не должно быть своих local $@... Вот если приходится работать с легаси, где уже есть что угодно, а рефакторить дорого, то от eval { 1; } or do {}; не отвертеться.
источник
13:40пожаловаться#3

AU

Alexey Ugnichev in Modern::Perl
Лучше всё же почитать ;)
источник
13:44пожаловаться#4

MA

Mons Anderson in Modern::Perl
> eval { dangerous_effectful_things; } то вариант с "or do {}" не сможет ничего сделать.

с какой радости or do {} не сможет ничего сделать?
источник
13:45пожаловаться#5

a

allter in Modern::Perl
А как он стриггерится? Я имею в виду, если кто-то заэвалит там, где это небезопасно?
источник
13:47пожаловаться#6

DF

Denis F in Modern::Perl
Камрады, а можни ли как-то узнать из какого пакета вызывается метод? У меня есть класс который отнаследован от другого и мне надо понять откуда метод берется.
источник
15:12пожаловаться#7

MA

Mons Anderson in Modern::Perl
get_linear_isa + can и в цикле проверять на равенство
источник
15:13пожаловаться#8

DF

Denis F in Modern::Perl
Он показывает то же самое что в коде написано. Какая-то блин магическая херня у меня происходит
источник
15:17пожаловаться#9

DF

Denis F in Modern::Perl
Дамп выдает правильных парентов, но при этом при вызове метода вылезает вообще левая ошибка и ни единой строки из дебга который я в метод напихал
источник
15:18пожаловаться#10

MA

Mons Anderson in Modern::Perl
my $coderef = $self->can('method') вернёт указатель на реально исполняемую функцию
$coderef == \&YourPackage::method может проверить на метод пакета
источник
15:18пожаловаться#11

DF

Denis F in Modern::Perl
Dumper с deparse говорит что там моя функция лежит в кодерефе
источник
15:22пожаловаться#12

DF

Denis F in Modern::Perl
магия какая-то
источник
15:22пожаловаться#13

ТО

Тигран Оганесян... in Modern::Perl
в caller -е нету?
источник
15:26пожаловаться#14

DF

Denis F in Modern::Perl
В плане? caller который я внутрь метода сунул не вызывается
источник
15:27пожаловаться#15

DF

Denis F in Modern::Perl
coderef который я из объекта вытащил показывает точно тот который и должен работать
источник
15:27пожаловаться#16

MA

Mons Anderson in Modern::Perl
а пример можешь показать?
источник
15:28пожаловаться#17

DF

Denis F in Modern::Perl
get_linear_isa: $VAR1 = [
          'My::Package::SomePackage',
          'My::Package::Some::Base',
          'My::Package::Base'
        ];

$VAR1 = sub {
            package My::Package::Base;
            use warnings;
            use strict;
            die caller();
            my $self = shift();
            ...
}
источник
15:29пожаловаться#18

DF

Denis F in Modern::Perl
вот так дамп выглядит, код в sub { точный код моего метода. Но при этом die caller() не вызывается, вместо него вызывается какая-то левая хрень
источник
15:30пожаловаться#19

MA

Mons Anderson in Modern::Perl
die не вызывается?
источник
15:30пожаловаться#20