Fix remaining linter errors
This commit is contained in:
parent
6399354b80
commit
1f6225e506
9 changed files with 28 additions and 18 deletions
|
@ -34,3 +34,5 @@ __PACKAGE__->set_primary_key("id");
|
|||
|
||||
__PACKAGE__->belongs_to( "entity", "Pear::LocalLoop::Schema::Result::Entity",
|
||||
"entity_id", );
|
||||
|
||||
1;
|
||||
|
|
|
@ -5,7 +5,9 @@ use warnings;
|
|||
|
||||
use base 'DBIx::Class::ResultSet';
|
||||
|
||||
## no critic (Subroutines::RequireArgUnpacking)
|
||||
sub sales { return shift->search_related( 'sales', @_ ) }
|
||||
## use critic
|
||||
|
||||
sub create_org {
|
||||
my ( $self, $org ) = @_;
|
||||
|
@ -16,8 +18,6 @@ sub create_org {
|
|||
type => 'organisation',
|
||||
}
|
||||
);
|
||||
|
||||
return 1;
|
||||
}
|
||||
|
||||
1;
|
||||
|
|
|
@ -39,9 +39,9 @@ sub _unordered_get_values {
|
|||
}
|
||||
|
||||
sub get_users {
|
||||
my $self = shift;
|
||||
my ($self, $set_id) = @_;
|
||||
|
||||
return $self->_unordered_get_values(@_)->search(
|
||||
return $self->_unordered_get_values($set_id)->search(
|
||||
{},
|
||||
{
|
||||
group_by => 'user_name',
|
||||
|
@ -51,9 +51,9 @@ sub get_users {
|
|||
}
|
||||
|
||||
sub get_orgs {
|
||||
my $self = shift;
|
||||
my ( $self, $set_id ) = shift;
|
||||
|
||||
return $self->_unordered_get_values(@_)->search(
|
||||
return $self->_unordered_get_values($set_id)->search(
|
||||
{},
|
||||
{
|
||||
group_by => 'org_name',
|
||||
|
|
|
@ -5,6 +5,8 @@ use warnings;
|
|||
|
||||
use base 'DBIx::Class::ResultSet';
|
||||
|
||||
## no critic (Subroutines::RequireArgUnpacking)
|
||||
sub entity { return shift->search_related( 'entity', @_ ) }
|
||||
## use critic
|
||||
|
||||
1;
|
||||
|
|
Reference in a new issue