From 8fe02231d92e4564f0dc52a1aa00e9d0cb974819 Mon Sep 17 00:00:00 2001
From: Marcus Ramberg <mramberg@cpan.org>
Date: Mon, 20 Sep 2004 19:46:29 +0000
Subject: [PATCH] Use Class::Accessor::Fast; perltidy on ::Config Added info
 about config to Changes.

git-svn-id: http://svn.maypole.perl.org/Maypole/trunk@198 48953598-375a-da11-a14b-00016c27c3ee
---
 Changes               |  1 +
 lib/Maypole.pm        |  4 +-
 lib/Maypole/Config.pm | 99 ++++++++++++++++++++++++++++++++-----------
 3 files changed, 78 insertions(+), 26 deletions(-)

diff --git a/Changes b/Changes
index 2117dbd..1e73404 100644
--- a/Changes
+++ b/Changes
@@ -14,6 +14,7 @@ Revision history for Perl extension Maypole
       $r->config->{document_encoding}
     - Removed Maypole::View::Mason as it's distributed separately on CPAN.
     - Factory templates are now XHTML 1.1 compliant.
+    - made the config hash into -> Maypole::Config
 
 1.7   Sat Jul 17 20:15:26 BST 2004
     - Emergency release - we lost the "use Maypole::Constants" from
diff --git a/lib/Maypole.pm b/lib/Maypole.pm
index 29c8917..e677828 100644
--- a/lib/Maypole.pm
+++ b/lib/Maypole.pm
@@ -1,5 +1,5 @@
 package Maypole;
-use base qw(Class::Accessor Class::Data::Inheritable);
+use base qw(Class::Accessor::FAST Class::Data::Inheritable);
 use attributes ();
 use UNIVERSAL::require;
 use strict;
@@ -341,7 +341,7 @@ Simon Cozens, C<simon@cpan.org>
 
 =head1 THANK YOU
 
-Jesse Scheidlower, Jody Belka, Markus Ramberg, Mickael Joanne, Simon Flack,
+Jesse Scheidlower, Jody Belka, Marcus Ramberg, Mickael Joanne, Simon Flack,
 Veljko Vidovic and all the others who've helped.
 
 =head1 LICENSE
diff --git a/lib/Maypole/Config.pm b/lib/Maypole/Config.pm
index b8202cf..b48548e 100644
--- a/lib/Maypole/Config.pm
+++ b/lib/Maypole/Config.pm
@@ -1,8 +1,7 @@
 package Maypole::Config;
-use base qw(Class::Accessor);
+use base qw(Class::Accessor::Fast);
 use attributes ();
-#use overload
-#    '""' => sub { shift->stringify_self};
+
 use strict;
 use warnings;
 
@@ -10,14 +9,13 @@ use warnings;
 __PACKAGE__->mk_accessors(
     qw( view uri_base template_root model loader display_tables ok_tables
       rows_per_page dsn user pass opts)
-      );
+);
 
 # Should only be modified by model.
-    __PACKAGE__->mk_ro_accessors( qw(
-	  classes
-	  tables
-	  table_to_class
-    ) );
+__PACKAGE__->mk_ro_accessors(
+    qw( classes tables table_to_class
+      )
+);
 
 1;
 
@@ -29,32 +27,85 @@ Maypole::Config - Maypole Configuration Class
 
 This class stores all configuration data for your Maypole application.
 
-=head2 view
+=head1 METHODS
+
+=head2 View related
+
+=head3 view
 
 The view class for your Maypole Application. Defaults to "Maypole::View::TT"
 
-=head2 display_tables 
+=head3 uri_base 
+
+This is the uri base that should be appended to your application when maypole 
+makes urls.
+
+=head3 template_root
+
+This is where your application can find it's templates.
+
+=head3 rows_per_page
+
+This is the  number of rows your application should display per page.
+
+=head2 Model-Related
+
+=head3 display_tables 
+
+These are the tables that are public to your maypole application
+
+=head3 ok_tables
+
+These are the tables that maypole should care about
+
+=head3 model
+
+The model class for your Maypole Application. Defaults to "Maypole::View::CDBI"
+
+=head3 loader
+
+This is the loader object. It's set up by the CDBI model if it's not initialized before setup.
+
+=head3 classes
+
+This config variable contains a list of your view classes. This set up by the
+model class, and should not be changed in the view or the config.
+
+=head3 dsn
+The DSN to your database. Follows standard DBD syntax.
+
+=head3 user
+
+Username to log into the database with
+
+=head3 pass
+
+Password for database user.
+
+=head3 opts
+
+Other options to the dbi connect call.
+
+=head1 SEE ALSO
 
-=head2 ok_tables
+L<Maypole>
 
-=head2 model
+=head1 MAINTAINER
 
-=head2 loader
+Sebastian Riedel, c<sri@oook.de>
 
-=head2 uri_base 
+=head1 AUTHOR
 
-=head2 classes
- 
-=head2 rows_per_page
+Simon Cozens, C<simon@cpan.org>
 
-=head2 dsn
+=head1 THANK YOU
 
-=head2 user
+Jesse Scheidlower, Jody Belka, Markus Ramberg, Mickael Joanne, Simon Flack,
+Veljko Vidovic and all the others who've helped.
 
-=head2 pass
+=head1 LICENSE
 
-=head2 opts
+You may distribute this code under the same terms as Perl itself.
 
-+head2 table_to_root
+=cut
 
-=head2 template_root
-- 
2.39.2