t/lib/DBICTest/Schema/SequenceTest.pm

   1 package # hide from PAUSE
   2     DBICTest::Schema::SequenceTest;
   3
   4 use warnings;
   5 use strict;
   6
   7 use base qw/DBICTest::BaseResult/;
   8
   9 __PACKAGE__->table('sequence_test');
  10 __PACKAGE__->source_info({
  11     "source_info_key_A" => "source_info_value_A",
  12     "source_info_key_B" => "source_info_value_B",
  13     "source_info_key_C" => "source_info_value_C",
  14     "source_info_key_D" => "source_info_value_D",
  15 });
  16 __PACKAGE__->add_columns(
  17   'pkid1' => {
  18     data_type => 'integer',
  19     auto_nextval => 1,
  20     sequence => \'"pkid1_seq"',
  21   },
  22   'pkid2' => {
  23     data_type => 'integer',
  24     auto_nextval => 1,
  25     sequence => \'pkid2_seq',
  26   },
  27   'nonpkid' => {
  28     data_type => 'integer',
  29     auto_nextval => 1,
  30     sequence => 'nonpkid_seq',
  31   },
  32   'name' => {
  33     data_type => 'varchar',
  34     size      => 100,
  35     is_nullable => 1,
  36   },
  37 );
  38 __PACKAGE__->set_primary_key('pkid1', 'pkid2');
  39
  40 1;