Add settings for current_user/session/changeset, overload insert()

[dbsrgits/DBIx-Class-Journal.git] / lib / DBIx / Class / Journal.pm

package DBIx::Class::Journal;

use base qw/DBIx::Class/;

## On create/insert, add new entry to AuditLog

sub new
{
    my ($class, $attrs, @rest) = @_;

    $class->result_source->schema->_journal_schema->current_user(delete $attrs->{user_id});

    $self->next::method($attrs, @rest);
}

sub insert
{
    my ($self) = @_;

    ## create new transaction here?
    $self->next::method();
    if($self->in_storage)
    {
        my $s_name = $self->result_source_instance->name();
        my $al = $self->result_source->schema->_journal_schema->resultset("${s_name}AuditLog");
        $al->create({
            changeset => $self->result_source->schema->_journal_schema->current_changeset(),
        });
}

## On delete, update delete_id of AuditLog

## On update, copy previous row's contents to AuditHistory



1;