![](/img/trans.png)
[英]How to avoid race conditions when using the find_or_create method of DBIx::Class::ResultSet?
[英]How to create trigger in DB with help of `DBIx::Class` using add_trigger method?
我想将触发器添加到数据库中。 我用DBIx::Class
,并按照这些例子: 1 , 2 。
我的代码是:
package App::Schema;
use base qw/DBIx::Class::Schema/;
__PACKAGE__->load_namespaces();
sub sqlt_deploy_hook {
my ($self, $schema) = @_;
$schema->add_trigger( name => 'foo' );
}
1;
但是我得到这个错误:
Failed to translate to YAML: translate: Error with producer 'SQL::Translator::Producer::YAML': Can't call method "name" on an undefined value at /home/kes/work/projects/x/app/local/lib/perl5/SQL/Translator/Schema/Trigger.pm line 198
使用dbic-migration
要求的所有环境变量运行命令时:
dbic-migration --force --schema_class App::Schema --database PostgreSQL -Ilib prepare
这使我进入了SQL::Translator::Schema::Trigger
我错过了什么? 如何解决这个错误?
UPD
即使我添加了所有参数,我仍然出错:
Failed to translate to YAML: translate: Error with parser 'SQL::Translator::Parser::DBIx::Class': Table named users doesn't exist at /home/kes/work/projects/x/app/local/lib/perl5/SQL/Translator/Schema/Trigger.pm line 54
这里的目标线:
my $table = $args->{schema}->get_table($arg)
or die "Table named $arg doesn't exist";
修改后的代码:
sub sqlt_deploy_hook {
my ($self, $schema) = @_;
warn "TABLES: " ,$schema->get_tables ,"\n";
$schema->add_trigger(()
,name => 'foo'
,perform_action_when => 'after'
,database_events => 'insert'
,on_table => 'users'
,action => 'text'
,scope => 'row'
);
}
此代码会产生下一条警告:
TABLES: users
TABLES: dbix_class_deploymenthandler_versions
但是DB目前只有一张表。 我希望至少应该产生:
TABLES: users dbix_class_deploymenthandler_versions
如何在DB
创建触发器?
DBIx :: Class :: ResultSource :: default_sqlt_deploy_hook可能存在问题:
最初旨在预期结果类名称和要部署的表的$ sqlt_table实例
解决方法是在add_trigger
之前添加下一行代码:
return unless grep $_ eq 'users', $schema->get_tables;
但是推荐的方法是手动创建deploy / upgrade / downgrade .sql
文件
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.