Mercurial > hg > mhoward > dotfiles / file diff

new file mode 100644
--- /dev/null
+++ b/.lib/perl5/ReplyStartup.pm
@@ -0,0 +1,22 @@
+package ReplyStartup;
+
+sub import {
+  my $code = eval(<<END_PERL) or die $@;
+    package main;
+    sub {
+      warnings->import;
+      strict->import;
+      require feature; feature->import(':5.14');
+      require experimentals; experimentals->import;
+
+      use Path::Tiny;
+
+      -e \$_ && do(\$_) for "\$ENV{HOME}/.replyrc.local.pl";
+      die \$@ if \$@;
+    }
+END_PERL
+
+  $code->();
+}
+
+1;