class find函数在期望值时返回哈希值

Question

数据库模式:

create table requests(
    rid integer primary key autoincrement,
    oid integer references orders (oid),
    command varchar(5),
    account varchar(50),
    txn_id varchar(12),
    md5 varchar(30),
    txn_date varchar(14),
    sum float,
    regdt timestamp default current_timestamp,
    constraint u1 unique (command,txn_id)
);
create table orders (
    oid integer primary key autoincrement,
    cid integer references customers (cid),
    pid integer references providers (pid),
    account varchar(50),
    amount float
);  

由DBIx::Class::Schema::Loader映射到代码

控制器代码:

 my $req= $schema->resultset('Request');
 my $order= $schema->resultset('Order');
      my $r= $req->find(
            {   command => 'check',
                txn_id  => $txn_id,
            },
            { key => 'command_txn_id_unique' }
        );
        my $oid=$r->oid;
        $req->create(
            {   command  => $command,
                account  => $account,
                txn_id   => $txn_id,
                md5      => $md5,
                txn_date => $txn_date,
                sum      => $sum,
                oid      => $oid
            }
        );
       my $o = $order->find($oid);
       $o->sum($sum);
       $o->update;

My tracert sql with DBIC_TRACE=1

  SELECT me.rid, me.oid, me.command, me.account, me.txn_id, me.md5, me.txn_date, me.sum, me.regdt FROM requests me 
WHERE ( ( me.command = ? AND me.txn_id = ? ) ): 'check', '1358505665'
    SELECT me.oid, me.cid, me.pid, me.account, me.amount FROM orders me 
WHERE ( me.oid = ? ): '18'
    INSERT INTO requests ( account, command, md5, oid, sum, txn_date, txn_id) VALUES ( ?, ?, ?, ?, ?, ?, ? ): '1', 'pay', '44F4BC73D17E3FA906F658BB5916B7DC', '18', '500', '20130118104122', '1358505665'
    DBIx::Class::Storage::DBI::SQLite::_dbi_attrs_for_bind(): Non-integer value supplied for column 'me.oid' despite the integer datatype at /home/.../lib/TestPrj/Test.pm line 128
    SELECT me.oid, me.cid, me.pid, me.account, me.amount FROM orders me WHERE ( me.oid = ? ): 'TestPrj::Model::Result::Order=HASH(0x3dea448)'
    datatype mismatch: bind param (0) =HASH(0x3dea448) as integer at /usr/share/perl5/DBIx/Class/Storage/DBI.pm line 1765.

我不明白:

为什么在第一次选择查询$oid = 18和它的ok。

但是在第二个选择查询这个$oid是HASH吗?它在我的代码中没有被重新定义。

乌利希期刊指南:

使用Data:: dump by advice @akawhy我看到$oid是一个祝福HASH

所以，看起来有不同的上下文

标量{…Oid => $ Oid ..}

和find(…)中的散列。

我不知道为什么在第一种情况下它不是哈希。

但是，当我改变$oid=$r->get_column($oid)所有工作正常

Answer 1

$resultset->find返回一个Result对象。你没有粘贴你的ResultSource类，但正如你写的那样，你用Schema::Loader生成它们，我假设'oid'列访问器方法与'oid'关系访问器相同。在这种情况下，它会根据标量上下文和列表上下文返回不同的结果。

我建议重命名您的关系，这样您就可以为列值及其关系提供两个不同的访问器。

我用'rel_'作为所有关系的前缀，但您可能更喜欢不同的命名标准。

Answer 2

我认为my $oid=$r->oid;的$oid是一个参考，你可以使用ref或Data::Dumper来查看它的类型。

也许你应该用$oid->oid

注意这个错误

DBIx::Class::Storage::DBI::SQLite::_dbi_attrs_for_bind(): Non-......