lib/DX/ActionBuilder/UnsetValue.pm

   1 package DX::ActionBuilder::UnsetValue;
   2
   3 use DX::Action::SetValue;
   4 use DX::ActionBuilder::Normal;
   5 use DX::Class;
   6
   7 with 'DX::Role::ActionBuilder';
   8
   9 has target_path => (is => 'ro', required => 1);
  10
  11 sub action_for_set_value {
  12   my ($self, $value) = @_;
  13   if (0) { # value_path / identity_path test
  14     # bind value
  15   }
  16   my $ab = DX::ActionBuilder::Normal->new(
  17     target_path => $self->target_path,
  18   );
  19   DX::Action::SetValue->new(
  20     target_path => $self->target_path,
  21     new_value => $value->but_set_action_builder($ab),
  22   );
  23 }
  24
  25 1;