package BeerDB; use warnings; use strict; use Class::DBI::Loader::Relationship; use MasonX::Maypole 0.2; use base 'MasonX::Maypole'; BeerDB->setup( 'dbi:mysql:beerdb:localhost:mysql_socket=/var/lib/mysql/mysql.sock', *deleted*, *del +eted* ); BeerDB->config->{view} = 'MasonX::Maypole::View'; BeerDB->config->{template_root} = '/Public/mason/beerdb'; BeerDB->config->{uri_base} = '/beerdb'; BeerDB->config->{rows_per_page} = 10; BeerDB->config->{display_tables} = [ qw( beer brewery pub style ) ]; BeerDB->config->masonx->{comp_root} = [ factory => '/Public/maypole' ]; BeerDB->config->masonx->{data_dir} = '/usr/local/apache_perl/mason'; BeerDB->config->masonx->{in_package} = 'My::Mason::App'; BeerDB::Brewery->untaint_columns( printable => [qw/name notes url/] ); BeerDB::Style->untaint_columns( printable => [qw/name notes/] ); BeerDB::Beer->untaint_columns( printable => [qw/abv name price notes/], integer => [qw/style brewery score/], date => [ qw/date/], ); BeerDB->config->{loader}->relationship($_) for ( "a brewery produces beers", "a style defines beers", "a pub has beers on handpumps"); 1;

[Thu Feb 10 09:58:00 2005] [error] Can't use an undefined value as a HASH reference at /usr/local/a +pache_perl/packages/BeerDB.pm line 20. Compilation failed in require at (eval 445) line 3. [Thu Feb 10 09:58:00 2005] [error] Can't use an undefined value as a HASH reference at /usr/lib/per +l5/site_perl/5.6.1/MasonX/Maypole.pm line 160.

Maypole::Config->mk_accessors( 'masonx' );

my $comp_roots = $class->config->masonx->{comp_root} || [];