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

   1 package DBIx::Class::Schema::Journal::DB::AuditHistory;
   2
   3 use base 'DBIx::Class::Schema::Journal::DB::Base';
   4
   5 __PACKAGE__->add_columns(
   6                            change_id => {
   7                                data_type => 'integer',
   8                                is_nullable => 0,
   9                            });
  10 __PACKAGE__->belongs_to('change', 'DBIx::Class::Schema::Journal::DB::Change', 'change_id');
  11
  12 sub new
  13 {
  14     my ($self, $data, @rest) = @_;
  15
  16     $data->{change} = {
  17         changeset_id => $self->result_source->schema->_journal_schema->current_changeset,
  18     };
  19
  20     $self->next::method($data, @rest);
  21 }
  22
  23 1;