package Models::Schema::ModelsDB::ResultSet::People; use strict; use warnings; use base 'DBIx::Class::ResultSet'; sub listall { my $self = shift; my @people = $self->all(); return \@people; } 1;