X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FPK%2FAuto%2FMySQL.pm;h=fd152f76777a7fe315e4dd1d922c774891412bbf;hb=0c11ad0ee5c8407f6b87d6e15c62a1b445076dc0;hp=57b428da6d69ac331552670ddd6706b9a7834a98;hpb=6718c5f0bf2bb9528c055b5974488a6d37f1209a;p=dbsrgits%2FDBIx-Class.git diff --git a/lib/DBIx/Class/PK/Auto/MySQL.pm b/lib/DBIx/Class/PK/Auto/MySQL.pm index 57b428d..fd152f7 100644 --- a/lib/DBIx/Class/PK/Auto/MySQL.pm +++ b/lib/DBIx/Class/PK/Auto/MySQL.pm @@ -1,4 +1,5 @@ -package DBIx::Class::PK::Auto::MySQL; +package # hide package from pause + DBIx::Class::PK::Auto::MySQL; use strict; use warnings; @@ -7,33 +8,22 @@ use base qw/DBIx::Class/; __PACKAGE__->load_components(qw/PK::Auto/); -sub last_insert_id { - return $_[0]->storage->dbh->{mysql_insertid}; -} - 1; -=head1 NAME +=head1 NAME -DBIx::Class::PK::Auto::MySQL - Automatic Primary Key class for MySQL +DBIx::Class::PK::Auto::MySQL - (DEPRECATED) Automatic primary key class for MySQL =head1 SYNOPSIS - # In your table classes - __PACKAGE__->load_components(qw/PK::Auto::MySQL Core/); - __PACKAGE__->set_primary_key('id'); - -=head1 DESCRIPTION +Just load PK::Auto instead; auto-inc is now handled by Storage. -This class implements autoincrements for MySQL. +=head1 AUTHOR AND CONTRIBUTORS -=head1 AUTHORS - -Matt S. Trout +See L and L in DBIx::Class =head1 LICENSE You may distribute this code under the same terms as Perl itself. =cut -