env dir code

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

diff --git a/lib/DX/Lib/FS/Guts.pm b/lib/DX/Lib/FS/Guts.pm
index 994e648..29c3cd4 100644 (file)
--- a/lib/DX/Lib/FS/Guts.pm
+++ b/lib/DX/Lib/FS/Guts.pm
@@ -84,4 +84,10 @@ sub file_content {
   return $data;
 }
 
+sub env_dir {
+  my ($self, $key) = @_;
+  $key =~ s/^\.\///;
+  return $ENV{$key}|| die "${key} not set";
+}
+
 1;