sub sqlInsert {
  my($self, $table, $data) = @_;
  my $names = join(", ", map { /^[_|-](.*)/; } keys %{$data});
  my $pholders = join(', ', ('?') x keys %{$data});
  $self->_sqlExecute("INSERT INTO $table ($names) VALUES($pholders)", values %{$data});
}

sub _sqlExecute {
  my ($self, $sql, @values) = @_;
$self->_sqlConnect();
  my $retval;
    eval {
      my $sth = $self->{_dbh}->prepare($sql);
      $retval = $sth->execute(@values);
    };
    if ($@) {croak ($@ . "\nSQL: $sql\n" . Dumper(\@_));}
    return $retval;
}