lib/DBIx/Class/Schema/Journal/DB/AuditLog.pm

   1 package DBIx::Class::Schema::Journal::DB::AuditLog;
   2
   3 use base 'DBIx::Class::Core';
   4
   5 sub journal_define_table {
   6     my ( $class, $source, $schema_class ) = @_;
   7
   8     $class->table($source->name . '_audit_log');
   9
  10     $class->add_columns(
  11         create_id => {
  12             data_type => 'integer',
  13             is_nullable => 0,
  14             is_foreign_key => 1,
  15         },
  16         delete_id => {
  17             data_type => 'integer',
  18             is_nullable => 1,
  19             is_foreign_key => 1,
  20         }
  21     );
  22
  23     foreach my $column ( $source->primary_columns ) {
  24         $class->add_column( $column => { %{ $source->column_info($column) } } );
  25     }
  26
  27     $class->set_primary_key( $source->primary_columns );
  28
  29     $class->belongs_to(created => "${schema_class}::ChangeLog", 'create_id');
  30     $class->belongs_to(deleted => "${schema_class}::ChangeLog", 'delete_id');
  31 }
  32
  33 1;