W
Ну и можно еще потом через Deparse посмотреть код метода перед вызовом.
Size: a a a
2020 November 27
W
Просто вообще - должно работать так как вы ожидаете.
c
Можно проверить если спросить ссылку на методы из Parent и из JSON::XS если ссылки одинаковые...
у Child и JSON::XS одинаковые. У Parent другая
W
Ну тогда все понятно
W
$self в методе Parent - это объект класса Child. И поэтому $self->method сначала будет искать method в Child, а не в Parent
c
Ну тогда все понятно
Нет, понятно, почему вызывается экспортированная в чайлд саба в этой ситуации, непонятно, почему приоритет у неё, а не у той, которая в Parent
W
Потому что mro::get_linear_isa говорит что для ref $self сначала будет поиск в Child
c
всё, до меня дошло
c
спасибо )
VG
новый вопрос для собеседований на сеньора :)
W
Ты сначала на миддла пройди. Хотя ты софт скиллз завалишь-же
VG
ты уже их завалил только что
c
просто из-за того, что в XS экспортируется через @EXPORT - encode_json с таким use импортнулась в пространство имён чайлда и дальше понятно
c
норм
W
c
ага сенкс
SZ
package Parent;
use strict;
use warnings;
use base 'Log::Dispatch::Output';
use JSON::XS qw();
sub log_by_filebeat {
my ($self, $data) = @_;
eval {
...
# здесь пытается вызваться encode_json из JSON::XS
$sock->syswrite($self->encode_json($data));
...
};
}
sub encode_json {
...
}
1;
package Child;
use strict;
use warnings;
use JSON::XS;
use base 'Parent';
sub log_message {
my $self = shift;
$self->log_by_filebeat($body);
}
1;
Потому что в неймспейсе child есть явный метод из xs.
Self содержит объект блесснутый в child
Self содержит объект блесснутый в child
AT
Прекрасный пример того, что ООП - это хрен просто так поймешь, что же вызывается )
W
Вообще довольно быстро нашли проблему.