Fix :delete adverb

1 files changed, 21 insertions, 0 deletions

diff --git a/lib/Config.pm6 b/lib/Config.pm6
index 91fafc2..a4bf3af 100644
--- a/lib/Config.pm6
+++ b/lib/Config.pm6
@@ -214,6 +214,27 @@ class Config is Associative is export
         self;
     }
 
+    multi method unset(Str $key)
+    {
+        self.unset($key.split(".").Array);
+    }
+
+    multi method unset(@parts)
+    {
+        my %index := $!content;
+        my $target = @parts.pop;
+
+        for @parts.list -> $part {
+            %index{$part} = {} unless defined(%index{$part});
+
+            %index := %index{$part};
+        }
+
+        %index{$target}:delete if %index{$target}:exists;
+
+        self;
+    }
+
     #| Write the current configuration to the given path. If
     #| no parser is given, it tries to use the parser that
     #| was used when loading the configuration.