package Role; Role->table('role'); Role->columns(Primary => qw/film actor/); Role->has_a(film => 'Film'); package Film; Film->table('film'); Film->columns(All => qw/id title rating/); Film->has_many(stars => [ Role => 'actor' ]);