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=59fb00f614f6ef10fe0a8bcb5f062205f23e78f7;hpb=66d9ef6bf10ccbdc9391e81e5b1ad1b615fb67f7;p=dbsrgits%2FDBIx-Class.git diff --git a/lib/DBIx/Class/PK/Auto/MySQL.pm b/lib/DBIx/Class/PK/Auto/MySQL.pm index 59fb00f..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]->result_source->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 -