У меня есть схема DBIC, где все классы используют общий базовый класс и класс определения. Базовый класс загружает общие компоненты и переопределяет метод обновления, чтобы записывать наборы изменений в таблицу аудита. Класс определения - это статический класс, сгенерированный из базы данных. Типичный заголовок класса выглядит примерно так:
package Schema::Base;
use base 'DBIx::Class::Core';
sub update {
my $self = shift;
# track changes to row
my $instance = $self->next::method(@_);
# save changeset to audit table
return $instance;
}
package Schema::Immutable::User;
use Moose;
use MooseX::NonMoose;
use namespace::autoclean;
extends 'DBIx::Class:Core';
__PACKAGE__->load_components("InflateColumn::DateTime");
package Schema::Mutable::User
use base ('Schema::Base', 'Schema::Immutable::User');
sub update {
my $self = shift;
# encrypt password
return $self->next::method(@_);
}
Все работало нормально, пока я не добавил и не переопределил обновление в классе User. По-видимому, переопределение в базовом классе и конфликт между классом User в некотором роде. Я использую next :: method (@_) для вызова следующего метода обновления, но он всегда зависает.
Это приложение CGI. Поэтому, когда я нажимаю «сохранить», браузер раскручивает колеса, пока я не нажму escape, чтобы отменить запрос. На этом этапе мое журналирование восстанавливается и показывает, что все запросы выполняются правильно и быстро, но зависает в конце класса User и не прогрессирует, пока я не нажму escape в браузере.
ОБНОВЛЕНИЕ: Похоже, это проблема взаимодействия с катализатором. При запуске сам по себе этот код работает правильно. Тем не менее, при выполнении изнутри применения катализатора это терпит неудачу.