surprise! Object::Remote!

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

diff --git a/lib/DX/Lib/FS/Action/CreateDirectory.pm b/lib/DX/Lib/FS/Action/CreateDirectory.pm
index 5c8346b..cd90de1 100644 (file)
--- a/lib/DX/Lib/FS/Action/CreateDirectory.pm
+++ b/lib/DX/Lib/FS/Action/CreateDirectory.pm
@@ -2,10 +2,10 @@ package DX::Lib::FS::Action::CreateDirectory;
 
 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';
+with 'DX::Lib::FS::Role::RunOn';
 
 has path => (is => 'ro', required => 1);
 
@@ -24,7 +24,7 @@ sub expected_effect {
 
 sub _do_run {
   my ($self) = @_;
-  DX::Lib::FS::Guts->create_directory($self->path, $self->mode);
+  $self->_call_guts(create_directory => $self->mode);
   +(path_status => $self->path);
 }