1 package DX::ActionBuilder::Normal;
3 use DX::Action::SetValue;
4 use DX::Action::AddValue;
7 with 'DX::Role::ActionBuilder';
9 has target_path => (is => 'ro', required => 1);
11 sub action_for_set_value {
12 my ($self, $value) = @_;
13 DX::Action::SetValue->new(
14 target_path => $self->target_path,
15 new_value => $value->but_set_action_builder($self)
16 ->but_set_identity_path($self->target_path)
20 sub action_for_add_member {
21 my ($self, $at, $value) = @_;
22 my @add_path = (@{$self->target_path}, ref($at) ? $at->string_value : $at);
23 DX::Action::AddValue->new(
24 target_path => \@add_path,
25 new_value => $value->but_set_action_builder(
26 $self->but(target_path => \@add_path)
27 )->but_set_identity_path(\@add_path)
31 sub action_for_remove_member { die 'WHUT' }