with 'DX::Role::ActionBuilder';
-sub target_path { [ 'N/A' ] }
+has target_path => (is => 'ro');
sub can_set_value { 0 }
sub action_for_remove_member { undef }
-sub specialize_for_member { $_[0] }
+sub specialize_for_member {
+ my ($self, $at) = @_;
+ return $self unless ref($self);
+ return $self unless my $path = $self->target_path;
+ return $self->but(
+ target_path => [ @{$self->target_path}, $at ]
+ );
+}
+
+sub apply_to_value {
+ my ($self, $value) = @_;
+ my $new_value = $value->but_set_action_builder($self)
+ ->but_set_identity_path($self->target_path);
+ return $new_value unless $new_value->isa('DX::Value::Dict');
+ my %m = %{$new_value->members};
+ return $new_value->but(
+ members => {
+ map +($_ => $self->specialize_for_member($_)->apply_to_value($m{$_})),
+ keys %m,
+ },
+ );
+}
1;