package HomeGrown; use Moose; use namespace::autoclean; has 'schema' => ( is => 'rw', required => 1, isa => 'DBIx::Class::Schema', ); sub homegrown_people { my $self = shift; my @people = $self->schema->resultset('People')->all(); return \@people; } 1;