Added PK::Auto::MSSQL + test

[dbsrgits/DBIx-Class.git] / lib / DBIx / Class / PK / Auto / MSSQL.pm

package DBIx::Class::PK::Auto::MSSQL;\r
\r
use strict;\r
use warnings;\r
\r
use base qw/DBIx::Class/;\r
\r
__PACKAGE__->load_components(qw/PK::Auto/);\r
\r
sub last_insert_id {\r
  my( $id ) = $_[0]->storage->dbh->selectrow_array( 'SELECT @@IDENTITY' );\r
  return $id;\r
}\r
\r
1;\r
\r
=head1 NAME \r
\r
DBIx::Class::PK::Auto::MSSQL - Automatic Primary Key class for MSSQL\r
\r
=head1 SYNOPSIS\r
\r
=head1 DESCRIPTION\r
\r
This class implements autoincrements for MSSQL.\r
\r
=head1 AUTHORS\r
\r
Brian Cassidy <bricas@cpan.org>\r
\r
=head1 LICENSE\r
\r
You may distribute this code under the same terms as Perl itself.\r
\r
=cut