1 package DX::Op::ModifyAction;
4 use DX::ObservationRequired;
9 has vars => (is => 'ro', required => 1);
10 has builder => (is => 'ro', required => 1);
12 has _arg_map => (is => 'lazy', builder => sub {
15 +{ map +($name++, $_), @{$self->vars} };
19 my ($self, $state) = @_;
20 ($state, my %args) = $self->_expand_args($state, %{$self->_arg_map});
21 my ($subject, @vars) = @args{sort keys %args};
22 my $subject_fact = $state->resolve_value($subject);
23 die "Subject not a fact" unless $subject_fact->$_does('DX::Role::Fact');
24 die "Subject has no action" unless $subject_fact->has_required_action;
25 my $orig_action = $state->actions->{$subject_fact->required_action};
26 my @deps = $state->action_dependencies(
27 @{$orig_action->dependencies},
32 map $state->resolve_value($_), @vars
34 my $action = $self->builder->(@builder_args)
35 ->but(dependencies => \@deps);
36 my ($fact_type, $value) = $action->expected_effect;
37 my $final_value = $value->but(required_action => $action->id);
38 my $fact_set = $state->facts->{$fact_type}->with_value($final_value);
40 facts => { %{$state->facts}, $fact_type => $fact_set },
41 actions => { %{$state->actions}, $action->id => $action },