use aliased 'DX::Lib::FS::Fact::PathStatus';
use aliased 'DX::Lib::FS::Fact::PathStatusInfo';
+use DX::Lib::FS::Guts;
use Moo;
with 'DX::Role::Action';
sub _do_run {
my ($self) = @_;
- if ($self->has_mode) {
- my $umask = umask(0000);
- mkdir($self->path, oct($self->mode))
- or do { umask($umask); die "Couldn't mkdir ${\$self->path}: $!" };
- umask($umask);
- } else {
- mkdir($self->path) or die "Couldn't mkdir ${\$self->path}: $!";
- }
- +(path_status => PathStatus->new(path => $self->path));
+ DX::Lib::FS::Guts->create_directory($self->path, $self->mode);
+ +(path_status => $self->path);
}
1;