1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
|
# $Id$
package Ingredient2Recipe;
use strict;
use base qw( Data::ObjectDriver::BaseObject );
use DodTestUtil;
use Data::ObjectDriver::Driver::DBI;
use Data::ObjectDriver::Driver::Multiplexer;
my $global1_driver = Data::ObjectDriver::Driver::DBI->new(
dsn => DodTestUtil::dsn('global1'),
);
my $global2_driver = Data::ObjectDriver::Driver::DBI->new(
dsn => DodTestUtil::dsn('global2'),
);
__PACKAGE__->install_properties({
columns => [ 'recipe_id', 'ingredient_id', "value1" ],
datasource => 'ingredient2recipe',
primary_key => 'recipe_id', ## should match lookup XXX could we auto generate it ?
driver => Data::ObjectDriver::Driver::Multiplexer->new(
## Send searches by recipe_id to $global1_driver, and
## searches by ingredient_id to $global2_driver.
on_search => {
recipe_id => $global1_driver,
ingredient_id => $global2_driver,
},
on_lookup => $global1_driver,
drivers => [ $global1_driver, $global2_driver ],
),
});
1;
|
