X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDX%2FSolver.pm;h=2042a103d6cb779950e52970e9bee645bfcc090b;hb=e7117efc279502d901d5058abd17110ffb1554b7;hp=e94e05079173f410f20af60eba1f33abc17c5a78;hpb=deec7cc438aebbe1d3488f24f0c368821e0993ba;p=scpubgit%2FDKit.git

diff --git a/lib/DX/Solver.pm b/lib/DX/Solver.pm
index e94e050..2042a10 100644
--- a/lib/DX/Solver.pm
+++ b/lib/DX/Solver.pm
@@ -36,4 +36,12 @@ sub query {
   );
 }
 
+sub run_action {
+  my ($self, $action) = @_;
+  my @invalidate = $action->run;
+  while (my ($type, $value) = splice @invalidate, 0, 2) {
+    $self->facts->{$type}->remove_value($value);
+  }
+}
+
 1;