view release on metacpan or  search on metacpan

lib/DBIx/Wizard/ResultSet.pm  view on Meta::CPAN

      @row = $dbh->last_insert_id(undef, $self->{db}, $self->{table}, $auto_pk);
    } else {
      @row = $dbh->selectrow_array('SELECT LAST_INSERT_ID()');
    }
    return $row[0];
  }

  return;
}

sub update {
  my ($self, $rh_update) = @_;

  my ($sql, @bind) = $sw->update(
    -table => $self->{table},
    -set   => $rh_update,
    ($self->{where}) ? (-where => $self->{where}) : (),
    (defined $self->{limit}) ? (-limit => $self->{limit}) : (),
  )->to_sql;

  _debug_log('update', $sql, @bind);