[scpubgit/DKit.git] / lib / DX / Lib / FS / Action / SetPathMode.pm

package DX::Lib::FS::Action::SetPathMode;

use Moo;

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

with 'DX::Role::Action';
with 'DX::Lib::FS::Role::RunOn';

sub expected_effect {
  my ($self) = @_;
  my $ps = $self->path_status;
  +(path_status => $ps->but(info => $ps->info->but(mode => $self->mode)));
}

sub _do_run {
  my ($self) = @_;
  $self->_call_guts(set_path_mode => $self->mode);
  +(path_status => $self->path);
}

1;
Commit	Line	Data
ae75ed8b	1	package DX::Lib::FS::Action::SetPathMode;
	2
	3	use Moo;
	4
	5	has path_status => (is => 'ro', required => 1);
	6	has mode => (is => 'ro', required => 1);
	7
	8	with 'DX::Role::Action';
9854aea0	9	with 'DX::Lib::FS::Role::RunOn';
ae75ed8b	10
	11	sub expected_effect {
	12	my ($self) = @_;
	13	my $ps = $self->path_status;
	14	+(path_status => $ps->but(info => $ps->info->but(mode => $self->mode)));
	15	}
	16
	17	sub _do_run {
	18	my ($self) = @_;
9854aea0	19	$self->_call_guts(set_path_mode => $self->mode);
0d1a41d9	20	+(path_status => $self->path);
ae75ed8b	21	}
	22
	23	1;