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 # $class->next::method($attrs, @rest);
20 ## create new transaction here?
21 my $res = $self->next::method();
24 my $s_name = $self->result_source->source_name();
25 print STDERR "Schema: ", ref($self->result_source->schema), "\n";
26 my $al = $self->result_source->schema->_journal_schema->resultset("${s_name}AuditLog");
28 changeset => $self->result_source->schema->_journal_schema->current_changeset(),
35 ## On delete, update delete_id of AuditLog
37 ## On update, copy previous row's contents to AuditHistory