package Person;
...
__PACKAGE__->set_sql(by_group => q/
    SELECT person_id, firstname, lastname 
    FROM   person 
    WHERE  group_id = ?
    /);

package Group;
...
sub get_members {
    my $self = shift;
    Person->search_by_group($self);
}