sub create_add_to_table {
  my $table = shift;
  sub {
    my ( $self, $data ) = @_;
      my $data = $self->_generic_insert( $data, $table );
      $self->{ _dbh }->commit if ! $self->{ _error };
      return $data;
  };
}

*add_company = create_add_to_table('company');
*add_financial_diary = create_add_to_table("financialDiary");