__PACKAGE__->load_components(qw/PK::Auto/);
sub last_insert_id {
- return $_[0]->storage->dbh->func('last_insert_rowid');
+ return $_[0]->result_source->storage->dbh->func('last_insert_rowid');
}
1;
=head1 NAME
-DBIx::Class::PK::Auto::SQLite - Automatic Primary Key class for SQLite
+DBIx::Class::PK::Auto::SQLite - Automatic primary key class for SQLite
=head1 SYNOPSIS
- # In your table classes
- __PACKAGE__->load_components(qw/PK::Auto::SQLite Core/);
- __PACKAGE__->set_primary_key('id');
+ # In your table classes
+ __PACKAGE__->load_components(qw/PK::Auto::SQLite Core/);
+ __PACKAGE__->set_primary_key('id');
=head1 DESCRIPTION
You may distribute this code under the same terms as Perl itself.
=cut
-