Updating the context with an 'undef' value removes the parameter from…

… the context
perl-workflow · Aug 6, 2023 · 42241de · 42241de
1 parent bead05e
commit 42241de
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/lib/Workflow/Base.pm b/lib/Workflow/Base.pm
@@ -38,7 +38,12 @@ sub param {
 
     if ( ref $name eq 'HASH' ) {
         foreach my $param_name ( keys %{$name} ) {
-            $self->{PARAMS}{$param_name} = $name->{$param_name};
+            if (defined $name->{$param_name}) {
+                $self->{PARAMS}{$param_name} = $name->{$param_name};
+            }
+            else {
+                delete $self->{PARAMS}->{$param_name};
+            }
         }
         return { %{ $self->{PARAMS} } };
     }