env dir code

[scpubgit/DKit.git] / lib / DX / Lib / FS / Observation / EnvDir.pm

diff --git a/lib/DX/Lib/FS/Observation/EnvDir.pm b/lib/DX/Lib/FS/Observation/EnvDir.pm
new file mode 100644 (file)
index 0000000..1f59003
--- /dev/null
+++ b/lib/DX/Lib/FS/Observation/EnvDir.pm
@@ -0,0 +1,18 @@
+package DX::Lib::FS::Observation::EnvDir;
+
+use DX::Lib::FS::Fact::EnvDir;
+use Moo;
+
+with 'DX::Lib::FS::Role::RunOn';
+
+has path => (is => 'ro', required => 1);
+
+sub run {
+  my ($self) = @_;
+  +(env_dir => DX::Lib::FS::Fact::EnvDir->new(
+    path => $self->path,
+    value => $self->_call_guts('env_dir')
+  ));
+}
+
+1;