lib/DBIx/Class/Storage/DBI/MSSQL.pm

   1 package DBIx::Class::Storage::DBI::MSSQL;
   2
   3 use strict;
   4 use warnings;
   5
   6 use base qw/DBIx::Class::Storage::DBI::Sybase/;
   7
   8 sub last_insert_id {
   9   my( $id ) = $_[0]->_dbh->selectrow_array('SELECT @@IDENTITY' );
  10   return $id;
  11 }
  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 }
  20
  21 1;
  22
  23 =head1 NAME
  24
  25 DBIx::Class::Storage::DBI::MSSQL - Storage::DBI subclass for MSSQL
  26
  27 =head1 SYNOPSIS
  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
  37 =head1 AUTHORS
  38
  39 Brian Cassidy <bricas@cpan.org>
  40
  41 =head1 LICENSE
  42
  43 You may distribute this code under the same terms as Perl itself.
  44
  45 =cut