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