sub name {
   my $self = shift;
   $self->dbh->prepare('SELECT FROM ...
   ...
   $result;
}