1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
|
package DBIx::Class::Storage::DBI::MSSQL;
use strict;
use warnings;
use base qw/DBIx::Class::Storage::DBI/;
sub last_insert_id {
my( $id ) = $_[0]->_dbh->selectrow_array('SELECT @@IDENTITY' );
return $id;
}
sub build_datetime_parser {
my $self = shift;
my $type = "DateTime::Format::Strptime";
eval "use ${type}";
$self->throw_exception("Couldn't load ${type}: $@") if $@;
return $type->new( pattern => '%m/%d/%Y %H:%M:%S' );
}
1;
=head1 NAME
DBIx::Class::Storage::DBI::MSSQL - Storage::DBI subclass for MSSQL
=head1 SYNOPSIS
This subclass supports MSSQL, and can in theory be used directly
via the C<storage_type> mechanism:
$schema->storage_type('::DBI::MSSQL');
$schema->connect_info('dbi:....', ...);
However, as there is no L<DBD::MSSQL>, you will probably want to use
one of the other DBD-specific MSSQL classes, such as
L<DBIx::Class::Storage::DBI::Sybase::MSSQL>. These classes will
merge this class with a DBD-specific class to obtain fully
correct behavior for your scenario.
=head1 AUTHORS
Brian Cassidy <bricas@cpan.org>
=head1 LICENSE
You may distribute this code under the same terms as Perl itself.
=cut
|
