23 lines
378 B
Perl
23 lines
378 B
Perl
package Pear::LocalLoop::Schema::ResultSet::Entity;
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use base 'DBIx::Class::ResultSet';
|
|
|
|
sub sales { return shift->search_related( 'sales', @_ ) }
|
|
|
|
sub create_org {
|
|
my ( $self, $org ) = @_;
|
|
|
|
return $self->create(
|
|
{
|
|
organisation => $org,
|
|
type => 'organisation',
|
|
}
|
|
);
|
|
|
|
return 1;
|
|
}
|
|
|
|
1;
|