t/lib/MySchema/FooCompat.pm

   1 package MySchema::FooCompat;
   2
   3 use strict;
   4 use warnings;
   5
   6 use base qw( DBIx::Class );
   7
   8 __PACKAGE__->load_components( qw( DateTime::Epoch Core ) );
   9 __PACKAGE__->table( 'foo_compat' );
  10 __PACKAGE__->add_columns(
  11     id => {
  12         data_type         => 'bigint',
  13         is_auto_increment => 1,
  14         is_nullable       => 0,
  15     },
  16     name => {
  17         data_type   => 'varchar',
  18         size        => 10,
  19         is_nullable => 1,
  20     },
  21     bar => { # epoch stored as an int
  22         data_type => 'bigint',
  23         epoch     => 1,
  24     },
  25     baz => { # epoch stored as a string
  26         data_type => 'varchar',
  27         size      => 50,
  28         epoch     => 1,
  29     },
  30     # working in conjunction with DBIx::Class::TimeStamp
  31     creation_time => {
  32         data_type => 'bigint',
  33         epoch     => 'ctime',
  34     },
  35     modification_time => {
  36         data_type => 'bigint',
  37         epoch     => 'mtime',
  38     }
  39 );
  40
  41 __PACKAGE__->set_primary_key( 'id' );
  42
  43 1;