t/lib/DBICTest/Schema/ComputedColumn.pm

   1 package # hide from PAUSE
   2     DBICTest::Schema::ComputedColumn;
   3
   4 # for sybase and mssql computed column tests
   5
   6 use warnings;
   7 use strict;
   8
   9 use base qw/DBICTest::BaseResult/;
  10
  11 __PACKAGE__->table('computed_column_test');
  12
  13 __PACKAGE__->add_columns(
  14   'id' => {
  15     data_type => 'integer',
  16     is_auto_increment => 1,
  17   },
  18   'a_computed_column' => {
  19     data_type => undef,
  20     is_nullable => 0,
  21     default_value => \'getdate()',
  22   },
  23   'a_timestamp' => {
  24     data_type => 'timestamp',
  25     is_nullable => 0,
  26   },
  27   'charfield' => {
  28     data_type => 'varchar',
  29     size => 20,
  30     default_value => 'foo',
  31     is_nullable => 0,
  32   }
  33 );
  34
  35 __PACKAGE__->set_primary_key('id');
  36
  37 1;