![]() |
![]()
| ![]() |
![]()
NAMEClass::DBI::AutoLoader - Generates Class::DBI subclasses dynamically. SYNOPSISuse Class::DBI::AutoLoader ( dsn => 'dbi:mysql:database', username => 'username', password => 'passw0rd', options => { RaiseError => 1 }, tables => ['favorite_films','directors'] namespace => 'Films' ); my $film = Films::FavoriteFilms->retrieve(1); my $dir = Films::Directors( film => $film->id() ); DESCRIPTIONClass::DBI::AutoLoader scans the tables in a given database, and auto-generates the Class::DBI classes. These are loaded into your package when you import Class::DBI::AutoLoader, as though you had created the Data::FavoriteFilms class and "use"d that directly. NOTEClass::DBI::AutoLoader messes with your table names to make them look more like regular class names. Specifically it turns table_name into TableName. The actual function is just: $table = join('', map { ucfirst($_) } split(/[^a-zA-Z0-9]/, $table)); WARNINGI haven't tested this with any database but MySQL. Let me know if you use it with PostgreSQL or SQLite. Success or failure. OPTIONSOptions that can be used in the import:
SUPPORTED DATABASESCurrently this module supports MySQL, PostgreSQL, and SQLite via Class::DBI::mysql, Class::DBI::Pg, and Class::DBI::SQLite. TIPS AND TRICKSUSE ADDITIONAL_PACKAGESClass::DBI::AbstractSearch is extremely useful for doing any kind of complex query. Use it like this: use Class::DBI::AutoLoader ( ... additional_packages => ['Class::DBI::AbstractSearch'] ); my @records = MyDBI::Table->search_where( fname => ['me','you','another'] ); Please see Class::DBI::AbstractSearch for full details USE IN MOD_PERLPut your use Class::DBI::AutoLoader(...) call in your startup.pl file. Then all your mod_perl packages can use the generated classes directly. USE IN CGIsIf you don't use the "tables" option and you don't need all of the tables in the database, you're going to take an unneccessary penalty. WRAP IT IN A SUBCLASSYou probably want to wrap this in a subclass so you don't have to go through all of the dsn, user, blah blah everytime you use it. Additionally, you can put any __PACKAGE__->set_sql(...) type stuff in your subclass. That's helpful since you can't edit the generated classes. USING A SUBCLASS FOR CGIspackage My::DBI::ForCGI; sub import { my ($self,@tables) = @_; require Class::DBI::AutoLoader; Class::DBI::AutoLoader->import( dsn => 'dbi:mysql:application', username => 'joe', password => 'friday', options => { RaiseError => 1 }, tables => \@tables, namespace => 'My::DBI::ForCGI' ); } 1; Then in your CGI: use strict; use CGI; use My::DBI::ForCGI ( tables => 'users' ); my $cgi = CGI->new(); my $user = My::DBI::ForCGI::Users->retrieve( $cgi->param('user_id') ); ... Since your classes are scanned and generated, you will always take some performance hit, especially when used in non-persistant environments like a CGI application. Use "tables" liberally. SEE ALSOClass::DBI, Class::DBI::mysql, Class::DBI::Pg, Class::DBI::SQLite AUTHORRyan Parr, <ryanparr@thejamescompany.com> This software is based off the original work performed by Ikebe Tomohiro on the Class::DBI::Loader module. THANKSTo Casey West for helping to hash-out what makes this module useful. To Mike Castle for submitting the first patch :) COPYRIGHT AND LICENSEThis library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
|