Commit | Line | Data |
4ffa5700 |
1 | package DBIx::Class::Storage::DBI::ADO::Microsoft_SQL_Server; |
2 | |
3 | use strict; |
4 | use warnings; |
5 | |
6 | use base qw/ |
7 | DBIx::Class::Storage::DBI::ADO |
8 | DBIx::Class::Storage::DBI::MSSQL |
9 | /; |
10 | use mro 'c3'; |
11 | |
12 | sub _rebless { |
13 | my $self = shift; |
14 | $self->_identity_method('@@identity'); |
15 | } |
16 | |
17 | 1; |
18 | |
19 | =head1 NAME |
20 | |
21 | DBIx::Class::Storage::DBI::Sybase::Microsoft_SQL_Server - Support for Microsoft |
22 | SQL Server via DBD::ADO |
23 | |
24 | =head1 SYNOPSIS |
25 | |
26 | This subclass supports MSSQL server connections via L<DBD::ADO>. |
27 | |
28 | =head1 DESCRIPTION |
29 | |
30 | The MSSQL specific functionality is provided by |
31 | L<DBIx::Class::Storage::DBI::MSSQL>. |
32 | |
33 | C<_identity_method> is set to C<@@identity>, as C<SCOPE_IDENTITY()> doesn't work |
34 | with L<DBD::ADO>. See L<DBIx::Class::Storage::DBI::MSSQL/IMPLEMENTATION NOTES> |
35 | for caveats regarding this. |
36 | |
37 | =head1 AUTHOR |
38 | |
39 | See L<DBIx::Class/CONTRIBUTORS>. |
40 | |
41 | =head1 LICENSE |
42 | |
43 | You may distribute this code under the same terms as Perl itself. |
44 | |
45 | =cut |