X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDX%2FSetOver.pm;h=45ca5ba319618be424dfc1638d7424db951e4f31;hb=71217e421021100f3b07945357bd2fdaac638c4b;hp=74090bdb74ccaaa93f62a51cf40b50339ebccaa6;hpb=5ef4d923edc14eadf67d64e92001f2f7bfa63986;p=scpubgit%2FDKit.git

diff --git a/lib/DX/SetOver.pm b/lib/DX/SetOver.pm
index 74090bd..45ca5ba 100644
--- a/lib/DX/SetOver.pm
+++ b/lib/DX/SetOver.pm
@@ -25,4 +25,10 @@ sub set_value {
   return $self;
 }
 
+sub remove_value {
+  my ($self, $value) = @_;
+  delete $self->values->{$value->${\$self->over}};
+  return $self;
+}
+
 1;