Я использую CGI :: Application в mod_perl с DBIx :: Class, и я хотел бы, чтобы что-то вроде new определяло новую схему dbic при создании экземпляра. До сих пор я не смог заставить его работать. Самое близкое, к чему я пришел, - это суперкласс, у которого есть метод connect (), который возвращает новый объект, но я бы предпочел, чтобы он уже был подключен и создан.
Я бы очень признателен за любые мысли.
Спасибо!
Примечание : Хорошо, так что, очевидно, пока не помогло, но в то же время я создал метод доступа, который лениво создает экземпляр класса DBIx :: Class, так что это может быть немного лучше. Проверьте это:
sub schema {
my $self = shift;
unless ($self->{schema}) {
$self->{schema} = ACD::Model->connect(@{$self->cfg->{$ENV{MODE}}->{connect_params}});
}
return $self->{schema};
}
и затем, конечно, чтобы использовать его, вы должны сделать что-то вроде:
$self->schema->resultset('Foo')->find(1234);