treasuredb/TrsrDB/Balance.pm

15 lines
268 B
Perl

use strict;
package TrsrDB::Balance;
use base qw/DBIx::Class::Core/;
__PACKAGE__->table("Balance");
__PACKAGE__->add_columns(qw/ID credit promised arrears/);
__PACKAGE__->set_primary_key("ID");
__PACKAGE__->belongs_to(
account => 'TrsrDB::Account', 'ID'
);
1;