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' ]);

##</code><code>##

$film = Film->search(title => 'Jaws');
$film->stars;

##</code><code>##

$stars = Film->search(title => 'Jaws')->stars;