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; |