Select Code to Download

package Person;
use base 'MyCDBI';
...
#   PRIMARY KEY (id),
#   UNIQUE (name)
# );

package Person::Relationship;
use base 'MyCDBI';
...
#   child int NOT NULL REFERENCES people,
#   PRIMARY KEY (parent,child)
# );

Person->has_many(children => [ Person::Relationship => child ]);
Person->has_many(parents => [ Person::Relationship => parent ]);

Person->has_many({ self_id => parent }, children => [ Person::Relation
+ship => child ]);
Person->has_many({ self_id => child }, parents => [ Person::Relationsh
+ip => parent ]);