lib: replace shift by @_

lib/calcms/user_settings.pm

@@ -132,7 +132,7 @@ sub getColorCss ($$) {
 }
 
 sub get_columns($) {
-    my $config = shift;
+    my ($config) = @_;
 
     my $dbh = db::connect($config);
     return db::get_columns_hash( $dbh, 'calcms_user_settings' );
@@ -166,8 +166,7 @@ sub get ($$) {
 }
 
 sub insert ($$) {
-    my $config = shift;
-    my $entry  = shift;
+    my ($config, $entry) = @_;
 
     return unless defined $entry->{user};
    
@@ -176,8 +175,7 @@ sub insert ($$) {
 }
 
 sub update($$) {
-    my $config = shift;
-    my $entry  = shift;
+    my ($config, $entry) = @_;
 
     return unless ( defined $entry->{user} );
 
@@ -198,8 +196,7 @@ sub update($$) {
 }
 
 sub delete ($$) {
-    my $config = shift;
-    my $entry  = shift;
+    my ($config, $entry) = @_;
 
     return unless ( defined $entry->{user} );