-
-BeerDB::Brewery->columns(Stringify => qw/name/);
-
-BeerDB->config->{loader}->relationship( "a brewery produces beers" );
-BeerDB->config->{loader}->relationship( "a pub has beers on handpumps");
-
+BeerDB->config->{display_tables} = [qw[beer brewery pub style]];
+BeerDB::Brewery->untaint_columns( printable => [qw/name notes url/] );
+BeerDB::Beer->untaint_columns(
+ printable => [qw/abv name price notes/],
+ integer => [qw/style brewery/],
+ date =>[ qw/date/],
+);
+use Class::DBI::Loader::Relationship;
+BeerDB->config->{loader}->relationship($_) for (
+ "a brewery produces beers",
+ "a style defines beers",
+ "a pub has beers on handpumps");