lib/DBIx/Class/Schema/Journal/DB/ChangeSet.pm

   1 package DBIx::Class::Schema::Journal::DB::ChangeSet;
   2
   3 use base 'DBIx::Class::Core';
   4
   5 sub journal_define_table {
   6     my ( $class, $schema_class, $prefix ) = @_;
   7
   8     $class->load_components(qw/InflateColumn::DateTime/);
   9     $class->table($prefix . 'changeset');
  10
  11     $class->add_columns(
  12       ID => {
  13          data_type => 'integer',
  14          is_auto_increment => 1,
  15          is_primary_key => 1,
  16          is_nullable => 0,
  17       },
  18       user_id => {
  19          data_type => 'integer',
  20          is_nullable => 1,
  21          is_foreign_key => 1,
  22       },
  23       set_date => {
  24          data_type => 'timestamp',
  25          is_nullable => 0,
  26       },
  27       session_id => {
  28          data_type => 'varchar',
  29          size => 255,
  30          is_nullable => 1,
  31       },
  32     );
  33
  34     $class->set_primary_key('ID');
  35 }
  36
  37 sub new {
  38     my $self = shift->next::method(@_);
  39     # I think we should not do the following and
  40     # instead use DBIx::Class::TimeStamp.  If I
  41     # can think of a good way (passing a version on
  42     # import?) to do it and retain backcompat I will.
  43     #
  44     # --fREW, 01-27-2010
  45     $self->set_date(scalar gmtime);
  46     return $self;
  47 }
  48
  49 1;