Commit | Line | Data |
843f8ecd |
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 |