PRIMARY KEYを設定したフィールドを使って検索する

PostgreSQLでテーブルをつくる。

CREATE TABLE table1(
    c1 integer PRIMARY KEY
);
INSERT INTO table1 VALUES(1),(2),(3),(4),(5);

% createdb testdb
% psql -f testdb.sql -d testdb

PRIMARY KEYに指定したフィールドの値を使って検索する。

package TestDB::Schema;
use base qw/DBIx::Class::Schema::Loader/;

__PACKAGE__->loader_options(
    relationships => 1,
);
1;

package main;

my $db_schema = TestDB::Schema->connect("dbi:Pg:dbname=testdb","","",undef);
my $row = $db_schema->resultset('Table1')->find(2);

print $row->c1, "\n";

% perl select.pl
2