POD updates: fleshed out some weak areas, reorganised a little and fixed some typogra...

[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 05aad180c6ee1f0394da56ec0a9c0ff04ef45d55..43a10b105a8c2da22f57198383dd6c6601131210 100644 (file)
--- a/lib/Maypole/Model/CDBI/Plain.pm
+++ b/lib/Maypole/Model/CDBI/Plain.pm
@@ -1,14 +1,17 @@
 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 {
 sub setup_database {

-    my ($self, $config, $namespace, $classes) = @_;
-    $config->{classes} = $classes;
-    $config->{table_to_class}  = { map { $_->table => $_ } @$classes };
-    $config->{tables} = [ keys %{$config->{table_to_class}} ];
+    my ( $self, $config, $namespace, $classes ) = @_;
+    $config->{classes}        = $classes;
+    $config->{table_to_class} = { map { $_->table => $_ } @$classes };
+    $config->{tables}         = [ keys %{ $config->{table_to_class} } ];

 }
 
 sub class_of {
 }
 
 sub class_of {

-    my ($self, $r, $table) = @_;
+    my ( $self, $r, $table ) = @_;

     return $r->config->{table_to_class}->{$table};
 }
 
     return $r->config->{table_to_class}->{$table};
 }
 


@@ -21,18 +24,31 @@ 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;
 

-    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.
 

+=head1 METHODS
+
+=over 4
+
+=item setup_database
+
+=item  class_of
+
+=back
+
+See L<Maypole::Model::Base>
+

 =cut
 =cut

+