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
|
# $Id$
package Ingredient;
use strict;
use base qw( Data::ObjectDriver::BaseObject );
use DodTestUtil;
use Carp ();
use Data::ObjectDriver::Driver::DBI;
use Data::ObjectDriver::Driver::Cache::RAM;
our %IDs;
__PACKAGE__->install_properties({
columns => [ 'id', 'recipe_id', 'name', 'quantity' ],
datasource => 'ingredients',
primary_key => [ 'recipe_id', 'id' ],
driver => Data::ObjectDriver::Driver::Cache::RAM->new(
fallback => Data::ObjectDriver::Driver::DBI->new(
dsn => DodTestUtil::dsn('global'),
pk_generator => \&generate_pk,
reuse_dbh => 1,
),
pk_generator => \&generate_pk,
),
});
sub generate_pk {
my($obj) = @_;
$obj->id(++$IDs{$obj->recipe_id});
1;
}
1;
|
