1package User;
2use strict;
3use base qw( Data::ObjectDriver::BaseObject );
4use DodTestUtil;
5
6use Data::ObjectDriver::Driver::DBI;
7
8our $LAST_ID = 0;
9__PACKAGE__->install_properties({
10    columns => [ qw/
11        user_id
12        first_name
13        last_name
14        address1
15        address2
16        email
17        hair_color
18        eyes_color
19        timezone
20        language1
21        language2
22        language3
23        language4
24        language5
25        language6
26        SSN
27        TIN
28        PIN
29        city
30    /],
31    datasource => 'user',
32    primary_key => 'user_id',
33    driver => Data::ObjectDriver::Driver::DBI->new(
34        dsn      => DodTestUtil::dsn('global'),
35        reuse_dbh => 1,
36    ),
37    genereate_pk => sub { ++$LAST_ID },
38});
39
401;
41