Add some tests... or so

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

package DBIx::Class::Schema::Journal::DB::AuditHistory;

use base 'DBIx::Class::Schema::Journal::DB::Base';

__PACKAGE__->add_columns(
                           change_id => {
                               data_type => 'integer',
                               is_nullable => 0,
                           });
__PACKAGE__->belongs_to('change', 'DBIx::Class::Schema::Journal::DB::Change', 'change_id');

sub new
{
    my ($self, $data, @rest) = @_;

    $data->{change} = {
        changeset_id => $self->result_source->schema->_journal_schema->current_changeset,
    };

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

1;