use strict; package TrsrDB::Credit; use base qw/DBIx::Class::Core/; __PACKAGE__->table('Credit'); __PACKAGE__->add_column("credId" => { data_type => 'INTEGER' }); __PACKAGE__->add_column("account"); __PACKAGE__->add_column("date" => { data_type => 'DATE' }); __PACKAGE__->add_column("purpose"); __PACKAGE__->add_column("value" => { data_type => 'INTEGER' }); __PACKAGE__->add_column("spent" => { data_type => 'INTEGER', default => 0 }); __PACKAGE__->set_primary_key("credId"); __PACKAGE__->belongs_to( account => 'TrsrDB::Account', { 'foreign.ID' => 'self.account' } ); __PACKAGE__->has_many( outgoings => 'TrsrDB::Transfer', 'credId' ); __PACKAGE__->has_many( income => 'TrsrDB::Debit', { 'foreign.targetCredit' => 'self.credId' } ); __PACKAGE__->many_to_many( paid_bills => 'outgoings' => 'debit' ); 1;