fix Sybase DT stuff and storage bases
[dbsrgits/DBIx-Class-Historic.git] / lib / DBIx / Class / Storage / DBI / Sybase / NoBindVars.pm
1 package DBIx::Class::Storage::DBI::Sybase::NoBindVars;
2
3 use base qw/
4   DBIx::Class::Storage::DBI::NoBindVars
5   DBIx::Class::Storage::DBI::Sybase
6 /;
7
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
16 1;