set base to allow relative urls to work without leading slash.

[maypole.git] / lib / Maypole / Model / CDBI / Plain.pm

diff --git a/lib/Maypole/Model/CDBI/Plain.pm b/lib/Maypole/Model/CDBI/Plain.pm
index 114eb884b830813363772ce69026ef6fb5a6ad9a..e4f6cfc5dc419af8d99d6961c5469483cf2e860a 100644 (file)
--- 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';
 
 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;
 sub setup_database {
     my ( $self, $config, $namespace, $classes ) = @_;
     $config->{classes}        = $classes;


@@ -22,7 +24,7 @@ Maypole::Model::CDBI::Plain - Class::DBI model without ::Loader
 =head1 SYNOPSIS
 
     package Foo;
 =head1 SYNOPSIS
 
     package Foo;

-    use base 'Apache::DBI';
+    use base 'Maypole::Application';

     use Foo::SomeTable;
     use Foo::Other::Table;
 
     use Foo::SomeTable;
     use Foo::Other::Table;
 


@@ -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.
 
 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
 
 =cut