Commits

Herbert Breunung committed 9e1e7ae

added env sniffer

Comments (0)

Files changed (1)

+use v5.12;
+use English;
+use File::HomeDir;
+use File::ShareDir ':ALL';
+
+my ($k, $v);
+say "Perl $]";
+say "OS $^O";
+say "home_dir: \t", File::HomeDir->my_home;
+say "home_data: \t", File::HomeDir->my_data;
+say "home_data_kephra: \t", File::HomeDir->my_dist_data('Kephra');
+say "home_config: \t", File::HomeDir->my_dist_config('Kephra');
+say "dist_dir: \t", dist_dir('Kephra');
+#say "module_dir: \t", module_dir('Kephra');
+say "$k: \t\t $v" while ($k, $v) = each %ENV;
+say "$k: \t\t $v" while ($k, $v) = each %INC;