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;