Perl-DBIC/INSERT-DELETE-UPDATE詳細/リレーション先のテーブルのデータも削除のバックアップ(No.2)

バックアップ一覧
差分を表示
現在との差分を表示
ソースを表示
Perl-DBIC/INSERT-DELETE-UPDATE詳細/リレーション先のテーブルのデータも削除へ行く。
- 1 (2007-03-23 (金) 01:42:57)
- 2 (2007-09-05 (水) 10:39:05)

DBIC リレーション

リレーションのあるテーブル上のデータも削除する。

ID1の会社とその会社の社員を一緒に削除する

 $rs = $schema->resultset('Company');
 $rs->find(1)->delete->delete_related('employee')

1対N

選手とその所属チームを表すplayerテーブルとteamテーブルを想定すると、以下のようなコードになる。

 package MyappDB::Player;
 
 use base 'DBIx::Class';
 
 __PACKAGE__->load_components(qw/ PK::Auto Core/);
 __PACKAGE__->table('player');
 __PACKAGE__->add_columns(qw/
 player_id
 name
 age
 team_id
 /);
 __PACKAGE__->set_primary_key('plyaer_id');
 __PACKAGE__->belongs_to(team => 'MyappDB::Team', 'team_id');
 
 1;

belongs_to()でリレーションを張り、第一引数のキーであるteamがアクセサになる。つまり、以下のようなコードでteamテーブルにアクセスできる。

 $rs = $rs->search();
  while (my $p = $rs->next) {
       print $p->name;
       print $p->team->team_name;
  }

teamテーブルにteam_idカラムがなくteam_noカラムだった場合、あるいはteamテーブルのプライマリーキー以外のカラムと外部結合している場合、以下のようにすることでJOINで使うカラムを明示できる。

  __PACKAGE__->belongs_to(team => 'MyappDB::Team', { 'foreign.team_no' => 'self.team_id' });