lib: replace shift by @_

This commit is contained in:
Milan
2023-05-18 11:17:14 +02:00
parent 611fad43d4
commit 3a1a118eeb
26 changed files with 184 additions and 390 deletions

View File

@@ -17,8 +17,7 @@ use db;
use auth;
sub get_columns ($) {
my $config = shift;
my ($config) = @_;
my $dbh = db::connect($config);
return db::get_columns_hash( $dbh, 'calcms_password_requests' );
}
@@ -56,8 +55,7 @@ sub get ($$) {
}
sub update($$) {
my $config = shift;
my $entry = shift;
my ($config, $entry) = @_;
return unless defined $entry->{user};
@@ -76,8 +74,7 @@ sub update($$) {
}
sub insert ($$) {
my $config = shift;
my $entry = shift;
my ($config, $entry) = @_;
return undef unless defined $entry->{user};
@@ -117,8 +114,7 @@ sub delete ($$) {
}
sub sendToken ($$) {
my $config = shift;
my $entry = shift;
my ($config, $entry) = @_;
return undef unless defined $entry->{user};