DBIx::Class -> has_many und belongs_to - #99887 (Datenbanken und Verzeichnisdienste)

renee

2007-09-23 17:23

User since
2003-08-04
14371 Artikel
ModeratorIn

Code: (dl )

+---------+
| foreign  |
+---------+
| id (PK)  |
| col1    |
+---------+

+---------+
| self     |
+---------+
| sid      |
| fid (FK) |
+---------+

Code (perl): (dl )

package MyDB::ForeignTable;

#....

__PACKAGE__->has_many( 'selfs' => 'MyDB::SelfTable', {"foreign.fid" => "self.id"});

Code (perl): (dl )

package MyDB::SelfTable;

#...

__PACKAGE__->belongs_to( 'foreign' => 'MyDB::ForeignTable', {'foreign.id' => 'self.fid'});