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');
In reply to Re: Basic Class::DBI question
by davidrw
in thread Basic Class::DBI question
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |