X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FPK%2FAuto%2FMySQL.pm;h=10fbfd65349db14e617bdff7cbd5372a20dc6f14;hb=a2bd379666d729133d65c85dc775627937084b18;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..10fbfd6 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,25 @@ 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 - -DBIx::Class::PK::Auto::MySQL - 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'); +__END__ -=head1 DESCRIPTION +=head1 NAME -This class implements autoincrements for MySQL. +DBIx::Class::PK::Auto::MySQL - (DEPRECATED) Automatic primary key class for MySQL -=head1 AUTHORS +=head1 SYNOPSIS -Matt S. Trout +Just load PK::Auto instead; auto-inc is now handled by Storage. -=head1 LICENSE +=head1 FURTHER QUESTIONS? -You may distribute this code under the same terms as Perl itself. +Check the list of L. -=cut +=head1 COPYRIGHT AND LICENSE +This module is free software L +by the L. You can +redistribute it and/or modify it under the same terms as the +L.