lib/DBIx/Class/Storage/DBI/MSSQL.pm

   1 package DBIx::Class::Storage::DBI::MSSQL;\r
   2 \r
   3 use strict;\r
   4 use warnings;\r
   5 \r
   6 use base qw/DBIx::Class::Storage::DBI/;\r
   7 \r
   8 # __PACKAGE__->load_components(qw/PK::Auto/);\r
   9 \r
  10 sub last_insert_id {\r
  11   my( $id ) = $_[0]->_dbh->selectrow_array('SELECT @@IDENTITY' );\r
  12   return $id;\r
  13 }\r
  14 \r
  15 1;\r
  16 \r
  17 =head1 NAME \r
  18 \r
  19 DBIx::Class::Storage::DBI::MSSQL - Automatic primary key class for MSSQL\r
  20 \r
  21 =head1 SYNOPSIS\r
  22 \r
  23   # In your table classes\r
  24   __PACKAGE__->load_components(qw/PK::Auto Core/);\r
  25   __PACKAGE__->set_primary_key('id');\r
  26 \r
  27 =head1 DESCRIPTION\r
  28 \r
  29 This class implements autoincrements for MSSQL.\r
  30 \r
  31 =head1 AUTHORS\r
  32 \r
  33 Brian Cassidy <bricas@cpan.org>\r
  34 \r
  35 =head1 LICENSE\r
  36 \r
  37 You may distribute this code under the same terms as Perl itself.\r
  38 \r
  39 =cut\r