only rebless S::DBI if it is still S::DBI and not a subclass

[dbsrgits/DBIx-Class.git] / lib / DBIx / Class / Storage / DBI / MSSQL.pm

package DBIx::Class::Storage::DBI::MSSQL;
\r
use strict;
use warnings;
\r
use base qw/DBIx::Class::Storage::DBI/;
\r
# __PACKAGE__->load_components(qw/PK::Auto/);
\r
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' );
}
\r
1;
\r
=head1 NAME
\r
DBIx::Class::Storage::DBI::MSSQL - Automatic primary key class for MSSQL
\r
=head1 SYNOPSIS
\r
  # In your table classes
  __PACKAGE__->load_components(qw/PK::Auto Core/);
  __PACKAGE__->set_primary_key('id');
\r
=head1 DESCRIPTION
\r
This class implements autoincrements for MSSQL.
\r
=head1 AUTHORS
\r
Brian Cassidy <bricas@cpan.org>
\r
=head1 LICENSE
\r
You may distribute this code under the same terms as Perl itself.
\r
=cut