X-Git-Url: https://git.decadent.org.uk/gitweb/?a=blobdiff_plain;f=lib%2FMaypole%2FModel%2FCDBI%2FPlain.pm;h=e4f6cfc5dc419af8d99d6961c5469483cf2e860a;hb=9b8f3c269605db27908000957b20cc3a336f9148;hp=2c2d869a51679f24188cdddfb2ecafd8e59ba8f3;hpb=1ac110f4ecb782e381db456a3326ff71cb96a73e;p=maypole.git

diff --git a/lib/Maypole/Model/CDBI/Plain.pm b/lib/Maypole/Model/CDBI/Plain.pm
index 2c2d869..e4f6cfc 100644
--- a/lib/Maypole/Model/CDBI/Plain.pm
+++ b/lib/Maypole/Model/CDBI/Plain.pm
@@ -1,6 +1,8 @@
 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;
@@ -36,5 +38,17 @@ C<Class::DBI> classes; simply call C<setup> with a list reference
 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