added datetime parser types for the dbs I can find them for
[dbsrgits/DBIx-Class.git] / lib / DBIx / Class / Storage / DBI / MSSQL.pm
CommitLineData
75d07914 1package DBIx::Class::Storage::DBI::MSSQL;
843f8ecd 2\r
75d07914 3use strict;
4use warnings;
843f8ecd 5\r
75d07914 6use base qw/DBIx::Class::Storage::DBI/;
843f8ecd 7\r
75d07914 8# __PACKAGE__->load_components(qw/PK::Auto/);
843f8ecd 9\r
75d07914 10sub last_insert_id {
11 my( $id ) = $_[0]->_dbh->selectrow_array('SELECT @@IDENTITY' );
12 return $id;
13}
843f8ecd 14\r
75d07914 151;
843f8ecd 16\r
75d07914 17=head1 NAME
843f8ecd 18\r
75d07914 19DBIx::Class::Storage::DBI::MSSQL - Automatic primary key class for MSSQL
843f8ecd 20\r
75d07914 21=head1 SYNOPSIS
843f8ecd 22\r
75d07914 23 # In your table classes
24 __PACKAGE__->load_components(qw/PK::Auto Core/);
25 __PACKAGE__->set_primary_key('id');
843f8ecd 26\r
75d07914 27=head1 DESCRIPTION
843f8ecd 28\r
75d07914 29This class implements autoincrements for MSSQL.
843f8ecd 30\r
75d07914 31=head1 AUTHORS
843f8ecd 32\r
75d07914 33Brian Cassidy <bricas@cpan.org>
843f8ecd 34\r
75d07914 35=head1 LICENSE
843f8ecd 36\r
75d07914 37You may distribute this code under the same terms as Perl itself.
843f8ecd 38\r
75d07914 39=cut