You can always write a method for Film to wrap all the steps ... (note: untested & no error handling is obviously absent)

package File;
Film->table('film');
Film->columns(All => qw/id title rating/);
sub stars {
  my $self = shift;
  my $title = shift;
  my ($film) = $self->search( title => $title );
  return [ map { $_->actor } Role->search(film => $film->id) ];
}
package main;
@$aref = Film->stars('Jaws');
[download]