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