sub _setup_dbh {

      my $self = shift;

      $self->{'_dbh'} =
         DBI->connect( $dsn, $username, $password );

      return $self->{'_dbh'};

   }