Mercurial > hg > mhoward > dotfiles / changeset

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;

--- a/.replyrc
+++ b/.replyrc
@@ -1,5 +1,4 @@
-script_line1 = use strict; use warnings; use 5.014; use experimentals; use Path::Tiny;
-script_line2 = require('~/.replyrc.local.pl') if -e '~/.replyrc.local.pl'; ();
+script_line1 = use lib "$ENV{HOME}/.lib/perl5"; use ReplyStartup;
 
 [Colors]
 [DataPrinter]