How does this help me?

• Extending Moose (see MooseX:: on CPAN)
• metaprogramming

__PACKAGE__->meta->add_method( "get_list_of_${_}s" =>
   sub {
       my ($self) = @_;
       my $get    = "get_${_}";
       my $all    = $self->database->$function();

       return $all->as_list;
   }
) for qw/foo bar baz quux/;