lib/DBIx/Class/PK/Auto/MSSQL.pm

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