rewrite deparse system

[scpubgit/DX.git] / lib / DX / Role / SimpleAction.pm

package DX::Role::SimpleAction;

use DX::Role;

with 'DX::Role::Action';

has target_path => (is => 'ro', required => 1);

has _updates => (is => 'lazy');

requires '_build__updates';

sub for_deparse {
  my ($self) = @_;
  [ statement => [
    [ symbol => (split('::',ref($self)))[-1] ],
    [ value_path => $self->target_path ],
    $self->new_value,
  ] ];
}

sub dry_run {
  my ($self, $hyp) = @_;
  my ($scope, @events) = $hyp->scope->apply_updates($self->_updates);
  return (
    $hyp->but(
      scope => $scope,
      actions => [ @{$hyp->actions}, $self ],
      action_applications => [ @{$hyp->action_applications}, $self ],
    ),
    @events
  );
}

sub run { shift->updates }

1;