Dogcows Code - chaz/p5-DBIx-Class-ResultSet-RecursiveUpdate/blob - t/lib/DBICTest/Schema/SequenceTest.pm

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