—package
DBIx::Class::Storage::DBI::MSSQL;
use
strict;
use
warnings;
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