我是 Moose 的新手,正在尝试将它与 DBIx::Class 一起使用。找到基本的 DBIC 查询和更新工作,但是当我修改属性时,我尝试编写的任何触发器都不会执行。
use Modern::Perl;
use Data::Dumper;
my $schema = My::Schema->connect(<connect str>, <usr>, <psw>) or die $!;
my $rs = $schema->resultset('Isin')->search( sid => 3929 );
my $security_obj = $rs->first;
print $security_obj->isin, "\n";
$security_obj->isin('Test1Foo'); # <- expect to see FOO printed by trigger
print $security_obj->isin, "\n";
我希望看到 'isin' 打印 'FOO' 的触发器,但没有任何反应。如果我从包中删除 DBIx::Class 触发器将按预期执行。
我怀疑 DBIx::Class 设置值的方式会阻止触发器触发。
不幸的是,我没有找到关于将 DBIx::Class 与 Moose 一起使用的资源。我所写的内容主要基于我在DBIx::Class 和 Moose中找到的内容。
我使用 DBIx::Class 和/或 Moose 错了吗?我应该与 Moose 一起使用不同的 ORM 吗?
带有不会触发的触发器的包:
package My::Schema::Result::Isin;
use DBIx::Class;
use Moose;
use Carp;
extends 'DBIx::Class';
has 'isin' => ( is => "rw", isa => "Str", trigger => \&_mod_isin);
has 'sid' => ( is => "ro", isa => "Int");
sub _mod_isin {
print "FOO\n";
return;
};
no Moose;
__PACKAGE__->load_components('Core');
__PACKAGE__->table('isin');
__PACKAGE__->add_columns(
isin => { data_type => 'varchar2', size => 12 },
sid => { data_type => 'integer', size => 6 },
);
__PACKAGE__->set_primary_key('isin');