applied patch for http://rt.cpan.org/NoAuth/Bug.html?id=11530

[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 e4f6cfc5dc419af8d99d6961c5469483cf2e860a..9cce6886c03f50678d7701da074edab646a2aaa0 100644 (file)
--- a/lib/Maypole/Model/CDBI/Plain.pm
+++ b/lib/Maypole/Model/CDBI/Plain.pm
@@ -1,5 +1,7 @@
 package Maypole::Model::CDBI::Plain;
 package Maypole::Model::CDBI::Plain;

+use Maypole::Config;

 use base 'Maypole::Model::CDBI';
 use base 'Maypole::Model::CDBI';

+use strict;

 
 Maypole::Config->mk_accessors(qw(table_to_class));
 
 
 Maypole::Config->mk_accessors(qw(table_to_class));
 


@@ -28,13 +30,13 @@ Maypole::Model::CDBI::Plain - Class::DBI model without ::Loader
     use Foo::SomeTable;
     use Foo::Other::Table;
 
     use Foo::SomeTable;
     use Foo::Other::Table;
 

-    Foo->config->{model_class} = "Maypole::Model::CDBI::Plain";
+    Foo->config->model("Maypole::Model::CDBI::Plain");

     Foo->setup([qw/ Foo::SomeTable Foo::Other::Table /]);
 
 =head1 DESCRIPTION
 
 This module allows you to use Maypole with previously set-up
     Foo->setup([qw/ Foo::SomeTable Foo::Other::Table /]);
 
 =head1 DESCRIPTION
 
 This module allows you to use Maypole with previously set-up

-C<Class::DBI> classes; simply call C<setup> with a list reference
+L<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.