インデックスはDBIxには見えません:: Class

Question

テーブルにレコードを追加するこの小さなperlコードがありますが、なぜDBICがプライマリキーを見ることができないのか混乱していますか？

どこでも回答が見つかりません。まず、テーブルと列の名前は、私は、アンダースコアに変更され、キャメルケースであったが、それだけでは動作しません:(

$ ./test.pl 
DBIx::Class::ResultSource::unique_constraint_columns(): Unknown unique constraint node_id on 'node' at ./test.pl line 80 

コード：

sub addNode 
{ 
    my $node = shift; my $lcNode = lc($node); 
    my $id = $schema 
     ->resultset('Node') 
     ->find_or_create 
     (
      { node_name => $lcNode }, 
      { key => 'node_id' } 
     ); 
    return $id; 
} 

テーブルの詳細：

mysql> desc node; 
+------------+-----------------------+------+-----+---------+----------------+ 
| Field  | Type     | Null | Key | Default | Extra   | 
+------------+-----------------------+------+-----+---------+----------------+ 
| node_id | mediumint(5) unsigned | NO | PRI | NULL | auto_increment | 
| node_name | varchar(50)   | NO |  | NULL |    | 
| node_notes | varchar(1000)   | YES |  | NULL |    | 
+------------+-----------------------+------+-----+---------+----------------+ 
3 rows in set (0.00 sec) 

を

DBIx :: Class :: Resultset：

$ cat Node.pm 
use utf8; 
package Testdb::Schema::Result::Node; 

# Created by DBIx::Class::Schema::Loader 
# DO NOT MODIFY THE FIRST PART OF THIS FILE 

use strict; 
use warnings; 

use base 'DBIx::Class::Core'; 
__PACKAGE__->table("node"); 
__PACKAGE__->add_columns(
    "node_id", 
    { 
    data_type => "mediumint", 
    extra => { unsigned => 1 }, 
    is_auto_increment => 1, 
    is_nullable => 0, 
    }, 
    "node_name", 
    { data_type => "varchar", is_nullable => 0, size => 50 }, 
    "node_notes", 
    { data_type => "varchar", is_nullable => 1, size => 1000 }, 
); 
__PACKAGE__->set_primary_key("node_id"); 


# Created by DBIx::Class::Schema::Loader v0.07045 @ 2017-08-21 22:14:58 
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:bWXf98hpLJgNBU93aaRYkQ 


# You can replace this text with custom code or comments, and it will be preserved on regeneration 
1; 

Answer 1

ヘンリーからDBIxのリストに入ってきた本物のものは、どんなキーを使っても、それに対応する列は問合せに含まれているはずです。上記のすべてが曖昧であり、間違っているわけではありませんが、正確な事実を明確にしていません。

Answer 2

https://metacpan.org/pod/DBIx::Class::ResultSet#find：

To aid with preparing the correct query for the storage you may supply the key attribute, which is the name of a unique constraint (the unique constraint corresponding to the primary columns is always named primary).

（重点鉱山。）つまり

、主キーを使用するために、あなたは{ key => 'primary' }を指定する必要があります。他のすべてのkey属性は、追加の一意制約の名前として参照されます。

Answer 3

あなたはaddNodeがどのように正確に動作するかを明確にしていませんでした。しかし、あなたはnode_nameすることで、既存のノードを検索したい場合は、単にkey属性削除する必要があります。

my $id = $schema->resultset('Node')->find_or_create(
    { node_name => $lcNode } 
); 

をしかしDBIC documentationで注意すべき点をお読みください。

If no such constraint is found, find currently defaults to a simple search->(\%column_values) which may or may not do what you expect. Note that this fallback behavior may be deprecated in further versions. If you need to search with arbitrary conditions - use "search". If the query resulting from this fallback produces more than one row, a warning to the effect is issued, though only the first row is constructed and returned as $result_object .

あなたはおそらくにユニーク制約を追加することを検討すべきですnode_name。