Help for this page

Select Code to Download

Select or download this

CREATE TABLE r1
( id integer,
...
  groupname integer REFERENCES r2(id),
  PRIMARY KEY (id)
);

Select or download this

use lib qw(lib);
use DBIC::Schema;
...
$query_rs = $t2_rs->search;
while (my $account = $query_rs->next)
{ print Dumper $account->groupname->name; }