20 lines
381 B
Perl
20 lines
381 B
Perl
use strict;
|
|
|
|
package TrsrDB::Category;
|
|
use base qw/DBIx::Class::Core/;
|
|
|
|
__PACKAGE__->table('Category');
|
|
__PACKAGE__->add_columns(qw/ID label/);
|
|
__PACKAGE__->set_primary_key('ID');
|
|
|
|
__PACKAGE__->has_many(
|
|
debits => 'TrsrDB::Debit',
|
|
{ 'foreign.category' => 'self.ID' }
|
|
);
|
|
__PACKAGE__->has_many(
|
|
credits => 'TrsrDB::Credit',
|
|
{ 'foreign.category' => 'self.ID' }
|
|
);
|
|
|
|
1;
|