Let the user call selectall_arrayref (or whatever):

sub dbh{
  my ($self) = @_;
  return $self->{_dbh};
}
[download]

Accept the same parameters as selectall_arrayref:

sub select_db{
  my $self = shift;
  return $self->{_dbh}->selectall_arrayref(@_);
}
[download]