# $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;
syntax highlighted by Code2HTML, v. 0.9.1