АК
sub blah{push @_, 666; $a = UNIVERSAL::can($_, "blah") and goto $a for our @ISA}– Это что-то страшное.
– Это что-то страшное.
Size: a a a
2020 November 24
– Это что-то страшное.
SZ
sub blah{push @_, 666; $a = UNIVERSAL::can($_, "blah") and goto $a for our @ISA}– Это что-то страшное.
Это поиск референса на метод blah у кого-то из родителей.
По факту можно просто goto &Bar::blah
По факту можно просто goto &Bar::blah
VG
любишь ты поизвращаться :)
SZ
любишь ты поизвращаться :)
Это точно! :)
АК
любишь ты поизвращаться :)
Ох как меня MTProto::Message достал, он просто _всё_ ломает!
SZ
Ох как меня MTProto::Message достал, он просто _всё_ ломает!
В смысле?
SZ
Что он ломает?
АК
В смысле?
Не, это не вам.
VG
Ох как меня MTProto::Message достал, он просто _всё_ ломает!
у нас ничего не ломает
SZ
Не, это не вам.
Я просто очень люблю твои вопросы
АК
у нас ничего не ломает
У вас куча обёрток над ним!
Начиная с того, что ->new с другим прототипом…
Начиная с того, что ->new с другим прототипом…
VG
таков протокол, что ты хочешь
АК
таков протокол, что ты хочешь
ДА ХОТЬ ВСЮ mtp СХЕМУ СЕБЕ В КОД БЕРИ, блин…
Как же неудобно, у-у-у, как же неудобно.
Как же неудобно, у-у-у, как же неудобно.
VG
действительно, залезать на шкаф, чтоб подсматривать за баней - очень неудобно
АК
Особенно меня бесит вот эта часть:
if (blessed $data) {
croak "not a TL object" unless $data->isa('TL::Object');
$self->{object} = $data;
$self->{data} = pack "(a4)*", $data->pack;
}
else {
$self->{data} = $data;
}
Это типа чтобы массивы можно было толкать вместо типизированных объектов что ли?АК
Я просто очень люблю твои вопросы
А когда у меня
package XX; sub xx {};
@YY::ISA = ('XX');
то я не могу
YY::xx();
?
package XX; sub xx {};
@YY::ISA = ('XX');
то я не могу
YY::xx();
?
VT
Ох как меня MTProto::Message достал, он просто _всё_ ломает!
слыщ, пакуй сам, да!
SZ
А когда у меня
package XX; sub xx {};
@YY::ISA = ('XX');
то я не могу
YY::xx();
?
package XX; sub xx {};
@YY::ISA = ('XX');
то я не могу
YY::xx();
?
P
VT
Особенно меня бесит вот эта часть:
if (blessed $data) {
croak "not a TL object" unless $data->isa('TL::Object');
$self->{object} = $data;
$self->{data} = pack "(a4)*", $data->pack;
}
else {
$self->{data} = $data;
}
Это типа чтобы массивы можно было толкать вместо типизированных объектов что ли?ну да