treasuredb/TrsrDB/History.pm

use strict;

package TrsrDB::History;
use base qw/DBIx::Class::Core/;

__PACKAGE__->table('History');
__PACKAGE__->add_columns(qw/date purpose account credId credit debit contra billId note/);

__PACKAGE__->belongs_to(
   account => 'TrsrDB::Account',
   { 'foreign.ID' => 'self.account' }
);

__PACKAGE__->belongs_to(
   this_credit => 'TrsrDB::Credit',
   { 'foreign.credId' => 'self.credId' }
);

__PACKAGE__->belongs_to(
   that_credit => 'TrsrDB::Credit',
   { 'foreign.credId' => 'self.contra' }
);

1;