move actions to a separate state attribute

[scpubgit/DKit.git] / lib / DX / RuleSet.pm

diff --git a/lib/DX/RuleSet.pm b/lib/DX/RuleSet.pm
index baa9586..1559d49 100644 (file)
--- 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;