Fixed up PK::Auto::* to use result_source, added connection, connect and clone method...

[dbsrgits/DBIx-Class.git] / lib / DBIx / Class / PK / Auto / MSSQL.pm

package DBIx::Class::PK::Auto::MSSQL;\r
\r
use strict;\r
use warnings;\r
\r
use base qw/DBIx::Class/;\r
\r
__PACKAGE__->load_components(qw/PK::Auto/);\r
\r
sub last_insert_id {\r
  my( $id ) = $_[0]->result_source->storage->dbh->selectrow_array(\r
                                                    'SELECT @@IDENTITY' );\r
  return $id;\r
}\r
\r
1;\r
\r
=head1 NAME \r
\r
DBIx::Class::PK::Auto::MSSQL - Automatic Primary Key class for MSSQL\r
\r
=head1 SYNOPSIS\r
\r
    # In your table classes\r
    __PACKAGE__->load_components(qw/PK::Auto::MSSQL Core/);\r
    __PACKAGE__->set_primary_key('id');\r
\r
=head1 DESCRIPTION\r
\r
This class implements autoincrements for MSSQL.\r
\r
=head1 AUTHORS\r
\r
Brian Cassidy <bricas@cpan.org>\r
\r
=head1 LICENSE\r
\r
You may distribute this code under the same terms as Perl itself.\r
\r
=cut\r