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; |