sub delete_me {
  my $self = shift;

  my $sql = "DELETE FROM $self->{_table} WHERE $self->{_id_name} = ?";
  return $self->{_dbh}->execute( $sql, $self->{_id_value} );
}