Add explicit returns

This commit is contained in:
Rumperuu 2021-03-20 15:02:00 +00:00
parent ee7fe2c7b4
commit c5c074903d
44 changed files with 191 additions and 11 deletions

View file

@ -5,7 +5,7 @@ use warnings;
use base 'DBIx::Class::ResultSet';
sub sales { shift->search_related( 'sales', @_ ) }
sub sales { return shift->search_related( 'sales', @_ ) }
sub create_org {
my ( $self, $org ) = @_;
@ -16,6 +16,8 @@ sub create_org {
type => 'organisation',
}
);
return 1;
}
1;

View file

@ -92,6 +92,8 @@ sub recalculate_all {
warn "Unrecognised Set";
}
}
return 1;
}
sub _recalculate_leaderboard {
@ -105,6 +107,8 @@ sub _recalculate_leaderboard {
$lb_result->create_new($date);
}
);
return 1;
}
1;

View file

@ -5,6 +5,6 @@ use warnings;
use base 'DBIx::Class::ResultSet';
sub entity { shift->search_related( 'entity', @_ ) }
sub entity { return shift->search_related( 'entity', @_ ) }
1;