# $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', 'partition_id', 'title' ], datasource => 'recipes', primary_key => 'recipe_id', driver => Data::ObjectDriver::Driver::DBI->new( dsn => 'dbi:SQLite:dbname=global.db', ), }); __PACKAGE__->has_partitions( number => 2, get_driver => sub { return Data::ObjectDriver::Driver::DBI->new( dsn => 'dbi:SQLite:dbname=cluster' . shift() . '.db', @_, ), }, ); 1;