package Maypole::Model::CDBI::Plain;
use base 'Maypole::Model::CDBI';
+Maypole::Config->mk_accessors(qw(table_to_class));
+
sub setup_database {
my ( $self, $config, $namespace, $classes ) = @_;
$config->{classes} = $classes;
of the classes you're going to use, and Maypole will work out the
tables and set up the inheritance relationships as normal.
+=head1 METHODS
+
+=over 4
+
+=item setup_database
+
+=item class_of
+
+=back
+
+See L<Maypole::Model::Base>
+
=cut