/stop command

[scpubgit/Clifton.git] / lib / App / Clifton / Set.pm

diff --git a/lib/App/Clifton/Set.pm b/lib/App/Clifton/Set.pm
index 2bbf860..a6e613c 100644 (file)
--- a/lib/App/Clifton/Set.pm
+++ b/lib/App/Clifton/Set.pm
@@ -18,6 +18,11 @@ sub get {
   $self->_set->{$self->_spec_to_key($spec)};
 }
 
+sub remove {
+  my ($self, $spec) = @_;
+  delete $self->_set->{$self->_spec_to_key($spec)};
+}
+
 sub flatten {
   my ($self) = @_;
   my $set = $self->_set;