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
38
39
40
|
# $Id$
use strict;
use DodTestUtil;
package My::BaseObject;
use base qw/Data::ObjectDriver::BaseObject/;
sub install_properties {
my $this = shift;
my $props = $this->SUPER::install_properties(@_);
$this->install_column('rating');
return $props;
}
package Wine;
use base qw( My::BaseObject );
use Data::ObjectDriver::Driver::DBI;
__PACKAGE__->install_properties({
# rating is defined on the fly in My::BaseObject
columns => [ 'id', 'cluster_id', 'name', 'content', 'binchar'],
datasource => 'wines',
primary_key => 'id',
column_defs => { content => 'blob', binchar => 'binchar' },
driver => Data::ObjectDriver::Driver::DBI->new(
dsn => DodTestUtil::dsn('global'),
),
});
sub insert {
my $obj = shift;
## Choose a cluster for this recipe. This isn't a very solid way of
## doing this, but it works for testing.
$obj->cluster_id(int(rand 2) + 1);
$obj->SUPER::insert(@_);
}
#
1;
|
