Looks like you can just cut and paste the code if you follow the accompanying instructions to set things up. You might get a reply from the author though for an alternative repository.

Feel free to take a stab at it and come back with questions if it’s not working.

Sidenote: I would recommend against–

use base 'DBIx::Class::ResultSet';

sub listall {
  my $self = shift;
  my @people = $self->all();
  return \@people;
}
[download]

Well-behaved resultsets should only return the same because they are expected to be chainable and ->all is kind of weirdly redundant so might lead to misunderstandings or over-elaboration of what could be more simple code.