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;