1 package DBIx::Class::Schema::Journal::DB::AuditHistory;
3 use base 'DBIx::Class';
5 sub journal_define_table {
6 my ( $class, $source ) = @_;
8 $class->load_components(qw(Core));
10 $class->table($source->name . "_audit_history");
14 data_type => 'integer',
17 is_auto_increment => 1,
20 data_type => 'integer',
26 $class->set_primary_key("audit_history_id");
28 foreach my $column ( $source->columns ) {
29 my $info = $source->column_info($column);
31 my %hist_info = %$info;
33 delete $hist_info{$_} for qw(
40 $hist_info{is_nullable} = 1;
42 $class->add_column($column => \%hist_info);
45 $class->belongs_to('change', 'DBIx::Class::Schema::Journal::DB::ChangeLog', 'audit_change_id');