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

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