1 package DBIx::Class::Journal;
3 use base qw/DBIx::Class/;
5 ## On create/insert, add new entry to AuditLog
9 my ($class, $attrs, @rest) = @_;
11 $class->result_source->schema->_journal_schema->current_user(delete $attrs->{user_id});
13 $self->next::method($attrs, @rest);
20 ## create new transaction here?
21 $self->next::method();
24 my $s_name = $self->result_source_instance->name();
25 my $al = $self->result_source->schema->_journal_schema->resultset("${s_name}AuditLog");
27 changeset => $self->result_source->schema->_journal_schema->current_changeset(),
31 ## On delete, update delete_id of AuditLog
33 ## On update, copy previous row's contents to AuditHistory