treasuredb/TrsrDB/Account.pm

43 lines
1007 B
Perl
Raw Permalink Normal View History

2016-06-26 17:49:12 +02:00
use strict;
package TrsrDB::Account;
use base qw/DBIx::Class::Core/;
__PACKAGE__->table('Account');
__PACKAGE__->add_columns(qw/ID name type altId IBAN/);
2016-06-26 17:49:12 +02:00
__PACKAGE__->set_primary_key('ID');
__PACKAGE__->has_many(
statement_rows => 'TrsrDB::ReconstructedBankStatement',
{ 'foreign.account' => 'self.ID' }
);
__PACKAGE__->has_many(
debits => 'TrsrDB::Debit',
2016-06-26 17:49:12 +02:00
{ 'foreign.debtor' => 'self.ID' }
);
__PACKAGE__->has_many(
current_arrears => 'TrsrDB::CurrentArrears',
2016-06-26 17:49:12 +02:00
{ 'foreign.debtor' => 'self.ID' }
);
__PACKAGE__->has_many(
credits => 'TrsrDB::Credit',
{ 'foreign.account' => 'self.ID' }
);
__PACKAGE__->has_many(
available_credits => 'TrsrDB::AvailableCredits',
{ 'foreign.account' => 'self.ID' }
);
__PACKAGE__->has_one(
balance => 'TrsrDB::Balance', 'ID'
);
__PACKAGE__->has_many(
history => 'TrsrDB::History',
{ 'foreign.account' => 'self.ID' }
);
__PACKAGE__->has_many(
report => 'TrsrDB::Report',
{ 'foreign.account' => 'self.ID' }
);
2016-06-26 17:49:12 +02:00
1;