view release on metacpan or  search on metacpan

lib/CellBIS/SQL/Abstract.pm  view on Meta::CPAN

  $field_col = trim($field_col);
  $value_col = trim(join(', ', @table_data));
  $value_col =~ s/\,$//g;
  $value_col =~ s/\s\,//g;

  return ["INSERT INTO ${table_name}($field_col) VALUES $value_col",
    @value_data];
}

sub update {
  my $self    = shift;
  my $arg_len = scalar @_;

  if ($arg_len > 2 || $arg_len >= 5) {
    my $method_name = '_qUpdate_arg' . $arg_len;
    if ($self->can($method_name)) {
      return $self->$method_name(@_);
    }
  }
  return '';