Added PK::Auto::MSSQL + test

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

diff --git a/lib/DBIx/Class/PK/Auto/MSSQL.pm b/lib/DBIx/Class/PK/Auto/MSSQL.pm
new file mode 100644 (file)
index 0000000..59877f1
--- /dev/null
+++ b/lib/DBIx/Class/PK/Auto/MSSQL.pm
@@ -0,0 +1,35 @@
+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
\ No newline at end of file