Class::DBI::AutoIncrement 0.05

Class::DBI::AutoIncrement is a Perl module to emulate auto-incrementing columns on Class::DBI subclasses. SYNOPSIS Lets assume you have a project making use of Class::DBI. You have implemented a subclass of Class::DBI called MyProject::DBI that opens a connection towards your projects database. You also created a class called MyProject::Book that represents the table Book in your database: package MyProject::Book; use base qw(MyProject::DBI); MyProject::Book->table(book); MyProject::Book->columns(Primary => qw(seqid)); MyProject::Book->table(Others => qw(author title isbn)); Now, you would like the column seqid of the table Book to be auto-incrementing, but your database unfortunately does not support auto-incrementing sequences. Instead, use Class::DBI::AutoIncrement to set the value of seqid automagically upon each insert(): package MyProject::Book; use base qw(Class::DBI::AutoIncrement MyProject::DBI); MyProject::Book->table(book); MyProject::Book->columns(Primary => qw(seqid)); MyProject::Book->table(Others => qw(author title isbn)); MyProject::Book->autoincrement(seqid); From now on, when you call: my $book = Book->insert({author => me, title => my life}); $book gets its seqid field automagically set to the next available value for that column. If you had 3 rows in the table book having seqids 1, 2 and 3, this new inserted row will get the seqid 4 (assuming a default setup)..

Requirements:	No special requirements
Platforms:	Linux
Keyword:	Autoincrement,  Book,  Classdbiautoincrement,  Columns,  Dbi,  Emulate,  Libraries,  Myproject,  Perl,  Perl Module,  Programming,  Qw,  Table
Users rating:	0/10