lib/DX/Role/SimpleAction.pm

   1 package DX::Role::SimpleAction;
   2
   3 use DX::Role;
   4
   5 with 'DX::Role::Action';
   6
   7 has target_path => (is => 'ro', required => 1);
   8
   9 has _updates => (is => 'lazy');
  10
  11 requires '_build__updates';
  12
  13 sub dry_run {
  14   my ($self, $hyp) = @_;
  15   my ($scope, @events) = $hyp->scope->apply_updates($self->_updates);
  16   return (
  17     $hyp->but(
  18       scope => $scope,
  19       actions => [ @{$hyp->actions}, $self ],
  20     ),
  21     @events
  22   );
  23 }
  24
  25 sub run { shift->updates }
  26
  27 1;