1 package DX::Lib::FS::Action::CreateFile;
3 use aliased 'DX::Lib::FS::Fact::PathStatus';
4 use aliased 'DX::Lib::FS::Fact::PathStatusInfo';
7 with 'DX::Role::Action';
9 has path => (is => 'ro', required => 1);
13 return +(path_status => PathStatus->new(
15 info => PathStatusInfo->new(is_file => 1, mode => '')
21 open my $fh, '>>', $self->path or die "Couldn't create ${\$self->path}: $!";
22 +(path_status => PathStatus->new(path => $self->path));