# HG changeset patch
# User Meredith Howard <mhoward@roomag.org>
# Date 1518726568 18000
# Node ID ea343e7d3abcfeac03f0bf8d6333224efd4fcad7
# Parent  31d13f6d3a308411a4a56c743231aa5d3895f9b0
move reply startup

diff --git a/.lib/perl5/ReplyStartup.pm b/.lib/perl5/ReplyStartup.pm
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;
diff --git a/.replyrc b/.replyrc
--- 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]