BeerDB::Pub->untaint_columns(printable => [qw/name notes url/]);
BeerDB::Drinker->untaint_columns( printable => [qw/handle created/] );
BeerDB::Pint->untaint_columns( printable => [qw/date_and_time/]);
-BeerDB::Person->untaint_columns( printable => [qw/first_name sur_name dob username password email/]);
# Required Fields
# Columns to display
sub BeerDB::Handpump::display_columns { qw/pub beer/ }
-sub BeerDB::Pint::display_columns { qw/drinker handpump/ }
-sub BeerDB::Person::display_columns { qw/first_name last_name dob email/ }
BeerDB->config->{loader}->relationship($_) for (
"a brewery produces beers",
return $self->beer . " @ " . $self->pub;
}
+
1;