lib/Maypole/Config.pm

   1 package Maypole::Config;
   2 use base qw(Class::Accessor::Fast);
   3 use attributes ();
   4
   5 use strict;
   6 use warnings;
   7
   8 our $VERSION = "1." . sprintf "%04d", q$Rev$ =~ /: (\d+)/;
   9
  10 # Public accessors.
  11 __PACKAGE__->mk_accessors(
  12      qw( view view_options uri_base template_root template_extension model
  13          loader display_tables ok_tables rows_per_page dsn user pass opts
  14          application_name additional)
  15 );
  16
  17 # Should only be modified by model.
  18 __PACKAGE__->mk_ro_accessors(qw( classes tables));
  19
  20 1;
  21
  22 =head1 NAME
  23
  24 Maypole::Config - Maypole Configuration Class
  25
  26 =head1 DESCRIPTION
  27
  28 This class stores all configuration data for your Maypole application.
  29
  30 =head1 METHODS
  31
  32 =head2 View related
  33
  34 =head3 application_name
  35
  36 This should be a string containing your application's name.
  37
  38 Optional. Is used in the factory templates.
  39
  40 =head3 rows_per_page
  41
  42 This is the number of rows your application should display per page.
  43
  44 Optional.
  45
  46 =head3 tables
  47
  48 Contains a list of all tables, if supported by model.
  49
  50 =head3 template_extension
  51
  52 Optional template file extension.
  53
  54 =head3 template_root
  55
  56 This is where your application can find its templates.
  57
  58 =head3 uri_base
  59
  60 This is the URI base that should be prepended to your application when Maypole
  61 makes URLs.
  62
  63 =head3 view
  64
  65 The name of the view class for your Maypole Application. Defaults to
  66 "Maypole::View::TT".
  67
  68 =head3 view_options
  69
  70 A hash of configuration options for the view class. Consult the documentation
  71 for your chosen view class for information on available configuration options.
  72
  73 =head2 Model-Related
  74
  75 =head3 classes
  76
  77 This config variable contains a list of your view classes. This is set
  78 up by the
  79 model class, and should not be changed in the view or the config.
  80
  81 =head3 display_tables
  82
  83 This is a list of the tables that are public to your Maypole
  84 application. Defaults to all the tables in the database.
  85
  86 =head3 dsn
  87
  88 The DSN to your database. Follows standard DBD syntax.
  89
  90 =head3 loader
  91
  92 This is the loader object (n.b. an instance, not a class name). It's set
  93 up by the CDBI model to an instance of "Class::DBI::Loader" if it's not
  94 initialized before calling setup().
  95
  96 =head3 model
  97
  98 The name of the model class for your Maypole Application. Defaults to
  99 "Maypole::Model::CDBI".
 100
 101 =head3 ok_tables
 102
 103 This is a hash of the public tables. It is populated automatically by
 104 Maypole from the list in display_tables and should not be changed.
 105
 106 =head3 pass
 107
 108 Password for database user.
 109
 110 =head3 opts
 111
 112 Other options to the DBI connect call.
 113
 114 =head3 user
 115
 116 Username to log into the database with.
 117
 118 =head2 Adding additional configuration data
 119
 120 You can use the 'additional' attribute for stashing additional info, especially from additional_data method,
 121 i.e. $r->config->additional({foo=>bar});
 122
 123 Or..
 124
 125 If your modules need to store additional configuration data for their
 126 own use or to make available to templates, add a line like this to your
 127 module:
 128
 129    Maypole::Config->mk_accessors(qw(variable or variables));
 130
 131 Care is needed to avoid conflicting variable names.
 132
 133 =head1 SEE ALSO
 134
 135 L<Maypole>
 136
 137 =head1 AUTHOR
 138
 139 Sebastian Riedel, C<sri@oook.de>
 140
 141 =head1 AUTHOR EMERITUS
 142
 143 Simon Cozens, C<simon@cpan.org>
 144
 145 =head1 LICENSE
 146
 147 You may distribute this code under the same terms as Perl itself.
 148
 149 =cut
 150