1 package DX::Lib::FS::Action::SetPathMode;
5 has path_status => (is => 'ro', required => 1);
6 has mode => (is => 'ro', required => 1);
8 with 'DX::Role::Action';
12 my $ps = $self->path_status;
13 +(path_status => $ps->but(info => $ps->info->but(mode => $self->mode)));
18 chmod oct($self->mode), $self->path_status->path
19 or die "Failed to chmod ${\$self->path_status->path} to ${\$self->mode}: $!";
20 +(path_status => $self->path_status);