Commit | Line | Data |
---|---|---|
75d07914 | 1 | package DBIx::Class::Storage::DBI::MSSQL; |
843f8ecd | 2 | \r |
75d07914 | 3 | use strict; |
4 | use warnings; | |
843f8ecd | 5 | \r |
75d07914 | 6 | use base qw/DBIx::Class::Storage::DBI/; |
843f8ecd | 7 | \r |
75d07914 | 8 | # __PACKAGE__->load_components(qw/PK::Auto/); |
843f8ecd | 9 | \r |
75d07914 | 10 | sub last_insert_id { |
11 | my( $id ) = $_[0]->_dbh->selectrow_array('SELECT @@IDENTITY' ); | |
12 | return $id; | |
13 | } | |
ed8de058 | 14 | |
15 | sub build_datetime_parser { | |
16 | my $self = shift; | |
17 | my $type = "DateTime::Format::Strptime"; | |
18 | eval "use ${type}"; | |
19 | $self->throw_exception("Couldn't load ${type}: $@") if $@; | |
20 | return $type->new( pattern => '%m/%d/%Y %H:%M:%S' ); | |
21 | } | |
843f8ecd | 22 | \r |
75d07914 | 23 | 1; |
843f8ecd | 24 | \r |
75d07914 | 25 | =head1 NAME |
843f8ecd | 26 | \r |
75d07914 | 27 | DBIx::Class::Storage::DBI::MSSQL - Automatic primary key class for MSSQL |
843f8ecd | 28 | \r |
75d07914 | 29 | =head1 SYNOPSIS |
843f8ecd | 30 | \r |
75d07914 | 31 | # In your table classes |
32 | __PACKAGE__->load_components(qw/PK::Auto Core/); | |
33 | __PACKAGE__->set_primary_key('id'); | |
843f8ecd | 34 | \r |
75d07914 | 35 | =head1 DESCRIPTION |
843f8ecd | 36 | \r |
75d07914 | 37 | This class implements autoincrements for MSSQL. |
843f8ecd | 38 | \r |
75d07914 | 39 | =head1 AUTHORS |
843f8ecd | 40 | \r |
75d07914 | 41 | Brian Cassidy <bricas@cpan.org> |
843f8ecd | 42 | \r |
75d07914 | 43 | =head1 LICENSE |
843f8ecd | 44 | \r |
75d07914 | 45 | You may distribute this code under the same terms as Perl itself. |
843f8ecd | 46 | \r |
75d07914 | 47 | =cut |