X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDX%2FRuleSet.pm;h=1559d493677480fabc4459184031df1b732ef30e;hb=577a2146b78ad2f1703c4231c6a11c9b1ec9827c;hp=baa958674203529f1e1e9cf81ba03ccdcbe61e34;hpb=6d55e4c6f80e28a5523a7d3744162ed83ff828f3;p=scpubgit%2FDKit.git

diff --git a/lib/DX/RuleSet.pm b/lib/DX/RuleSet.pm
index baa9586..1559d49 100644
--- a/lib/DX/RuleSet.pm
+++ b/lib/DX/RuleSet.pm
@@ -16,6 +16,7 @@ use DX::Op::Materialize;
 use DX::Op::Prop;
 use DX::Op::Exists;
 use DX::Op::Predicate;
+use DX::Op::HasAction;
 use List::Util qw(reduce);
 
 has rules => (is => 'ro', default => sub { {} });
@@ -136,4 +137,9 @@ sub _expand_op_exists {
   );
 }
 
+sub _expand_op_has_action {
+  my ($self, @args) = @_;
+  DX::Op::HasAction->new(arg_spec => \@args);
+}
+
 1;