Commit | Line | Data |
b8566d66 |
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 |
66d9ef6b |
11 | my( $id ) = $_[0]->result_source->storage->dbh->selectrow_array(\r |
12 | 'SELECT @@IDENTITY' );\r |
b8566d66 |
13 | return $id;\r |
14 | }\r |
15 | \r |
16 | 1;\r |
17 | \r |
18 | =head1 NAME \r |
19 | \r |
eb49d4e3 |
20 | DBIx::Class::PK::Auto::MSSQL - Automatic primary key class for MSSQL\r |
b8566d66 |
21 | \r |
22 | =head1 SYNOPSIS\r |
23 | \r |
eb49d4e3 |
24 | # In your table classes\r |
25 | __PACKAGE__->load_components(qw/PK::Auto::MSSQL Core/);\r |
26 | __PACKAGE__->set_primary_key('id');\r |
6718c5f0 |
27 | \r |
b8566d66 |
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 |
6718c5f0 |
40 | =cut\r |