Commit | Line | Data |
75d07914 |
1 | package DBIx::Class::Storage::DBI::MSSQL; |
3885cff6 |
2 | |
75d07914 |
3 | use strict; |
4 | use warnings; |
3885cff6 |
5 | |
6 | use base qw/DBIx::Class::Storage::DBI::Sybase/; |
7 | |
75d07914 |
8 | sub last_insert_id { |
9 | my( $id ) = $_[0]->_dbh->selectrow_array('SELECT @@IDENTITY' ); |
10 | return $id; |
11 | } |
ed8de058 |
12 | |
13 | sub build_datetime_parser { |
14 | my $self = shift; |
15 | my $type = "DateTime::Format::Strptime"; |
16 | eval "use ${type}"; |
17 | $self->throw_exception("Couldn't load ${type}: $@") if $@; |
18 | return $type->new( pattern => '%m/%d/%Y %H:%M:%S' ); |
19 | } |
3885cff6 |
20 | |
75d07914 |
21 | 1; |
3885cff6 |
22 | |
75d07914 |
23 | =head1 NAME |
3885cff6 |
24 | |
25 | DBIx::Class::Storage::DBI::MSSQL - Storage::DBI subclass for MSSQL |
26 | |
75d07914 |
27 | =head1 SYNOPSIS |
3885cff6 |
28 | |
29 | This subclass supports MSSQL. As MSSQL is usually used via a |
30 | differently-named DBD such as L<DBD::Sybase>, it does not get |
31 | autodetected by DBD-type like the other drivers, and you will need to |
32 | specify this storage driver manually, as in: |
33 | |
34 | $schema->storage_type('::DBI::MSSQL'); |
35 | $schema->connect_info('dbi:Sybase:....', ...); |
36 | |
75d07914 |
37 | =head1 AUTHORS |
3885cff6 |
38 | |
75d07914 |
39 | Brian Cassidy <bricas@cpan.org> |
3885cff6 |
40 | |
75d07914 |
41 | =head1 LICENSE |
3885cff6 |
42 | |
75d07914 |
43 | You may distribute this code under the same terms as Perl itself. |
3885cff6 |
44 | |
75d07914 |
45 | =cut |