1# $Id$ 2 3package Recipe; 4use strict; 5use base qw( Data::ObjectDriver::BaseObject ); 6use DodTestUtil; 7 8use Data::ObjectDriver::Driver::DBI; 9 10__PACKAGE__->install_properties({ 11 columns => [ 'recipe_id', 'title' ], 12 datasource => 'recipes', 13 primary_key => 'recipe_id', 14 driver => Data::ObjectDriver::Driver::DBI->new( 15 dsn => DodTestUtil::dsn('global'), 16 reuse_dbh => 1, 17 ), 18}); 19 201; 21