More refactoring, created PK::Auto::MySQL

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

diff --git a/lib/DBIx/Class/PK/Auto/MySQL.pm b/lib/DBIx/Class/PK/Auto/MySQL.pm
new file mode 100644 (file)
index 0000000..bd253f0
--- /dev/null
+++ b/lib/DBIx/Class/PK/Auto/MySQL.pm
@@ -0,0 +1,35 @@
+package DBIx::Class::PK::Auto::MySQL;
+
+use strict;
+use warnings;
+
+use base qw/DBIx::Class/;
+
+__PACKAGE__->load_components(qw/PK::Auto/);
+
+sub last_insert_id {
+  return $_[0]->storage->dbh->{mysql_insertid};
+}
+
+1;
+
+=head1 NAME 
+
+DBIx::Class::PK::Auto::MySQL - Automatic Primary Key class for MySQL
+
+=head1 SYNOPSIS
+
+=head1 DESCRIPTION
+
+This class implements autoincrements for MySQL.
+
+=head1 AUTHORS
+
+Matt S. Trout <perl-stuff@trout.me.uk>
+
+=head1 LICENSE
+
+You may distribute this code under the same terms as Perl itself.
+
+=cut
+