Select Code to Download

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

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

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