Fix acmeman --setup

* acmeman: Unset core.source for setup
* lib/App/Acmeman/Config.pm (unset): New function.

1 files changed, 14 insertions, 0 deletions

diff --git a/lib/App/Acmeman/Config.pm b/lib/App/Acmeman/Config.pm
index f566cb7..99b6aec 100644
--- a/lib/App/Acmeman/Config.pm
+++ b/lib/App/Acmeman/Config.pm
@@ -315,6 +315,20 @@ sub isset {
     return defined $self->_getref(@_);
 }
 
+sub unset {
+    my $self = shift;
+    my $last = pop;
+
+    return unless exists $self->{_conf};
+    my $ref = $self->{_conf};
+    for (@_) {
+        carp "component undefined" unless defined $_;
+        return unless exists $ref->{$_};
+        $ref = $ref->{$_};
+    }
+    delete $ref->{$last};
+}
+
 sub set {
     my $self = shift;
     $self->{_conf} = {} unless exists $self->{_conf};