Commands: add(): improve named-parameter validation

lib/PBot/Core/Commands.pm

@@ -39,18 +39,30 @@ sub load_commands {
 sub add {
     my ($self, %args) = @_;
 
-    $self->register(
-        delete $args{subref},
-        delete $args{name},
-        delete $args{requires_cap},
-        delete $args{help},
-    );
+    # expected parameters
+    my @valid = qw(subref name requires_cap help);
 
-    # die if any unhandled arguments were passed
+    # check for unexpected parameters
+    my @invalid;
     foreach my $key (keys %args) {
-        $self->{pbot}->{logger}->log("Commands: error: extra arguments provided to add(): $key\n");
-        die;
+        if (not grep { $_ eq $key } @valid) {
+            push @invalid, $key;
+        }
     }
+
+    # die if any unexpected parameters were passed
+    if (@invalid) {
+        $self->{pbot}->{logger}->log("Commands: error: invalid arguments provided to add(): @invalid\n");
+        die "Commands: error: invalid arguments provided to add(): @invalid";
+    }
+
+    # register command
+    $self->register(
+        $args{subref},
+        $args{name},
+        $args{requires_cap},
+        $args{help},
+    );
 }
 
 # alias to unregister() for consistency

lib/PBot/VERSION.pm

@@ -25,8 +25,8 @@ use PBot::Imports;
 # These are set by the /misc/update_version script
 use constant {
     BUILD_NAME     => "PBot",
-    BUILD_REVISION => 4329,
-    BUILD_DATE     => "2021-07-30",
+    BUILD_REVISION => 4331,
+    BUILD_DATE     => "2021-07-31",
 };
 
 sub initialize {}