# $Id: Recipe.pm 232 2006-08-05 23:27:32Z btrott $ package Recipe; use strict; use base qw( Data::ObjectDriver::BaseObject ); use Data::ObjectDriver::Driver::DBI; __PACKAGE__->install_properties({ columns => [ 'recipe_id', 'title' ], datasource => 'recipes', primary_key => 'recipe_id', driver => Data::ObjectDriver::Driver::DBI->new( dsn => 'dbi:SQLite:dbname=global.db', ), }); 1;