X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FApp%2FClifton%2FSet.pm;h=a6e613c9af8ef07a890a196bb2c45485a32d95ed;hb=3b5393442399a78f1fddb61c492eaa523c67e8fc;hp=2bbf86097d38ff64201979f69a5c24934c56b13f;hpb=38180dc82ce612829b2c52d661e515fe60ac0f1d;p=scpubgit%2FClifton.git

diff --git a/lib/App/Clifton/Set.pm b/lib/App/Clifton/Set.pm
index 2bbf860..a6e613c 100644
--- 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;