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 __PACKAGE__->table(__PACKAGE__->table);
   5
   6 __PACKAGE__->add_columns(
   7                            change_id => {
   8                                data_type => 'integer',
   9                                is_nullable => 0,
  10                            });
  11 __PACKAGE__->belongs_to('change', 'DBIx::Class::Schema::Journal::DB::ChangeLog', 'change_id');
  12
  13 sub new
  14 {
  15     my ($self, $data, @rest) = @_;
  16     my $source = $data->{-result_source};
  17
  18     $data->{change} = {
  19 #        ID => \'DEFAULT',
  20         changeset_id => $source->schema->current_changeset,
  21         %{$data->{change}||{}},
  22     };
  23
  24     $self->next::method($data, @rest);
  25 }
  26
  27 1;