X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FPK%2FAuto%2FSQLite.pm;h=e98f7f08b22487c452311fdf9fd859739af0b50b;hb=534521dac62f6ab58e83a42d4e8e3cb586db464b;hp=e405eac4c65f1779e4757dafbb3a414d20760727;hpb=eb49d4e3edc9c959f22593a9f4d379c31ed78538;p=dbsrgits%2FDBIx-Class-Historic.git diff --git a/lib/DBIx/Class/PK/Auto/SQLite.pm b/lib/DBIx/Class/PK/Auto/SQLite.pm index e405eac..e98f7f0 100644 --- a/lib/DBIx/Class/PK/Auto/SQLite.pm +++ b/lib/DBIx/Class/PK/Auto/SQLite.pm @@ -1,4 +1,5 @@ -package DBIx::Class::PK::Auto::SQLite; +package # hide package from pause + DBIx::Class::PK::Auto::SQLite; use strict; use warnings; @@ -7,32 +8,25 @@ use base qw/DBIx::Class/; __PACKAGE__->load_components(qw/PK::Auto/); -sub last_insert_id { - return $_[0]->result_source->storage->dbh->func('last_insert_rowid'); -} - 1; -=head1 NAME - -DBIx::Class::PK::Auto::SQLite - Automatic primary key class for SQLite +__END__ -=head1 SYNOPSIS +=head1 NAME - # In your table classes - __PACKAGE__->load_components(qw/PK::Auto::SQLite Core/); - __PACKAGE__->set_primary_key('id'); +DBIx::Class::PK::Auto::SQLite - (DEPRECATED) Automatic primary key class for SQLite -=head1 DESCRIPTION - -This class implements autoincrements for SQLite. +=head1 SYNOPSIS -=head1 AUTHORS +Just load PK::Auto instead; auto-inc is now handled by Storage. -Matt S. Trout +=head1 FURTHER QUESTIONS? -=head1 LICENSE +Check the list of L. -You may distribute this code under the same terms as Perl itself. +=head1 COPYRIGHT AND LICENSE -=cut +This module is free software L +by the L. You can +redistribute it and/or modify it under the same terms as the +L.