[scpubgit/DX.git] / lib / DX / Action / AddValue.pm

package DX::Action::AddValue;

use DX::Update::AddValue;
use DX::Class;

with 'DX::Role::SimpleAction';

has new_value => (is => 'ro', required => 1, isa => Value);

sub _build__updates {
  my ($self) = @_;
  [
    DX::Update::AddValue->new(
      target_path => $self->target_path,
      new_value => $self->new_value,
    )
  ]
}

1;
Commit	Line	Data
0498469a	1	package DX::Action::AddValue;
	2
	3	use DX::Update::AddValue;
	4	use DX::Class;
	5
	6	with 'DX::Role::SimpleAction';
	7
2548ce61	8	has new_value => (is => 'ro', required => 1, isa => Value);
0498469a	9
	10	sub _build__updates {
	11	my ($self) = @_;
2548ce61	12	[
	13	DX::Update::AddValue->new(
	14	target_path => $self->target_path,
	15	new_value => $self->new_value,
	16	)
	17	]
0498469a	18	}
	19
	20	1;