should)
git-svn-id: http://svn.maypole.perl.org/Maypole/trunk@28
48953598-375a-da11-a14b-
00016c27c3ee
);
BeerDB::Beer->untaint_columns(
printable => [qw/abv name price notes/],
);
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",
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");
1;
"a pub has beers on handpumps");
1;