1 package DX::Op::CallRule;
11 has rule_name => (is => 'ro', required => 1);
12 has rule_args => (is => 'ro', required => 1);
13 has full_name => (is => 'lazy', builder => sub {
15 join('/', $self->rule_name, scalar @{$self->rule_args});
19 my ($self, $state) = @_;
20 #warn "Call: ".$self->full_name;
22 foreach my $arg (@{$self->rule_args}) {
23 ($state, my $expanded) = $self->_expand_argspec($state, $arg);
24 push @args, $expanded;
26 my @rules = @{$state->rule_set->rules->{$self->full_name}||[]};
27 die "No rules for ${\$self->full_name}" unless @rules;
28 my $var = DX::Var->new(id => "rule:".$self->full_name)
29 ->with_stream(DX::ArrayStream->from_array(@rules));
30 my $invoke = DX::Op::FromCode->new(
32 my ($self, $state) = @_;
33 my $call = $state->resolve_value($var)->but(args => \@args);
34 $state->but(scope => {})->then($call);
37 my $ret_op = DX::Op::SetScope->new(
38 scope => $state->scope, next => $self->next
40 $state->push_return_then($ret_op, $invoke)->mark_choice($var);