Commit | Line | Data |
2c467394 |
1 | package DX::Op::ModifyAction; |
2 | |
577a2146 |
3 | use Safe::Isa; |
2c467394 |
4 | use DX::ObservationRequired; |
5 | use Moo; |
6 | |
7 | with 'DX::Role::Op'; |
8 | |
9 | has vars => (is => 'ro', required => 1); |
10 | has builder => (is => 'ro', required => 1); |
11 | |
12 | has _arg_map => (is => 'lazy', builder => sub { |
13 | my ($self) = @_; |
14 | my $name = 'arg0'; |
15 | +{ map +($name++, $_), @{$self->vars} }; |
16 | }); |
17 | |
18 | sub run { |
19 | my ($self, $state) = @_; |
20 | ($state, my %args) = $self->_expand_args($state, %{$self->_arg_map}); |
21 | my ($subject, @vars) = @args{sort keys %args}; |
577a2146 |
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}; |
2c467394 |
26 | my @deps = $state->action_dependencies( |
27 | @{$orig_action->dependencies}, |
28 | map $_->id, @vars |
29 | ); |
30 | my @builder_args = ( |
31 | $orig_action, |
32 | map $state->resolve_value($_), @vars |
33 | ); |
34 | my $action = $self->builder->(@builder_args) |
35 | ->but(dependencies => \@deps); |
36 | my ($fact_type, $value) = $action->expected_effect; |
577a2146 |
37 | my $final_value = $value->but(required_action => $action->id); |
2c467394 |
38 | my $fact_set = $state->facts->{$fact_type}->with_value($final_value); |
577a2146 |
39 | $state->but( |
40 | facts => { %{$state->facts}, $fact_type => $fact_set }, |
41 | actions => { %{$state->actions}, $action->id => $action }, |
42 | ) |
2c467394 |
43 | ->then($self->next); |
44 | } |
45 | |
46 | 1; |