From cebcb4208ded8078bf5e74fb93e01b8bfa37541d Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Andrej=20Rama=C5=A1euski?= <andrej@x2.cz>
Date: Wed, 14 Apr 2021 01:04:14 +0200
Subject: [PATCH] signatures
---
lib/CF/Schema/Result/User.pm | 14 +++++---------
1 file changed, 5 insertions(+), 9 deletions(-)
diff --git a/lib/CF/Schema/Result/User.pm b/lib/CF/Schema/Result/User.pm
index 0f81aa6..aa043cd 100644
--- a/lib/CF/Schema/Result/User.pm
+++ b/lib/CF/Schema/Result/User.pm
@@ -2,6 +2,8 @@ package CF::Schema::Result::User;
use strict;
use warnings;
+use feature 'signatures';
+no warnings qw{ experimental::signatures };
use base 'DBIx::Class::Core';
@@ -43,8 +45,7 @@ __PACKAGE__->has_many(
{ 'foreign.user_id' => 'self.id', },
);
-sub formatted {
- my $self = shift;
+sub formatted($self) {
my $user = {
$self->get_columns,
@@ -56,9 +57,7 @@ sub formatted {
}
-sub set_secret {
- my $self = shift;
- my $new = shift;
+sub set_secret($self, $new='') {
return if $self->secret and not $new;
@@ -70,10 +69,7 @@ sub set_secret {
}
-sub update_roles {
- my $self = shift;
- my $roles_hash = shift;
-
+sub update_roles ($self, $roles_hash) {
$self->update({
roles => join ' ', sort keys %{ $roles_hash }
});
--
GitLab