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