[dbsrgits/DBIx-Class.git] / lib / DBIx / Class / Storage / DBI / Sybase / NoBindVars.pm

package DBIx::Class::Storage::DBI::Sybase::NoBindVars;

use base qw/
  DBIx::Class::Storage::DBI::NoBindVars
  DBIx::Class::Storage::DBI::Sybase
/;

sub _dbh_last_insert_id {
  my ($self, $dbh, $source, $col) = @_;

  # @@identity works only if not using placeholders
  # Should this query be cached?
  return ($dbh->selectrow_array('select @@identity'))[0];
}

1;
Commit	Line	Data
6b1f5ef7	1	package DBIx::Class::Storage::DBI::Sybase::NoBindVars;
5608593e	2
	3	use base qw/
	4	DBIx::Class::Storage::DBI::NoBindVars
	5	DBIx::Class::Storage::DBI::Sybase
	6	/;
	7
6b1f5ef7	8	sub _dbh_last_insert_id {
	9	my ($self, $dbh, $source, $col) = @_;
	10
	11	# @@identity works only if not using placeholders
	12	# Should this query be cached?
	13	return ($dbh->selectrow_array('select @@identity'))[0];
	14	}
	15
5608593e	16	1;