| Catalyst-Model-CDBI-Sweet documentation | Contained in the Catalyst-Model-CDBI-Sweet distribution. |
Catalyst::Model::CDBI::Sweet - Making sweet things sweeter
package MyApp::Model::CDBI;
use base 'Catalyst::Model::CDBI::Sweet';
MyApp::Model::CDBI->connection('DBI:driver:database');
package MyApp::Model::Article;
use base 'MyApp::Model::CDBI';
... # table class config here
This model is a thin wrapper around Class::DBI::Sweet to let you use it as a Catalyst Model easily. It's similar to Catalyst::Model::CDBI::Plain.
If you want to use loader, you will probably want to add something like this to your CDBI model config section instead:
left_base_classes => qw/Class::DBI::Sweet/,
To see how you can take advantage of this module, please check out the Class::DBI::Sweet documentation.
Christian Hansen <ch@ngmedia.com>
Danijel Milicevic, Jesse Sheidlower, Marcus Ramberg, Sebastian Riedel, Viljo Marrandi
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
| Catalyst-Model-CDBI-Sweet documentation | Contained in the Catalyst-Model-CDBI-Sweet distribution. |
package Catalyst::Model::CDBI::Sweet; use strict; use base qw[Class::DBI::Sweet Catalyst::Base]; use Catalyst::Exception; our $VERSION = '0.06'; *new = Catalyst::Base->can('new'); sub _croak { my ( $self, $message ) = @_; local $Carp::CarpLevel = 2; Catalyst::Exception->throw( message => $message ); } 1; __END__